作者kkiie (玄火白月)
看板Visual_Basic
标题Re: [VB6 ] 一个图片会动的小问题
时间Sun Apr 8 19:18:43 2007
※ 引述《SKYLYING (好像消息有点慢~"~)》之铭言：
: 我是写一个大炮飞出去的程式
: 现在有个小问题就是
: 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 也就是炮弹 射出去之後就消失了 要怎麽把它变回来阿= =
: 一直不知道怎麽写他才会变回来
: 先谢谢@@
其实炮弹并不是不见了，只是他跑出画面而己。
所以你只要再设定一个条件值(IF)
让pic1.left或pic1.top小於视窗画面时，或是操作中止时，
重新再定位一次它们的left跟top即可。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 163.23.219.131
1F：推 SKYLYING:感谢^^ 04/08 21:25
2F：推 sarum10:顺便问...位置变回来後t能不能顺便归零呢?? 04/09 07:05
3F：推 sarum10:已解决ˊˋ 04/09 07:32