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