VB5.0中實現字體閃爍效果

2019-11-18 17:26:20

字體：大中小

來源：轉載

供稿：網友

用VisualBasic我們可設計出形形色色符合用戶要求的應用程序，它確實是一種很好的用戶程序開發工具，可VB提供的基本控件中都沒有閃爍屬性設置，使應用程序界面缺乏“活性”，近期筆者設計軟件封面時，就要求字體不斷地閃爍，為此，經反復分析、實踐，最后終于成功地實現字體閃爍效果，現將設計過程說明如下：
　　(1)創建一個新目標文件(PRoject1)，并建立一個窗體Form1。
　　(2)在Form1上配置一個計時器控制Timer1、標簽控件Label1、命令控件Command1。
　　(3)各控件屬性設置：
　　Timer1的Enabled設置為True;
　　Label1的Caption設置為需閃爍的字體：“江西省黎川縣職業中專電腦室設計”、
Font設置字體及大小、Backstyle設置為“0－Transparent”；
　　Command1中的Caption設置為“退出”。
　　(4)程序代碼清單：
　　OptionExplicit
　　PrivateSubForm_Load()
　　Label1.Top=850　　
　　　′設置閃爍字體的顯示位置
　　Label1.Left=750
　　Timer1.Interval=555　　
　　′設置字體閃爍間隔時間
　　Form1.Windowstate=2
　　EndSub
　　′利用計時器控件Timer有規律地改變字體顏色(Forecolor)
　　PrivateSubTimer1_Timer()
　　ChcLabel1,1,4,8
　　EndSub
　　′Chc過程是循環地改變字體顏色(Forecolor)
　　SubChc(ContAsControl,Color1AsInteger,Color2AsInteger,Color3AsInteger)
　　IfVal(Cont.Tag)=Color1Then
　　Cont.Tag=Color2
　　ElseIfVal(Cont.Tag)=Color2Then
　　Cont.Tag=Color3
　　ElseIfVal(Cont.Tag)=Color3Then
　　Cont.Tag=Color1
　　Else
　　Cont.Tag=Color1
　　EndIf
　　Cont.ForeColor=QBColor(Cont.Tag)
　　EndSub
　　PrivateSubCommand1_Click()
　　End
　　EndSub
　　程序除標簽控件外，還適用于許多VB基本控件，實現諸多閃爍效果，例如：閃爍文本框、閃爍文件列表框等，極大豐富了VB應用程序界面，相當實用。
　　此設計也適用VB3.0、VB4.0。->

上一篇：用VB嘗試新的界面風格

下一篇：VB5.0應用程序的啟動與退出設計