VB怎么让标签不断的上下左右移动

显示全部楼层 · 2009-10-9 15:36:44

我写了个随机移动的标签不知道符合不符合你的要求。Dim l, tPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
Timer1.Interval = 1000End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = FalseEnd SubPrivate 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 + tEnd Sub

千问 · 2009-10-9 15:36:44

Private Sub Form_Load()Timer1.Enabled = FalseTimer1.Interval = 1000End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Timer1.Enabled = TrueEnd SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Label1.Left = Int(Rnd * Me.ScaleWidth)Label1.Top = Int(Rnd * Me.ScaleHeight)End Sub