查看完整版本: 如何在VB6中实现文字“打屏”及霓虹灯效果

如何在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属性等于

　　通过循环语句制造文字由大到小的效果,当文字大小小于或等于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
　　For t = 1 To 120
　　
　　Label10.FontSize = Label10.FontSize - 8
　　If Label10.FontSize < = 72 Then
　　Label10.FontSize = 72
　　Label11.Visible = True
　　Exit For
　　End If
　　Next t
　　
　　For t = 1 To 120
　　
　　Label11.FontSize = Label11.FontSize - 8
　　If Label11.FontSize < = 72 Then
　　Label11.FontSize = 72
　　Label12.Visible = True
　　Exit For
　　End If
　　Next t

　　For t = 1 To 120
　　
　　Label12.FontSize = Label12.FontSize - 8
　　If Label12.FontSize < = 72 Then
　　Label12.FontSize = 72
　　Timer1.Enabled = False
　　Timer2.Enabled = True
　　Exit For
　　End If
　　Next t
　　
　　再在Timer2_Timer() 事件中加入字体霓虹灯效果的代码:
　　霓虹灯效果设置

　　Dim x As Integer, y As Integer, z As Integer '定义变量

　　设置字体颜色的随机效果
　　x = Int(Rnd * (255))
　　y = Int(Rnd * (255))
　　z = Int(Rnd * (255))
　　Label8.ForeColor = RGB(x, y, z)
　　x = Int(Rnd * (255))
　　y = Int(Rnd * (255))
　　z = Int(Rnd * (255))
　　Label9.ForeColor = RGB(x, y, z)
　　x = Int(Rnd * (255))
　　y = Int(Rnd * (255))
　　z = Int(Rnd * (255))
　　Label10.ForeColor = RGB(x, y, z)
　　x = Int(Rnd * (255))
　　y = Int(Rnd * (255))
　　z = Int(Rnd * (255))
　　Label11.ForeColor = RGB(x, y, z)
　　x = Int(Rnd * (255))
　　y = Int(Rnd * (255))
　　z = Int(Rnd * (255))
　　Label12.ForeColor = RGB(x, y, z)
　　
　　最后不要忘了在Form_Click()事件中加入"Unload Me"的语句,以释放资源。好了！睁大你长时间用眼睛亲吻电脑显示屏而血红的双眼，伸出由于长期抚摸键盘而进化得象香蕉的手指按F5键运行，哇！......大功告成！

招 vb程序员：
1.计算机软件及相关专业，2年以上相关工作经验
2.具备良好的面对对象式程序设计的概念，知识面广，有vb开发经验
3.精通vb语言，熟悉数据库开发，熟悉SQL Server
4.学习能力强，具备良好的沟通能力和团队合作精神
5、熟悉xml,了解webservice开发
6、参与过vb软件的开发,熟悉windows api优先


请打13310060648约面试！