请问如何能让我的图片框在FORM中不规则的运动起来？

Question

请问能解决这个问题吗？
谢谢

Answer 1

Sub direction(j)
 Select Case j
  Case 1
   Picture1.Top = Picture1.Top + 50
   Picture1.Left = Picture1.Left + 50
  Case 2
   Picture1.Top = Picture1.Top + 50
   Picture1.Left = Picture1.Left - 50
  Case 3
   Picture1.Top = Picture1.Top - 50
   Picture1.Left = Picture1.Left + 50
  Case 4
   Picture1.Top = Picture1.Top - 50
   Picture1.Left = Picture1.Left - 50
 End Select
End Sub
Private Sub Form_Load()
 Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
 Dim i As Integer
 Dim j As Integer
 Randomize (j)
 j = Int(Rnd() * 4) + 1
 For i = 1 To j
  Call direction(j)
 Next i
End Sub
写了一个，你看看有没有用吧。

Answer 2

在Timer事件中用Picture.Move left,top,width,heigh
left、和top用随机函数rnd生成

Answer 3

Private Sub Timer1_Timer()
    Dim sngLeft, sngTop As Single
    
    sngLeft = Me.ScaleWidth * Rnd + 1
    sngTop = Me.ScaleHeight * Rnd + 1
    
    Picture1.Move sngLeft, sngTop, Picture1.Width, Picture1.Height
End Sub