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