[原创] VB写字幕滚动

最美我中文

My Cat Has Gone.

最美我中文训练师头像 VIP

管理员

Level 3 Level 3 Level 3 Level 2 Level 2 Level 1

目前的守墓人

帖子: 10686
精华: 19
积分: 7816
PT币: 149434 枚
热度: 899 °C
贡献值: 34 点

发送到消息盒子

其实我是狼 Lv.91

[查看其他宠物]

发短消息

楼主大中小发表于 2007-8-8 12:16 只看该作者

VB写字幕滚动

其实这个程序思想很简单，就是用Timer顺序移动几个Lable达到“滚动”的效果。
启动VB6。（废话）
窗体布局属性如图01/02
然后缩一下Form1让它把Lable都Hide就剩下三个白色的控制钮。
Hight建议4095
相应按钮的代码
（Form1的字幕部分分别是Lable1,Lable2……Lable5，其他为678）
所有'后面文字不需要输入，如果你想以后学习，建议你加上~

Private Sub Form_Unload(Cancel As Integer)
Unload Form2
'这个样子不会至于窗体隐藏进程退不出来
End Sub

Private Sub Label6_Click()
Timer1.Enabled = True
'激活Timer1
End Sub

Private Sub Label7_Click()
Timer1.Enabled = False
'暂停
End Sub

Private Sub Label8_Click()
Form2.Show
‘配置按钮
End Sub

注意：请先设定Timer1的间隔值不然是0运行不了别找我= = （Form2）

Private Sub Command1_Click()
Form1.Label1.Font = Text1.Text
Form1.Label2.Font = Text1.Text
Form1.Label3.Font = Text1.Text
Form1.Label4.Font = Text1.Text
Form1.Label5.Font = Text1.Text
‘赋值给Form1的各位
If Text3.Text <= 0 Or Text2.Text <= 0 Then
MsgBox "错误的数值！"
GoTo a
Else
Form1.Timer1.Interval = Text3.Text
Me.Hide
End If
'判断数值是否合法，免出错
Form1.Label1.Font.Size = Text2.Text
Form1.Label2.Font.Size = Text2.Text
Form1.Label3.Font.Size = Text2.Text
Form1.Label4.Font.Size = Text2.Text
Form1.Label5.Font.Size = Text2.Text
‘赋值给Form1的各位
a:
'子程序，让他什么也不干
End Sub

这样子应该就完蛋了= =就这样子了

附件: 您所在的用户组无法下载或查看附件

谁不怀念苏联,谁就没有良心;谁想回到苏联,谁就没有头脑.

Woodu.ME--从零开始的博客生活

TOP

«« 上一主题 | 下一主题 »» | 推荐给朋友