vb中如何让一系列照片显示在相应图片框内

发布网友发布时间：2023-04-28 23:17

共3个回答

热心网友时间：2023-10-31 02:17

添加四个控件：Drive1、Dir1、File1、Image1，不要用List1。

源代码，已测试：
Private Sub Dir1_Change()
File1.Path = Dir1.Path
Drive1.Drive = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
End Sub

Private Sub Form_Load()
File1.Pattern = "*.jpeg;*.jpg;*.gif;*.bmp;*.ico;*.cur"
Dir1.Path = "c:\photo"
Image1.Stretch = True '图片随控件大小改变，否则=False
End Sub

热心网友时间：2023-10-31 02:17

1.如果图片框只有一个，图片轮播的话，用一个Timer控件，把图片名字改成“PP01”“PP02”.....在Timer的过程中定义一个静态变量来累加自己，每次载入的图片文件名称就用这个静态变量值和字符串来凑。
2.如果是N个图片依次显示在N个图片框里的话，也是把图片名字改成“PP01”“PP02”.....图片框弄成数组，载入图片名称用索引号和字符串来凑。

热心网友时间：2023-10-31 02:18

Image1.Picture = LoadPicture("E:\168.jpg")
用这样的语句就好了啊
变换的话可以用TIMER控制图片切换就好了