VB的反射
来源:百度知道 编辑:UC知道 时间:2024/05/08 10:37:36
谢谢具体的代码。。
Dim LeftAndRight As Boolean '表示左右移动的方向
Dim UpAndDown As Boolean '表示上下移动的方向
Private Sub Timer1_Timer()
'左右移动
If LeftAndRight = False Then
Command1.Left = Command1.Left + 100
If Command1.Left + Command1.Width > Me.ScaleWidth - 100 Then
LeftAndRight = True
End If
Else
Command1.Left = Command1.Left - 100
If Command1.Left <= 100 Then
LeftAndRight = False
End If
End If
'上下移动
If UpAndDown = False Then
Command1.Top = Command1.Top + 100
If Command1.Top + Command1.Height > Me.ScaleHeight - 100 Then
UpAndDown = True
End If
Else
Command1.Top = Command1.Top - 100
If Command1.Top <= 100 Then
UpAndDown = False
End If
End If
End Sub
Private Sub Command1_Click()
Me.Cls
x = 150
y = 0
For i = 0 To 100
ForeColor = RGB(0, 0, 0)
x = x - 1