高考问答河北师范大学文学院:关于VB的小问题，请大虾指导。。。。
来源：百度文库 编辑：高考问答 时间：2024/04/28 08:33:12
目的：做游飞字幕。程序如下
Private Sub Timer1_Timer()
Dim z As Integer
Label1.Left = Label1.Left + z
If Label1.Left > Form1.Width Then
Label1.Left = 0
End If
End Sub
不会动的，只是闪，字体和字号等已经设定好了，本人刚学，请大虾指导。本人用VB6。0。
Private Sub Timer1_Timer()
Dim z As Integer
Label1.Left = Label1.Left + z
If Label1.Left > Form1.Width Then
Label1.Left = 0
End If
End Sub
不会动的，只是闪，字体和字号等已经设定好了，本人刚学，请大虾指导。本人用VB6。0。
给Z赋值呀，不副职怎么动！！！
没给Z赋值，所以Z总是为0，label1的左边界也就是死的。给Z赋上值就行了。
给Z一个初值.否则系统认为是0,Label1当然就不动了
Private Sub Timer1_Timer()
dim z as integer
z=50
Label1.Left = Label1.Left + z
If Label1.Left > Form1.Width Then
Label1.Left = 0
End If
End Sub
Private Sub Timer1_Timer()
dim z as integer
z=50
Label1.Left = Label1.Left + z
If Label1.Left > Form1.Width Then
Label1.Left = 0
End If
End Sub
Private Sub Timer1_Timer()
dim z as integer
z=50
Label1.Left = Label1.Left + z
If Label1.Left <=0 then
Label1.Left = 5000
End If
End Sub