请教:我用下面代码加载了图片,想让整排图片逐渐向左移动,该怎样做?谢谢。
Dim i%
Private Sub Form_Load()
Me.WindowState = 2
File1.Path = "E:\360data\重要数据\我的文档\我的图片"
For i = 1 To File1.ListCount - 1
Load Picture1(i)
Picture1(i).Visible = True
Picture1(i).Picture = LoadPicture(File1.Path & "\" & File1.List(i))
Picture1(i).Move i * Picture1(0).Width, Picture1(0).Top
Next
End Sub
[解决办法]
用定时器,过一段时间移一次,修改Picture1(i)的left属性
[解决办法]
添加一个定时器控件
sub timer1_timer
static m as long '不要无限移动,用m控制移动次数
dim pic as picturebox
m=m+1
if m<100 then '假设移动100次
for each pic in Picture1
pic.left=pic.left-n'n为你期望的每次移动距离,n定义为窗口变量,如果指定负数可以向右移动
next
else
timer1.enable=false
m=0'为下次激活定时器做准备
end if
end sub