作者me8z7gnk (SONG-SONG)
看板Visual_Basic
标题[.NET] picturebox放大又缩小问题
时间Sun Sep 18 23:57:56 2016
各位高手好
最近小弟 遇到了一个无解的问题
程式码如下:
'移动
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倍的结果
不知问题出在哪 请各位高手解惑 谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 111.253.3.54
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1474214278.A.845.html
1F：推 johnpage: 释放控制权，doeven 09/19 06:19
2F：推 garyl62327: Application.Doeven() 09/19 06:48
3F：→ me8z7gnk: 谢谢j大跟g大 原来有这个指令 又上了一课 谢谢 09/19 12:10
4F：嘘 MOONRAKER: 太厉害了 乱指一通误人子弟 问人的搞不清楚就感激涕零 09/19 16:10
5F：→ me8z7gnk: 给m大 我知道j大跟g大的给的单字 有小小错误 09/20 00:12
6F：→ me8z7gnk: 我在打程式有发现 不过我认为给个方向是非常重要的 09/20 00:12
7F：→ me8z7gnk: 给方向过後 就可以用google查询 相关指令了 09/20 00:12
8F：→ me8z7gnk: 所以我非常感谢 09/20 00:13