[VB6 ] 一個圖片會動的小問題

看板Visual_Basic作者 (好像消息有點慢~"~)時間18年前 (2007/04/08 16:27), 編輯推噓0(0推 0噓 0→)
留言0則, 0人參與, 最新討論串1/2 (看更多)
我是寫一個大砲飛出去的程式 現在有個小問題就是 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
‣ 更多 SKYLYING 的文章
文章代碼(AID): #166ATUUF (Visual_Basic)
‣ 更多 SKYLYING 的文章
文章代碼(AID): #166ATUUF (Visual_Basic)