微信公众号 
图码生活

每天发布有五花八门的文章,各种有趣的知识等,期待您的订阅与参与
电脑报 1992-2001 十年文章全集
电脑报 1992-2001 十年文章全集
包含从 1992 年 - 2001 年间,两万余篇期刊文章,查询最少输入两个字符
随便看看
读取中
读取中
标题如何实现霓虹灯效果
栏目软件世界
作者张海峰
发布2000年第36期
  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
   Cont.Tag=Color1
  Else
  Cont.Tag=Color1
  End If
  Cont.ForeColor=QBColor(Cont.Tag)
  End Sub
  '利用计时器控件Timer有规律地改变字体颜色(ForeColor)
  Private Sub Timer1_Timer()
  chc Label1,2,6,12
  End Sub
  我想,在你的程序启动画面中加上霓虹灯效果的话,其界面友好性一定能使用户更加满意。