
用vosual basic编移动的东西(例如把一个label在一段时间内从左边移动到右边)
展开全部
Private Sub Form_Load()
Label1.AutoSize = True
Label1.AutoSize = False
Label1.Left = -Label1.Width
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 15 '//每0.1秒移动一象素
If Label1.Left >= Me.Width Then Label1.Left = -Label1.Width'//移动到右边后回到左边重新开始
End Sub
Label1.AutoSize = True
Label1.AutoSize = False
Label1.Left = -Label1.Width
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 15 '//每0.1秒移动一象素
If Label1.Left >= Me.Width Then Label1.Left = -Label1.Width'//移动到右边后回到左边重新开始
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询