如何在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