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

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

添加四个控件：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

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

建一个drive1，dir1,file1,label1。 代码如下。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ private sub dir1_change() file1.path = dir1.path label1.caption = "" dim i as integer for i = 0 to file1.listcount - 1 label1.caption = label1.caption & file1.list(i) & vbcrlf next end sub private sub drive1_change() dir1.path = drive1.drive end sub

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