Question

vb如何用通用对话框打开图片文件

在应用程序所在目录下，有若干个图片文件，要如何用通用对话框控件选择其中的一个文件，然后在把文件名返回给窗体上的一个image控件？
我的源代码是这样的：
Private Sub Form_Load()
cdg1.InitDir = App.Path & "\\image"
cdg1.DialogTitle = "选择背景图片"
cdg1.Filter = "图片文件(*.jpg)|*.jpg"
cdg1.FileName = App.Path & "\\image\\11.jpg"
image1.picture=cdg1.filename
End Sub
（cdg是通用对话框在我的工程中的名称）
以上代码运行后vb报错说“类型不匹配”
不知道高手们都是怎么打开的？

Answer 1

Image1.Picture = LoadPicture(cdg1.filename)

image1.picutre的属性是图片属性，你不能直接拿字符串赋值，应该用LoadPicture函数加载图片。

MSDN帮助如下：
LoadPicture 函数

将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。

语法

LoadPicture([filename], [size], [colordepth],[x,y])

LoadPicture 函数语法有下列部分：

部分 描述
filename 可选的。字符串表达式指定一个文件名。可以包括文件夹和驱动器。如果未指定文件名，LoadPicture 清除图象或 PictureBox 控件。
size 可选变体。如果 filename 是光标或图标文件，指定想要的图象大小。
colordepth 可选变体。如果 filename 是一个光标或图标文件，指定想要的颜色深度。
x 可选变体，如果使用 y ，则必须使用。如果 filename 是一个光标或图标文件，指定想要的宽度。在包含多个独立图象的文件中，如果那样大小的图象不能得到时，则使用可能的最好匹配。只有当 colordepth 设为 vbLPCustom 时，才使用X 和 Y值。For icon files 255 is the maximum possible value
y 可选变体，如果使用 x， 则必须使用。如果 filename 是一个光标或图标文件，指定想要的高度。在包含多个独立图象的文件中，如果那样大小的图象不能得到时，则使用可能的最好匹配。For icon files 255 is the maximum possible value

设置值

size 的设置值为：

常量 值 描述

vbLPSmall 0 系统小图标。
vbLPLarge 1 系统大图标，由视频驱动程序决定。
vbLPSmallShell 2 外壳小图标大小，由“控制面板”中的 Display Properties 对话框中 Appearance 选项卡上的 Caption Buttons 的大小设置决定。
vbLPLargeShell 3 外壳大图标大小，由“控制面板”中的 Display Properties 对话框中 Appearance 选项卡上的图标大小设置决定。
vbLPCustom 4 自定义大小，由 x 和 y 参数提供值。

colordepth 的设置值为：

常量 值 描述

vbLPDefault 0 如果使用指定文件，则为最佳可用匹配。
vbLPMonochrome 1 2 色。
vbLPVGAColor 2 16 色。
vbLPColor 3 256 色。