如何在VB6中实现文字“打屏”及霓虹灯效果

• 　　在看电影或电视时我们有时会看到有些片名一个一个的字由大到小打印到屏幕上(或是片名整齐的由大到小打印到屏幕上),俗语称"打屏"。并且有时文字颜色会不断变化,出现霓虹灯效果,闪烁亮晶晶,煞是好看。如果你是用VB6来开发软件的话,假如能把它应用到你的软件封面中,让软件的名字唰唰唰照打在屏幕上,那种感觉是不是有点......像炎热的夏天喝了一杯冰水呢。那么在VB6中如何实现这种效果呢? OK!赶快拔出你的屠龙刀VB6,LET GO!跟我来吧!(怎么觉得有点牛刀杀小鸡的味道^_^)
  
  　　首先启动VB6,新建一个标准EXE工程,添加两个TIMER控件到窗体上,设TIMER1的Interval属性为1(用于启动文字打屏）,TIMER2的Enabled属性为False、Interval属性为319(用于文字颜色闪烁速度);再添加五个LABEL控件LABEL1、LABEL2、LABEL3、LABEL4、LABEL5到窗体上，然后按着Ctrl键将它们五个选中，设它们的BackStyle属性为0-Transparent、Font属性为隶书72号字型（当然也可选其他字体）、ForeColor属性等于&H000080FF&（字体颜色为深黄色）、Visible属性为False（让它们都不可见）,再将五个LABEL控件按顺序分别排列在窗体的中间位置。排在什么位置都行,只要整齐就行,但注意不能将五个LABEL控件重叠在一起。再保存工程。
  
  　　接下来在Form_Load()事件中加入代码:
  
  　　Dim t As Long '定义变量
  　　Me.BackColor = &H80000012 '初始化窗体颜色为黑色
  　　Me.WindowState = 2 '初始化窗体为全屏运行
  　　'初始化打屏文字
  　　Label1.Caption = "文"
  　　Label2.Caption = "字"
  　　Label3.Caption = "演"
  　　Label4.Caption = "示"
  　　Label5.Caption = "!"
  　　
  　　在Timer1_Timer()事件中加入以下代码:
  
  　　打屏效果控制
  　　定义文字的字体大小
  　　Label8.FontSize = 960
  　　Label9.FontSize = 960
  　　Label10.FontSize = 960
  　　Label11.FontSize = 960
  　　Label12.FontSize = 960 QQread.com 推出各大专业服务器评测 Linux服务器的安全性能 SUN服务器 HP服务器 DELL服务器 IBM服务器 联想服务器 浪潮服务器 曙光服务器 同方服务器 华硕服务器 宝德服务器
  　　通过循环语句制造文字由大到小的效果,当文字大小小于或等于72时停止循环
  　　Label8.Visible = True
  　　
  　　For t = 1 To 120
  　　
  　　Label8.FontSize = Label8.FontSize - 8
  　　If Label8.FontSize < = 72 Then
  　　Label8.FontSize = 72
  　　Label9.Visible = True
  　　Exit For
  　　End If
  　　Next t
  　　
  　　For t = 1 To 120
  　　
  　　Label9.FontSize = Label9.FontSize - 8
  　　If Label9.FontSize < = 72 Then
  　　Label9.FontSize = 72
  　　Label10.Visible = True
  　　Exit For
  　　End If
  　　Next t

  
  

• [1] [2] [3] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 如何在VB6中实现文字“打屏”及霓虹灯效果 相关文章：
• ·如何在VB6中实现文字“打屏”及霓虹灯效果
• 如何在VB6中实现文字“打屏”及霓虹灯效果 相关软件

上一篇:用Join和Split函数实现数组与字符串的导入导出

下一篇:如何通过VB获取网卡的地址

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐