VB 图片下落

来源：百度知道 编辑：UC知道 时间：2024/07/02 17:44:45
我想让图片下落 比如:Image1和Image2这两张图片 我想让其中一张下落的快一点 另外一张下落的慢一点 应该怎么写?
怎么下落我也不知道!
谢谢!

方法一:
'每次下落的距离不一样
For i =1 to 100
Image1.Top = Image1.Top + 1
Image2.Top = Image2.Top + 2
Next

方法二:
'下落时间点不一样!
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i > 1 then
Image1.Top = Image1.Top + 1
ElseIf i > 2 Then
i = 0
Image2.Top = Image2.Top + 1
End if
End If