vb Picturebox 循环播放15张图片

发布网友发布时间：2022-06-01 19:56

共3个回答

热心网友时间：2023-10-14 10:46

添加部件：Microsoft Windows Common Controls 6.0。
然后向窗体中添加一个imagelist控件。
右击imagelist控件属性，图像，然后依次插入你要的图片。它们的索引号是从1开始的。
再添加一个按钮，一个picturebox。
所有代码如下：
Private Sub Command1_Click() '开始
Dim i As Integer
Do
For i = 1 To ImageList1.ListImages.Count
Picture1.Cls
Picture1.PaintPicture ImageList1.ListImages(i).Picture, Picture1.ScaleLeft, Picture1.ScaleTop ', Picture1.ScaleWidth, Picture1.ScaleHeight'加上后面的可以自适应图片
t0 = Timer
Do While Timer - t0 <= 1 '每张图片之间间隔1秒
DoEvents
Loop
Next i
Loop Until a = 1 'a=1无任何意义，do loop循环只是为了循环，不要循环的话去掉就可以
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
Picture1.AutoRedraw = True
End Sub

热心网友时间：2023-10-14 10:47

在timer1中使用 Picture1.Picture = LoadPicture("C:\My Pictures\1.jpg")这种方式加载图片，
定时换下一种图片
dim num as integer
sub timer1_timer()
num=num+1
if num>15 then num=1
Picture1.Picture = LoadPicture("C:\My Pictures\"+trim(str(num))+".jpg")
end sub

热心网友时间：2023-10-14 10:47

这个不大懂