程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> VB5.0中實現字體閃爍效果

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

編輯:VB綜合教程
用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。->

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved