VB里的Image和Timer的问题，高手来帮忙，谢谢！

来源：百度知道 编辑：UC知道 时间：2024/06/05 16:47:50
一个窗体上有一个当前窗体宽度的Image控件，一个Timer控件
我有一张5倍窗体宽度的图片。
我想实现：图片在Image控件中每隔1秒自右向左不间断移动。

高手解答，万分感谢！

写的时候没注意你的图片大小，这么大啊。。。你自己试一下，看可以不！

Dim m As Integer
Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path + "\1.jpg")
Timer1.Interval = 1000
m = 40
End Sub

Private Sub Timer1_Timer()
Image1.Move Image1.Left - m
End Sub