VB怎么让标签不断的上下左右移动
来源:百度知道 编辑:UC知道 时间:2024/07/02 15:26:31
离开时就动
我还要代码 自已消化
使用timer空间使标签的top属性变大或变小,标签会往下或往上移动,使标签的left属性变大或变小,标签会往右或往左移动,同时使用,标签就会像DVD那样了。
具体怎么移动完全取决于你的想法,没有固定的代码。
我写了个随机移动的标签不知道符合不符合你的要求。
Dim l, t
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = True
Timer1.Interval = 1000
Randomize
l = Int(Rnd * 5000 + 0)
t = Int(Rnd * 2000 + 0)
Label1.Left = Me.Left + l
Label1.Top = Me.Top + t
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True<