能动的图形

最新推荐文章于 2023-11-30 18:29:22 发布

原创最新推荐文章于 2023-11-30 18:29:22 发布 · 200 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#timer #图形 #command #vb

用VB绘制图形并使其运动
绘制圆形并运动的程序代码
Dim g As Boolean
Dim x As Long
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
g = True
x = Shape1.Left
End Sub
Private Sub Timer1_Timer()
If g Then
x = x - 300
Else
x = x + 300
End If
If x < 0 Or x > (Me.ScaleWidth - Shape1.Width) Then
g = Not g
End If
Shape1.Move x
End Sub