VB6.0怎麽編寫小車（可以是壹個圖片）平行勻速運動？直接發源碼，謝謝 好的給50分

界面：

代碼：

Dim?t?As?Date

Private?Sub?Command1_Click()

Timer1.Interval?=?1

If?Command1.Caption?=?"開始"?Then?t?=?Time

End?Sub

Private?Sub?Command2_Click()

Timer1.Interval?=?0

Command1.Caption?=?"繼續"

End?Sub

Private?Sub?Form_Load()

Picture1.Picture?=?LoadPicture("F:\賽車1.jpg")

Picture1.AutoSize?=?True

Picture1.Left?=?100

Picture1.Top?=?100

t?=?UpDown1.Value

Text1.Text?=?UpDown1.Value

Text2.Text?=?0

End?Sub

Private?Sub?Timer1_Timer()

Text2.Text?=?CDate(Time?-?t)

Picture1.Left?=?Picture1.Left?+?UpDown1.Value

If?Picture1.Left?>?Me.Width?-?Picture1.Width?-?100?Then?Picture1.Left?=?100

End?Sub

Private?Sub?UpDown1_Change()

Text1.Text?=?UpDown1.Value

End?Sub

運行效果：

上一篇:javahashmap擴容卡頓

下一篇:面部識別的原理是什麽？