Question

怎样用 VB 制作个简单的小程序

怎样 使几张图片 在程序中动起来 ,按下"command1"键 使图片停止
知道的 请写下代码， 谢谢

Answer 1

form1上放置Command1,Timer1,Picture1(装入一个图片)

Dim MoveStep As Integer

Private Sub Command1_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
MoveStep = 100
End Sub

Private Sub Timer1_Timer()
If Picture1.Left + Picture1.Width + 30 > Form1.Width Then
MoveStep = -100
End If
If Picture1.Left < 0 Then
MoveStep = 100
End If
Picture1.Left = Picture1.Left + MoveStep
End Sub