请问VB怎么让Timer控件让label1从左向右移动,超出窗体范围后又重新从左到右开始移动
请问VB怎么让Timer控件让label1从左向右移动,超出窗体范围后又重新从左到右开始移动,求代码...
请问VB怎么让Timer控件让label1从左向右移动,超出窗体范围后又重新从左到右开始移动,求代码
展开
1个回答
展开全部
Option Explicit
Dim W As Long
Private Sub Command1_Click()
Timer1.Interval = 100
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
W = Me.Width
If Label1.Left > W Then
Label1.Left = 0 - Label1.Width
Else
Label1.Left = Label1.Left + 84
End If
End Sub
附源文件, VB6运行通过。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询