作者SKYLYING (好像消息有点慢~"~)
看板Visual_Basic
标题[VB6 ] 一个图片会动的小问题
时间Sun Apr 8 16:27:09 2007
我是写一个大炮飞出去的程式
现在有个小问题就是
Private Sub Command1_Click()
Timer1.Interval = 50
End Sub
Private Sub Command2_Click()
Option1 = False
Option2 = False
Option3 = False
Inptxt.Text = ""
pic1 = Initial
End Sub
Private Sub Timer1_Timer()
Static t As Integer
t = t + 1
a = Val(Inptxt.Text)
If Option1.Value = True Then
pic2.Left = pic2.Left + a * t
pic2.Top = pic2.Top + 0.5 * 9.8 * t ^ 2
End If
If Option2.Value = True Then
pic2.Left = pic2.Left + a * t
pic2.Top = pic2.Top + 0.5 * 1.63 * t ^ 2
End If
If Option3.Value = True Then
pic2.Left = pic2.Left + a * t
pic2.Top = pic2.Top + 0.5 * 30 * t ^ 2
End If
End Sub
以上是程式码
可是在command2的地方
我想要把整个程式还原成一开始的状态
option的部份ok
inptxt的部份也ok
可是 pic1 也就是炮弹 射出去之後就消失了 要怎麽把它变回来阿= =
一直不知道怎麽写他才会变回来
先谢谢@@
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.129.165.122