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

答案:4 悬赏:10 手机版

解决时间 2021-04-09 11:59

提问者网友：你挡着我发光了
2021-04-08 11:09

最佳答案

五星知识达人网友：行雁书
2021-04-08 12:04

添加四个控件：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楼网友：十鸦
2021-04-08 15:36

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

2楼网友：雾月
2021-04-08 14:52

建一个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

3楼网友：山君与见山
2021-04-08 13:15

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息