- 相關(guān)推薦
基于VB中控件和類(lèi)的霓虹燈效果的設計與實(shí)現
以下是YJBYS求職網(wǎng)為您推薦的一篇關(guān)于基于VB中控件和類(lèi)的霓虹燈效果的設計與實(shí)現的計算機軟件畢業(yè)論文，歡迎瀏覽！
關(guān)鍵詞：計時(shí)器； 閃爍；Control類(lèi)；通用性
摘要：論文在VB應用程序中利用這些控件和類(lèi)，來(lái)實(shí)現霓虹燈效果。
Visual Basic是美國Microsoft公司推出的一種基于Windows平臺的應用程序開(kāi)發(fā)工具。它具有簡(jiǎn)單易學(xué)、操作方便的特點(diǎn)，又引入了面向對象的事件驅動(dòng)編程機制和可視化的程序設計方法，已經(jīng)成為Windows應用程序開(kāi)發(fā)的首選工具之一。但是Visual Basic 所提供的各種控件中都沒(méi)有閃爍屬性設置，這就使應用程序界面有一種“呆板”的感覺(jué)，無(wú)法表現出動(dòng)感。本文以動(dòng)態(tài)改變窗體上的字體顏色為例，介紹霓虹燈效果的設計與實(shí)現方法。
1、設計思路
所謂霓虹燈效果，是指某一控件的顏色較快地交替變化，在視覺(jué)上達到閃爍效果。VB中的計時(shí)器控件是一種定時(shí)觸發(fā)事件的控件，利用它的特性可以實(shí)現霓虹燈閃爍的效果。這里以窗體上的字體顏色為例，設計一個(gè)計時(shí)器控制字體顏色的變化。計時(shí)器事件觸發(fā)一次，改變一次字體顏色。計時(shí)器的時(shí)間間隔越短，字體顏色變化越快，霓虹燈效果越明顯。另外，設計一個(gè)函數setfontcolor，它的功能是改變字體的前景顏色。顏色范圍定義在數組a中，其值取QBcolor函數的顏色值范圍（0-15），當然也可根據實(shí)際情況設置需要的顏色。
Visual Basic提供Control類(lèi)是一般控件的基類(lèi)。當聲明一個(gè)變量為As Control，就可以將任何控件的引用賦給該變量。為了增加程序的通用性，在函數setfontcolor中，使用Control類(lèi)實(shí)現不同控件的閃爍效果，加大程序應用的范圍。例如：閃爍文本框、閃爍文件列表框等，極大豐富了VB應用程序界面。
2、設計步驟
(1)建立新工程。新建工程1，同時(shí)包含一個(gè)新窗體Form1。
(2)設計應用程序界面。我們要設計的是一個(gè)字體顏色不斷變化的顯示程序，顯示字符為“計算機應用”。因此，在Form1上添加一個(gè)計時(shí)器Timer1控制字體顏色變化、一個(gè)標簽Label1顯示字符串、一個(gè)退出按鈕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過(guò)程是循環(huán)地設置字體顏色(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
′利用計時(shí)器控件Timer事件調用setfontcolor函數改變字體顏色
Private Sub Timer1_Timer()
setfontcolor Label1,a
End Sub
3、小結
本文介紹了VB程序實(shí)現霓虹燈效果的方法。主要強調利用VB的相關(guān)控件和類(lèi)動(dòng)態(tài)改變字體顏色，增加程序的通用性的技術(shù)。上述程序已上機調試過(guò)。在此基礎上進(jìn)行一些改進(jìn)（如：加上其它的控制使形式變化更豐富些、設置符合用戶(hù)需求的顏色范圍等），應用到你開(kāi)發(fā)的軟件的封面設計中，就能使用戶(hù)更加滿(mǎn)意了。
參考文獻：
[1]穆紅濤.Visual Basic程序設計（實(shí)訓篇） [M]. 大連：大連理工大學(xué)出版社,2008.
[2]楊慶仙.用VB中通信控件實(shí)現對鎖相放大器的控制[j].福建電腦，2010,(10).
[3]王曉敏. Visual Basic程序設計[M].北京：中國鐵道出版社，2005.
Roman"�moP �nt-family:"Times New Roman"'> 孫曉巖，研究生，河北工程大學(xué)，研究方向：管理科學(xué)。
【基于VB中控件和類(lèi)的霓虹燈效果的設計與實(shí)現】相關(guān)文章：
在VB中如何使用 Winsock 控件08-19
利用VB的MSComm控件實(shí)現GPS數據采集07-02
基于Delphi的VCL控件開(kāi)發(fā)與實(shí)現論文10-01
基于MapObjects控件的鷹眼圖實(shí)現方法09-18
基于A(yíng)SP購物系統設計和實(shí)現ASP+SQL09-03
基于VB6.0的MSComm通信方法設計09-01