Question

VB编写图片随机滚动/停的软件

由一个picturebox和一个commandbutten组成，按下按钮后picturebox中图片（1.jpg-40.jpg）随机滚动（每秒变化10次左右），再次按下按钮后停止。求这段程序代码。可以直接贴上来，也可以发我邮箱：137568302#qq.com。高分求解。本人VB白痴，什么都不懂，所以大神们给的代码最好不要有错哦.当然，用其他方法能实现这个效果的也可以说。急求

Answer 1

Private Sub Form_Load()
Picture1.Cls
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer() '0.1秒随机变换图片
Dim Pfilename As String
Pfilename = App.Path & "\" & CStr(Int(Rnd * 40) + 1) & ".JPG"　　'图片路径及名称
Picture1.Picture = LoadPicture(Pfilename)
End Sub

Private Sub Command1_Click() '停止按钮
Timer1.Enable = False
End Sub

追问

大哥思路基本正确，但是有一点小问题：为什么播放图片的顺序是固定的......我看到了随机函数，但我每次测试都是一样的顺序......停止按钮好像有问题，大哥能自己VB中试下，然后把编好的程序发到137568302#qq.com吗？多谢了。

Answer 2

'拉幕式滚动
'把你的 1.jpg ----40.jpg 放在 C：\ 目录下
'在窗体上添加 Picture1 Timer1
Dim i%
Private Sub Form_Load()
i = 1
Timer1.Interval = 50
Picture1.Left = Me.ScaleLeft + Me.ScaleWidth
Picture1.Picture = LoadPicture("c:\" & i & ".jpg")
End Sub

Private Sub Timer1_Timer()
Picture1.Left = Picture1.Left - 50
If Picture1.Left <= Me.ScaleLeft / 15 - Picture1.Width Then
i = i + 1
If i > 40 Then i = 1
Picture1.Picture = LoadPicture("c:\" & i & ".jpg")
Picture1.Left = Me.ScaleLeft / 15 + Me.ScaleWidth
End If
End Sub

追问

大哥，能把它在VB中编好发到我的邮箱吗？137568302#qq.com 多谢了

追答

发了,记得一定要把图片文件(1.jpg-----40.jpg)放在C:\目录下

追问

大哥..有点地方不对..一个是40张图片要随机出现，不能按照顺序，第二，每秒钟换10张，不是10秒换一张...第三...不用做成滚动，变换就可以了。能再帮帮我吗？谢谢了

追答

改了,已发
其实拉幕也可很快.