Question

VB中CommonDialog怎么用？

点击做窗口的conmand1按钮，显示类似于右边的界面，选择所需文件后（如：666.txt），将文件名（包括扩展名）赋值给Text1.text!
急用！！！本人先谢了！

Answer 1

CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。通过运行
Windows 帮助引擎控件还能显示帮助。

语法

CommonDialog

说明

CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态链接库 ommdlg.dll.
的例程之间提供了一个接口。为了用这个控件创建一个对话框，ommdlg.dll. 必须在 Microsoft Windows 的 SYSTEM 目录下。

在应用程序中要使用 CommonDialog 控件，可将其添加到窗体中并设置其属性。控件所显示的对话框由控件的方法确定。在运行时，当相应的方法被调用时，将显示一个对话框或是执行帮助引擎；在设计时，CommonDialog
控件是以图标的形式显示在窗体中。该图标的大小不能改变。

使用指定的方法，CommonDialog 控件能够显示下列对话。

方法
所显示的对话框

ShowOpen
显示“打开”对话框

ShowSave
显示“另存为”对话框

ShowColor
显示“颜色”对话框

ShowFont
显示“字体”对话框

ShowPrinter
显示“打印”或“打印选项”对话框

ShowHelp
调用 Windows 帮助引擎

在对话框接口上单击，CommonDialog 控件将自动提供与上下文有关的帮助：

单击标题栏中的“这是什么？”帮助按钮，然后单击想详细信息的项目。

将鼠标放在想进一步详细信息的项目上，单击右键，然后在所显示的上下文菜单中选择这是什么命令。

操作系统提供在 Windows 95 帮助弹出中显示的文本。也可以通过设置 Flags 属性，在带有
CommonDialog 控件的对话框中显示一个帮助按钮，但是，必须在这个位置提供帮助主题。

注意 无法指定对话框显示在什么地方。

Answer 2

'修改一下楼上的代码
Private Sub Command1_Click()
On Error GoTo userCanceled
With CommonDialog1
.FileName = ""
.InitDir = App.Path
.CancelError = True
.Filter = "文本文件(*.txt)|*.txt"
.ShowOpen
End With
Text1.Text = CommonDialog1.FileTitle '修改此处,不带路径,只显示文件名和后缀名
userCanceled:
End Sub

Answer 3

Private Sub Command1_Click()
On Error GoTo userCanceled
With CommonDialog1
.FileName=""
.InitDir = App.Path
.CancelError = True
.Filter = "文本文件(*.txt)|*.txt"
.ShowOpen
End With
Text1.Text = CommonDialog1.FileName
userCanceled:
End Sub

追问

有时间帮忙看看http://zhidao.baidu.com/question/422675333.html?quesup2&oldq=1这个吧！谢了！