以下是 YJBYS 求职网为您推荐的一篇关于基于VB中

2013-04-24 01:32

导读：

以下是lw.nseac.com网为您推荐的一篇关于基于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"�moP�nt-family:"Times New Roman"'>　　孙晓岩，研究生，河北工程大学，研究方向：管理科学。