Question

你好，问一下关于VB中commondialog的用法问题

我的代码如下， Dim imFileName As String '文件路径名
Dim ImageName As String '存储选取的图像名称用
CommonDialog_openims.DialogTitle = "选择处理图像"
'CommonDialog1.FileName = ""
CommonDialog_openims.Filter = "All Files(*.*)|JPEG Images(*.jpg;*.jpeg)|*.jpg;*.jpeg|" '对话框中可以显示的图像类型
CommonDialog_openims.CancelError = True
On Error GoTo Cancel
CommonDialog_openims.Flags = cdlOFNAllowMultiselect & cdlOFNExplorer '可以选择多个图像
CommonDialog_openims.ShowOpen '打开对话框
imFileName = CommonDialog_openims.FileName
Text_imname.Text = imFileName
Cancel:
Exit Sub
End Sub
为什么运行时却不能够显示文件夹里面的*.jpg等文件呢，也就是说选不了文件。
另外，我如何把选取的文件名显示在text.text中？
谢谢您的回答

Answer 1

是用vb6.0吗？？ 如果是的话，你看看是不是想完成下面代码的功能，
窗体上添加 command1 Picture1 CommonDialog1 text1 四个控件 代码如下
Private Sub Command1_Click()
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Text1 = Text1 & "--" & Space(1) & Dir(CommonDialog1.FileName)
End If
Picture1 = LoadPicture(CommonDialog1.FileName)
End Sub

Private Sub Form_Load()

Command1.Caption = "打开文件"
Text1 = "文件名称"
CommonDialog1.Filter = "All Files(*.*)|*.*|JPEG Images(*.jpg;*.jpeg)|*.jpg;*.jpeg|"
End Sub

Answer 2

CommonDialog_openims.Filter = "JPEG Images(*.jpg;*.jpeg)|*.jpg;*.jpeg|"
这样 就好了

Answer 3

monDialog的属性，那摩你先打开msdn然后在左边的标签中找到“索引”然后在里面输入
”CommonDialog“就可以看见那个控件了，然后点击回车就在右边显示出详细的描述了。在描述中的最上面就有属性，然后点击就看见了。

为了让你更清楚我可以把我做的切图发到我的空间里，你可以去看看。

这是地址：

看见图片后再放大一下才看的清楚。