作者j76992001 (人缘有待等)
看板Visual_Basic
标题Re: [VB2008] 如何让图片停留在某一个位置一段时间 …
时间Fri May 22 00:18:23 2009
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
Loop
End If
End Sub
这是目前全部的程式码~"~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.38.17.21