《 {如何实现霓虹灯效果} 》
{ Visual Basic是一种易用、易学、功能强大的编程语言,利用Visual Basic我们可以很容易地设计出符合用户要求的各种应用程序,但是Visual Basic 所提供的各种控件中都没有闪烁属性设置,这就使应用程序界面有一种“呆板”的感觉,无法表现出动感。最近笔者在设计软件封面时,要求字体不断地变化,呈现出一种霓虹灯的效果。本人经反复分析、实践,最后设计出了霓虹灯效果,现将设计过程说明如下:
(1)创建一个新目标文件Project1,并建立一个窗体Form1。
(2)在Form1上放置一个计时器控件Timer1、标签控件Label1、命令控件Command1。
(3)各控件属性设置:
(4)程序代码清单:
Option Explicit
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Label1.Top=1850 ′设置闪烁字体的显示位置
Label1.Left=Screen.Width/8
Timer1.Interval=500 ′设置字体闪烁间隔时间
Command1.Top=Screen.Height/1.5 ′设置按钮在窗体中的位置
Command1.Left=Screen.Width/2
Form1.WindowState=2 ′设置窗体最大化
End Sub
′Chc过程是循环地改变字体颜色(ForeColor)
Sub chc(Cont As Control,Color1 As Integer,Color2 As Integer,Color3 As Integer)
If Val(Cont.Tag)=Color1 Then
Cont.Tag=Color2
ElseIf Val(Cont.Tag)=Color2 Then
Cont.Tag=Color3
ElseIf Val(Cont.Tag)=Color3 Then
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载