基于VB中控件和類的霓虹燈效果的設計與實現

基于VB中控件和類的霓虹燈效果的設計與實現

 以下是YJBYS求職網為您推薦的一篇關于基于VB中控件和類的霓虹燈效果的設計與實現的計算機軟件畢業論文，歡迎瀏覽！

 

　　關鍵詞：計時器； 閃爍；Control類；通用性

 

　　摘要：論文在VB應用程序中利用這些控件和類，來實現霓虹燈效果。

 

　　Visual Basic是美國Microsoft公司推出的一種基于Windows平臺的應用程序開發工具。它具有簡單易學、操作方便的特點，又引入了面向對象的事件驅動編程機制和可視化的程序設計方法，已經成為Windows應用程序開發的首選工具之一。但是Visual Basic 所提供的各種控件中都沒有閃爍屬性設置，這就使應用程序界面有一種“呆板”的感覺，無法表現出動感。本文以動態改變窗體上的字體顏色為例，介紹霓虹燈效果的設計與實現方法。

 

　　1、設計思路

 

　　所謂霓虹燈效果，是指某一控件的顏色較快地交替變化，在視覺上達到閃爍效果。VB中的計時器控件是一種定時觸發事件的控件，利用它的特性可以實現霓虹燈閃爍的效果。這里以窗體上的字體顏色為例，設計一個計時器控制字體顏色的變化。計時器事件觸發一次，改變一次字體顏色。計時器的時間間隔越短，字體顏色變化越快，霓虹燈效果越明顯。另外，設計一個函數setfontcolor，它的功能是改變字體的前景顏色。顏色范圍定義在數組a中，其值取QBcolor函數的顏色值范圍（0-15），當然也可根據實際情況設置需要的顏色。

 

　　Visual Basic提供Control類是一般控件的基類。當聲明一個變量為As Control，就可以將任何控件的引用賦給該變量。為了增加程序的通用性，在函數setfontcolor中，使用Control類實現不同控件的閃爍效果，加大程序應用的范圍。例如：閃爍文本框、閃爍文件列表框等，極大豐富了VB應用程序界面。

 

　　2、設計步驟

 

　　(1)建立新工程。新建工程1，同時包含一個新窗體Form1。

 

　　(2)設計應用程序界面。我們要設計的是一個字體顏色不斷變化的顯示程序，顯示字符為“計算機應用”。因此，在Form1上添加一個計時器Timer1控制字體顏色變化、一個標簽Label1顯示字符串、一個退出按鈕Command1。

 

　　圖1 設計界面                         圖2 運行界面

 

　　圖3 運行界面2                        圖4 運行界面3

 

　　(3)設置各控件屬性。

 

　　表1-1窗體及控件的屬性值設置

 

　　對象

 

　　屬性

 

　　設置

 

　　Form1

 

　　Caption

 

　　霓虹燈效果

 

　　label1

 

　　Caption

 

　　計算機應用

 

　　FontName

 

　　宋體

 

　　FontName

 

　　小一

 

　　Alignment

 

　　居中

 

　　Command1

 

　　Caption

 

　　退出

 

　　(4)設計程序代碼。

 

　　通用聲明部分：

 

　　Option Explicit

 

　　Dim a(15) As Integer     ′存放不同的顏色值

 

　　′初如化設置

 

　　Private Sub Form_Load()

 

　　Dim i As Integer

 

　　Label1.Top = 1850

 

　　Label1.Left = Screen.Width / 8

 

　　Timer1.Interval = 50

 

　　Command1.Top = Screen.Height / 3

 

　　Command1.Left = Screen.Width / 3

 

　　For i = 0 To 15

 

　　a(i) = i

 

　　Next i

 

　　End Sub

 

　　′退出程序

 

　　Private Sub Command1_Click()

 

　　End

 

　　End Sub

 

　　′setfontcolor過程是循環地設置字體顏色(ForeColor)

 

　　Private Sub setfontcolor(Cont As Control)

 

　　If Cont.Tag < 15 Then

 

　　Cont.Tag = Cont.Tag + 1

 

　　Else

 

　　Cont.Tag = 0

 

　　End If

 

　　Cont.ForeColor = QBColor(Cont.Tag)

 

　　End Sub

 

　　′利用計時器控件Timer事件調用setfontcolor函數改變字體顏色

 

　　Private Sub Timer1_Timer()

 

　　setfontcolor Label1,a

 

　　End Sub

 

　　3、小結

 

　　本文介紹了VB程序實現霓虹燈效果的方法。主要強調利用VB的相關控件和類動態改變字體顏色，增加程序的通用性的技術。上述程序已上機調試過。在此基礎上進行一些改進（如：加上其它的控制使形式變化更豐富些、設置符合用戶需求的顏色范圍等），應用到你開發的軟件的封面設計中，就能使用戶更加滿意了。

 

　　參考文獻：

 

　　[1]穆紅濤.Visual Basic程序設計（實訓篇） [M]. 大連：大連理工大學出版社,2008.

 

　　[2]楊慶仙.用VB中通信控件實現對鎖相放大器的控制[j].福建電腦，2010,(10).

 

　　[3]王曉敏. Visual Basic程序設計[M].北京：中國鐵道出版社，2005.

Roman"
�mo
P�nt-family:"Times New Roman"'>　　孫曉巖，研究生，河北工程大學，研究方向：管理科學。

 

【基于VB中控件和類的霓虹燈效果的設計與實現】相關文章：

在VB中如何使用 Winsock 控件08-19

利用VB的MSComm控件實現GPS數據采集07-02

基于Delphi的VCL控件開發與實現論文10-01

基于MapObjects控件的鷹眼圖實現方法09-18

基于ASP購物系統設計和實現ASP+SQL09-03

基于VB6.0的MSComm通信方法設計09-01

基于Perl的DoS工具設計與實現10-05

基于PQRM的PACS系統設計與實現08-02

基于uCLinux的USB Host的設計與實現10-20

VB編程中網格控件的選用及使用方法07-28