Question

VB中如何设计一个标签Label1在碰到窗体边框后随机方向移动的代码

Answer 1

Dim Dx As Long
Dim Dy As Long Private Sub Form_Load()Dx = Rnd() * 100
Dy = Rnd() * 100Timer1.Interval = 100
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
'碰到左边If Label1.Left < 0 Then

Dx = Rnd() * 100
End If '碰到右边If Label1.Left + Label1.Width > Me.ScaleWidth Then

Dx = -Rnd() * 100 '负的
End If
'碰到上边If Label1.Top < 0 Then

Dy = Rnd() * 100
End If '碰到下边If Label1.Top + Label1.Height > Me.ScaleHeight Then

Dy = -Rnd() * 100 '负的
End If'只要 dx dy 随机，角度就随机了Label1.Left = Label1.Left + Dx
Label1.Top = Label1.Top + Dy
End Sub
'这个程序移动的速度是随机的，因为dx dy 随机 要想速度不变，只要产生dx dy 后，再按比例放大缩小dx dy 就行，自己解决，不要追问了