Question

VB如何让图片框读入图片？

VB做一个图片查看器，要求点击按钮打开对话框选择图片文件，左侧的图片框读入图片。





Answer 1

首先通过VB的菜单[工程] -- [引用]，勾选：Microsoft Common Dialog Control 6.0 (SP6)  ---- 通用对话框控件 CommonDialog

[确定]，返回VB界面。

这时，在控件工具箱里就出现了CommonDialog控件类图标，可以添加1个通用对话框控件 CommonDialog1到你的窗体。

建议显示图片的控件使用Image而不是PictureBox，因为Image有一个Stretch属性，可以使得图片缩放大小以适应Image的大小。

完整代码如下：

Option Explicit

Private Sub Command1_Click()

'CancelError属性为True。
On Error GoTo ErrHandler
'设置过滤器
CommonDialog1.Filter = "图片文件 *.JPG|*.JPG|图片文件 *.BMP|*.BMP"
'指定缺省过滤器。
CommonDialog1.FilterIndex = 1
'显示“打开”对话框。
CommonDialog1.ShowOpen

Image1.Picture = LoadPicture(CommonDialog1.FileName)

'下面是使用PictureBox的代码，若你使用PictureBox，那么把上面这行代码删除
'Picture1.Picture = LoadPicture(CommonDialog1.FileName)

Exit Sub

ErrHandler:
'用户按“取消”按钮。

End Sub

Private Sub Form_Load()
   '若你使用PictureBox，那么把下面这行代码删除
   Image1.Stretch = True
End Sub