vb6里，想让一个shape控件自己动起来，要怎么写代码？
答案:1 悬赏:60 手机版
解决时间 2021-11-07 07:59
- 提问者网友：风月客
- 2021-11-06 18:12
vb6里，想让一个shape控件自己动起来，要怎么写代码？
最佳答案
- 五星知识达人网友：不甚了了
- 2021-11-06 18:33
用一个定时器实现。
Option Explicit
Dim x As Long
Private Sub Form_Load()
Timer1.Interval = 500
x = Shape1.Left
End Sub
Private Sub Timer1_Timer()
x = x + 100
If x > Me.Width Then x = 0
Shape1.Move x, Shape1.Top
End Sub
Option Explicit
Dim x As Long
Private Sub Form_Load()
Timer1.Interval = 500
x = Shape1.Left
End Sub
Private Sub Timer1_Timer()
x = x + 100
If x > Me.Width Then x = 0
Shape1.Move x, Shape1.Top
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯