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

东北216

东北216

2016-02-19 21:47

给自己一点时间接受自己,爱自己,趁着下午茶的时间来学习图老师推荐的VB5.0中实现字体闪烁效果,过去的都会过去,迎接崭新的开始,释放更美好的自己。
用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。->

展开更多 50%)
分享

猜你喜欢

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

编程语言 网络编程
VB5.0中实现字体闪烁效果

VB5.0中实现鼠标拖放

编程语言 网络编程
VB5.0中实现鼠标拖放

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

VB5.0中实现系统登录

编程语言 网络编程
VB5.0中实现系统登录

VB5.0中基于桌面的屏幕技巧

编程语言 网络编程
VB5.0中基于桌面的屏幕技巧

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

VB5.0中远程数据库的访问

编程语言 网络编程
VB5.0中远程数据库的访问

如何用VB在窗体中实现闪烁文字

编程语言 网络编程
如何用VB在窗体中实现闪烁文字

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

钟情专一的QQ签名 等着你回来

钟情专一的QQ签名 等着你回来

PHP环境搭建最新方法

PHP环境搭建最新方法
下拉加载更多内容 ↓