用VB编程小球左右移动
答案:1 悬赏:20 手机版
解决时间 2021-01-23 15:51
- 提问者网友：咪咪
- 2021-01-23 05:51
用VB编程小球左右移动
最佳答案
- 五星知识达人网友：山君与见山
- 2021-01-23 06:39
Dim fh As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
fh = 1
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Shape1.Shape = 3
Timer1.Interval = 100
Timer1.Enabled = False
Command1.Caption = "开始"
Command2.Caption = "停止"
End Sub
Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + fh * 200
If Shape1.Left < 0 Then
Shape1.Left = 0
fh = -fh
End If
If Shape1.Left + Shape1.Width > Me.Width Then
Shape1.Left = Me.Width - Shape1.Width
fh = -fh
End If追问有点复杂
Private Sub Command1_Click()
Timer1.Enabled = True
fh = 1
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Shape1.Shape = 3
Timer1.Interval = 100
Timer1.Enabled = False
Command1.Caption = "开始"
Command2.Caption = "停止"
End Sub
Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + fh * 200
If Shape1.Left < 0 Then
Shape1.Left = 0
fh = -fh
End If
If Shape1.Left + Shape1.Width > Me.Width Then
Shape1.Left = Me.Width - Shape1.Width
fh = -fh
End If追问有点复杂
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯