vb6 很多图片点击按钮出现相应的图片
时间: 2023-09-20 17:12:33 浏览: 120
可以使用一个数组来存储所有的图片文件路径,然后在按钮的Click事件处理程序中根据需要显示相应的图片。以下是一个简单的示例代码:
```vb
Dim imagePaths(5) As String '存储图片文件路径的数组
imagePaths(0) = App.Path & "\Images\image1.jpg"
imagePaths(1) = App.Path & "\Images\image2.jpg"
imagePaths(2) = App.Path & "\Images\image3.jpg"
imagePaths(3) = App.Path & "\Images\image4.jpg"
imagePaths(4) = App.Path & "\Images\image5.jpg"
Private Sub Command1_Click()
Dim index As Integer '要显示的图片在数组中的索引
index = 2 '假设要显示第3张图片
If Dir(imagePaths(index)) <> "" Then '判断文件是否存在
Image1.Picture = LoadPicture(imagePaths(index)) '将图片加载到Image控件中显示
Else
MsgBox "文件不存在!"
End If
End Sub
```
其中,imagePaths数组存储了所有的图片文件路径。在按钮的Click事件处理程序中,可以根据需要设置要显示的图片在数组中的索引。如果文件存在,则将图片加载到Image控件中显示。你需要根据实际情况修改代码中的图片文件路径和要显示的图片的索引。