VB5.0中實(shí)現(xiàn)字體閃爍效果

用VisualBasic我們可設(shè)計(jì)出形形色色符合用戶要求的應(yīng)用程序，它確實(shí)是一種很好的用戶程序開(kāi)發(fā)工具，可VB提供的基本控件中都沒(méi)有閃爍屬性設(shè)置，使應(yīng)用程序界面缺乏“活性”，近期筆者設(shè)計(jì)軟件封面時(shí)，就要求字體不斷地閃爍，為此，經(jīng)反復(fù)分析、實(shí)踐，最后終于成功地實(shí)現(xiàn)字體閃爍效果，現(xiàn)將設(shè)計(jì)過(guò)程說(shuō)明如下：
     (1)創(chuàng)建一個(gè)新目標(biāo)文件(project1)，并建立一個(gè)窗體Form1。
     (2)在Form1上配置一個(gè)計(jì)時(shí)器控制Timer1、標(biāo)簽控件Label1、命令控件Command1。
     (3)各控件屬性設(shè)置：
     Timer1的Enabled設(shè)置為T(mén)rue;
     Label1的Caption設(shè)置為需閃爍的字體：“江西省黎川縣職業(yè)中專電腦室設(shè)計(jì)”、
     Font設(shè)置字體及大小、Backstyle設(shè)置為“0－Transparent”；
     Command1中的Caption設(shè)置為“退出”。
     (4)程序代碼清單：
     OptionExplicit
     PrivateSubForm_Load()
     Label1.Top=850　　
     ′設(shè)置閃爍字體的顯示位置
     Label1.Left=750
     Timer1.Interval=555　　
     ′設(shè)置字體閃爍間隔時(shí)間
     Form1.Windowstate=2
     EndSub