如何用vb编写一个程序,使“欢迎使用”四个字在窗体上从左至右循环移动,每次事件触发时移动20缇
2个回答
展开全部
.........
一个 timer 搞定了
dim i as integer
Private Sub Form_Load()
i = 1
End Sub
Private Sub Timer1_Timer()
If Label1.Left < 100 Then
i = 1
ElseIf Label1.Left > 1000 Then
i = -1
End If
Label1.Left = Label1.Left + i * 20
End Sub
自己设置 timer1的 interval 属性
一个 timer 搞定了
dim i as integer
Private Sub Form_Load()
i = 1
End Sub
Private Sub Timer1_Timer()
If Label1.Left < 100 Then
i = 1
ElseIf Label1.Left > 1000 Then
i = -1
End If
Label1.Left = Label1.Left + i * 20
End Sub
自己设置 timer1的 interval 属性
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询