各位高手好
最近小弟 遇到了一個無解的問題
程式碼如下:
'移動
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倍的結果
不知問題出在哪 請各位高手解惑 謝謝