求教，如图这里有3个picturebox，我要怎么做才能让这 - vb吧

level 5

吸血鬼马云😈 楼主

求教，如图
这里有3个picturebox，我要怎么做才能让这三个picturebox依次读取一个文件夹里的第1、2、3张图片？

2022年07月28日 06点07分 1

level 5

吸血鬼马云😈 楼主

vb 6.0

2022年07月28日 06点07分 2

level 5

吸血鬼马云😈 楼主

而且需要实时读取

2022年07月28日 06点07分 3

level 5

吸血鬼马云😈 楼主

会用到键盘按键和点击按钮

2022年07月28日 06点07分 4

level 10

潮州闻鸡起舞

事前不知道图片的文件名？

2022年07月28日 11点07分 5

吸血鬼马云😈

不知道

2022年07月30日 09点07分

潮州闻鸡起舞

@吸血鬼马云😈 具体代码没写过，给个思路：获取某一目录下（不含子目录）一种或多种扩展名的文件名集合，赋值给一个数组，然后分别判断第1、第2、第3个元素是否存在并赋值给三个pic控件。

2022年07月30日 09点07分

吸血鬼马云😈

@潮州闻鸡起舞谢谢！

2022年08月02日 17点08分

吸血鬼马云😈

@潮州闻鸡起舞我想要按照文件修改时间越早越靠前的排序方式来读取图片，请问应该如何实现呢？

2022年08月02日 17点08分

吧务

level 13

Luosen56

知道图片的文件名，就直接【装载】即可。
Picture1.Picture = LoadPicture("文件夹名\图片文件1.JPG")
Picture2.Picture = LoadPicture("文件夹名\图片文件2.JPG")
Picture3.Picture = LoadPicture("文件夹名\图片文件3.JPG")
当然，也可以是【BMP】【CUR】【ICO】格式的图片。
如果图片格式不对，请用其他方法先转换格式。

2022年07月29日 03点07分 6

吸血鬼马云😈

不知道文件名怎么办

2022年07月30日 09点07分

吸血鬼马云😈

VB代码支不支持通配符？

2022年07月30日 09点07分

Luosen56

VB 在【文件框】（File?）里对列表文件进行过滤，就可以支持【通配符】。如：【File1.Pattern = "*.JPG"】

2022年07月31日 00点07分

吸血鬼马云😈

@Luosen56 我的图片里有jpg和png格式的，怎么办？

2022年08月02日 17点08分

level 1

zcldjm

Private Sub Command1_Click()
File1.ListIndex = 0
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
File1.ListIndex = 1
Picture2.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
File1.ListIndex = 2
Picture3.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End Sub
Private Sub Form_Load()
File1.Path = "c:\z" '需要额外多添加一个filelistbox控件,并指定三个图像文件存放的路径
File1.Pattern = "*.bmp" '指定图像类型
End Sub

2022年07月30日 18点07分 7

吸血鬼马云😈

谢谢！我研究一下

2022年08月02日 17点08分

吧务

level 13

Luosen56