vb中怎么让一个小火箭的图片 运动到上面的云朵图片下面一点 运动过程中越来越快 到达云朵时停止

来源：百度知道 编辑：UC知道 时间：2024/09/21 07:02:22
初始时，云朵在窗体上方，航天飞机在窗体下方

按cmd1(发射)按钮后，航天飞机开始飞向云朵，且越飞越快。最后接近云朵时停止 （是不是用timer 这个控件的代码格式 我不会，各位大虾讲解越详细越好 HOHO ）

添加两个PictureBox，一个CommandButton，一个Timer
Picture2的位置在Picture1的下方

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Picture2.Top = Picture2.Top - 5 * 15 '每次移动5个像素
Timer1.Interval = Timer1.Interval - 30
If Timer1.Interval <= 50 Then Timer1.Interval = 50
If Picture2.Top <= Picture1.Top + Picture1.Height Then Timer1.Enabled = False
End Sub