控件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
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
用timer控件
判断如果picture控件的不是在窗体的最右边就让它一直向右移动,即.left=.left+50
判断如果picture控件的不是在窗体的最下边就让它一直向下移动,即.top=.tope+50