VB5.0中实现字体闪烁效果

页面导航:首页 > 软件编程 > vb.net > VB5.0中实现字体闪烁效果

VB5.0中实现字体闪烁效果

来源: 作者: 时间:2016-01-21 10:23 【

用VisualBasic我们可设计出形形色色符合用户要求的应用程序,它确实是一种很好的用户程序开发工具,可VB提供的基本控件中都没有闪烁属性设置,使应用程序界面缺乏活性,近期笔者设
用VisualBasic我们可设计出形形色色符合用户要求的应用程序,它确实是一种很好的用户工具,可VB提供的基本控件中都没有闪烁属性设置,使应用程序界面缺乏“活性”,近期笔者设计软件封面时,就要求字体不断地闪烁,为此,经反复分析、实践,最后终于成功地实现字体闪烁效果,现将设计过程说明如下:
  (1)创建一个新目标文件(project1),并建立一个窗体Form1。
  (2)在Form1上配置一个计时器控制Timer1、标签控件Label1、命令控件Command1。
  (3)各控件属性设置:
  Timer1的Enabled设置为True;
  Label1的Caption设置为需闪烁的字体:“江西省黎川县职业中专电脑室设计”、
Font设置字体及大小、Backstyle设置为“0-Transparent”;
  Command1中的Caption设置为“退出”。
  (4)程序代码清单:
  OptionExplicit
  PrivateSubForm_Load()
  Label1.Top=850  
   ′设置闪烁字体的显示位置
  Label1.Left=750
  Timer1.Interval=555  
  ′设置字体闪烁间隔时间
  Form1.Windowstate=2
  EndSub
  ′利用计时器控件Timer有规律地改变字体颜色(Forecolor)
  PrivateSubTimer1_Timer()
  ChcLabel1,1,4,8
  EndSub
  ′Chc过程是循环地改变字体颜色(Forecolor)
  SubChc(ContAsControl,Color1AsInteger,Color2AsInteger,Color3AsInteger)
  IfVal(Cont.Tag)=Color1Then
  Cont.Tag=Color2
  ElseIfVal(Cont.Tag)=Color2Then
  Cont.Tag=Color3
  ElseIfVal(Cont.Tag)=Color3Then
  Cont.Tag=Color1
  Else
  Cont.Tag=Color1
  EndIf
  Cont.ForeColor=QBColor(Cont.Tag)
  EndSub
  PrivateSubCommand1_Click()
  End
  EndSub
  程序除标签控件外,还适用于许多VB基本控件,实现诸多闪烁效果,例如:闪烁文本框、闪烁文件列表框等,极大丰富了VB应用程序界面,相当实用。
  此设计也适用VB3.0、VB4.0。->
Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <