快点帮忙 小弟我有急事………………………………

Question

怎样使一个图片在窗体内围着窗体转动 
请告诉我代码…………

Answer 1

控件picture1，from1Option Explicit
  Dim x As Integer
  Dim y As Integer
  Dim Sx As Integer
  Dim Sy As Integer
  Dim Blo As Boolean
Private Sub Form_DblClick()
  
  Sx = Me.ScaleWidth
  Sy = Me.ScaleHeight
  
  
End SubPrivate Sub Form_Load()
  Picture1.Tag = 1
  Blo = False
End SubPrivate Sub Timer1_Timer()
   
   If Me.Picture1.Tag = 1 Then
      Me.Picture1.Top = Me.Picture1.Top - 50
      If Me.Picture1.Top <= Me.ScaleTop Then Picture1.Tag = 0
   Else
      Me.Picture1.Top = Me.Picture1.Top + 50
      If Me.Picture1.Top + Picture1.Height > Me.ScaleHeight Then Picture1.Tag = 1
      
   End If
   
   If Blo = False Then
      Me.Picture1.Left = Picture1.Left + 50
      If Me.Picture1.Left + Picture1.Width >= Me.ScaleWidth Then Blo = True
   Else
      Me.Picture1.Left = Picture1.Left - 50
      If Me.Picture1.Left <= Me.ScaleLeft Then Blo = False
   End If
      
   
   
   
End Sub

Answer 2

如楼上所写
用timer控件
判断如果picture控件的不是在窗体的最右边就让它一直向右移动，即.left=.left+50
判断如果picture控件的不是在窗体的最下边就让它一直向下移动，即.top=.tope+50