各位高手好
最近小弟 遇到了一个无解的问题
程式码如下:
'移动
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Pic1.Left = Pic1.Left + 10
Call 暂停(1000)
Pic1.Left = Pic1.Left + 10
End Sub
'放大缩小
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Pic1.Size = New Point(Pic1.Width * 2, Pic1.Height * 2)
Call 暂停(1000)
Pic1.Size = New Point(Pic1.Width * 2, Pic1.Height * 2)
End Sub
'暂停
Sub 暂停(a As Integer)
Thread.Sleep(a)
End Sub
点击 Button1时 可以让pic1 往右移动10格 在停顿一秒 然后再往右移动
但是 点击Button2时 不能让pic2 放大2倍 在停顿一秒 在放大2倍
只能 显示 放大4倍的结果
不知问题出在哪 请各位高手解惑 谢谢