vb图片怎么用timer向上移动,且运行到顶继续从底部向上运动
PrivateSubCommand1_Click()Timer1.Interval=100EndSubPrivateSubCommand2_Click()EndEndSu...
Private Sub Command1_Click()
Timer1.Interval = 100
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Timer1_Timer()
Image1.Move Image1.Top - 50, Image1.Left
If Image1.Top < 0 Then Image1.Top = Form1.Height
End Sub
这样为何是斜向上？ 展开
Timer1.Interval = 100
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Timer1_Timer()
Image1.Move Image1.Top - 50, Image1.Left
If Image1.Top < 0 Then Image1.Top = Form1.Height
End Sub
这样为何是斜向上？ 展开
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
