范明之

　　　　用Visual Basic我們可設(shè)計(jì)出形形色色符合用戶要求的應(yīng)用程序，它確實(shí)是一種很好的用戶程序開發(fā)工具，可VB提供的基本控件中都沒有閃爍屬性設(shè)置，使應(yīng)用程序界面缺乏“活性”，近期筆者設(shè)計(jì)軟件封面時(shí)，就要求字體不斷地閃爍，為此，經(jīng)反復(fù)分析、實(shí)踐，最后終于成功地實(shí)現(xiàn)字體閃爍效果，現(xiàn)將設(shè)計(jì)過程說明如下：
　　(1)創(chuàng)建一個(gè)新目標(biāo)文件(project1)，并建立一個(gè)窗體Form1。
　　(2)在Form1上配置一個(gè)計(jì)時(shí)器控制Timer1、標(biāo)簽控件Label1、命令控件Command1。
　　(3)各控件屬性設(shè)置：
　　Timer1的Enabled設(shè)置為True;
　　Label1的Caption設(shè)置為需閃爍的字體：“江西省黎川縣職業(yè)中專電腦室設(shè)計(jì)”、
Font設(shè)置字體及大小、Backstyle設(shè)置為“0－Transparent”；
　　Command1中的Caption設(shè)置為“退出”。
　　(4)程序代碼清單：
　　Option Explicit
　　Private Sub Form_ Load()
　　Label1.Top=850　　
　　　′設(shè)置閃爍字體的顯示位置
　　Label1.Left=750
　　Timer1.Interval=555　　
　　′設(shè)置字體閃爍間隔時(shí)間
　　Form1.Windowstate=2
　　End Sub
　　′利用計(jì)時(shí)器控件Timer有規(guī)律地改變字體顏色(Forecolor)
　　Private Sub Timer1_Timer()
　　Chc Label1,1,4,8
　　End Sub
　　′Chc過程是循環(huán)地改變字體顏色(Forecolor)
　　Sub Chc(Cont As Control,Color1 As Integer,Color2 As Integer,Color3 As Integer)
　　If Val(Cont.Tag)=Color1 Then
　　Cont.Tag=Color2
　　ElseIf Val(Cont.Tag)=Color2 Then
　　Cont.Tag=Color3
　　ElseIf Val(Cont.Tag)=Color3 Then
　　Cont.Tag=Color1
　　Else
　　Cont.Tag=Color1
　　End If
　　Cont.ForeColor=QBColor(Cont.Tag)
　　End Sub
　　Private Sub Command1_Click()
　　End
　　End Sub
　　程序除標(biāo)簽控件外，還適用于許多VB基本控件，實(shí)現(xiàn)諸多閃爍效果，例如：閃爍文本框、閃爍文件列表框等，極大豐富了VB應(yīng)用程序界面，相當(dāng)實(shí)用。
　　此設(shè)計(jì)也適用VB3.0、VB4.0。