vb的图片运动

18362374790

我放的一张图片在form上，设置的是一个开始按钮来操作图片的运动，但是程序运行的时候发现这个图片自己先运动了，我的开始按钮并没有触发，并且后续的让图片回到起始位置也没有触发，怎么回事
Option Explicit
Dim a, w, h, t

Private Sub Command1_Click()
a = Picture1.Left
w = Picture1.Width
h = Picture1.Height
t = Picture1.Top
Timer1.Interval = 200
Timer1.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()  '???й?????

Picture1.Left = Picture1.Left + 30
Picture1.Width = Picture1.Width - 40
Picture1.Height = Picture1.Height - 40
Picture1.Top = Picture1.Top - 100
If Picture1.Height + Picture1.Top < 0 Then
   
Picture1.Left = a
Picture1.Width = w
Picture1.Height = h
Picture1.Top = t
Timer1.Enabled = False

Command1.Enabled = True
End If


End Sub

18362374790

大佬们，被这个搞晕了

lin326326

Timer1的属性是不是默认开启的

Takitooru

运行了一下，并没有发现你的说错误。
看动态截图

18362374790

Takitooru 发表于 2020-3-12 21:16
运行了一下，并没有发现你的说错误。
看动态截图

不对啊，我的是它自己动，超了边界就结束了

18362374790

lin326326 发表于 2020-3-12 21:15
Timer1的属性是不是默认开启的

是开启的

Takitooru

18362374790 发表于 2020-3-12 21:19
不对啊，我的是它自己动，超了边界就结束了

你看看你的时间控件是不是0，如果不是0就改回0

18362374790

Takitooru 发表于 2020-3-12 21:21
你看看你的时间控件是不是0，如果不是0就改回0

确实是这个，这个0是来控制load界面的吗

Takitooru

18362374790 发表于 2020-3-12 21:24
确实是这个，这个0是来控制load界面的吗

不是，是如果设置了的数值，它就会自动执行，不论你是否按钮触发还是什么条件触发，而且时间控件这里默认就是0的

125733578

原来还有不少VB的爱好者。。。。。。