作者Peruheru (还在想)
看板Visual_Basic
标题Re: [VB2008] 如何让图片停留在某一个位置一段时间 …
时间Fri May 22 00:31:14 2009
※ 引述《j76992001 (人缘有待等)》之铭言：
: Private Sub Button1_Click(ByVal sender As System.Object,
: ByVal e As System.EventArgs) Handles Button1.Click
: Turtle.Left = Turtle.Left + 80
: System.Threading.Thread.Sleep(1)
: Application.DoEvents()
: If RadioButton1.Checked = True Then
: Do While Rabbit.Left < Me.ClientSize.Width
: If Rabbit.Location.X = Tree.Location.X Then
: End If
: Rabbit.Left = Rabbit.Left + 1
: System.Threading.Thread.Sleep(1)
: Application.DoEvents()
: If Turtle.Left = Me.ClientSize.Width Then
: MsgBox("乌龟获胜", , )
: ElseIf Rabbit.Left = Me.ClientSize.Width Then
: MsgBox("兔子获胜", , )
: End If
我认为你在获胜之後就应该要离开回圈
另外我除了开头的乌龟左缘+80以後，没有再看到乌龟移动的讯息
你的乌龟只动一次吗?还是每次按每次加?
如果是要每次按每次加，那兔子的运算就应该放到别处吧?
你得写法我实在很不容易理解
单纯得把兔子放到一个计时器里面不好吗?
为什麽要用特异得写法呢?
: Loop
: End If
: End Sub
: 这是目前全部的程式码~"~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.160.163.42
1F：推 j76992001:恩恩 我用Timer写看看 感谢P大的帮忙 05/22 00:33
2F：推 foliyo:我有做过赛马的,建议牵扯到需要移动的 都用timer会简单一些 05/23 20:10
3F：→ lchwzu:用Timer的确会让它变得简单些 05/27 10:32