关于vb中 commondialog的问题
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 控件的对话框中显示一个帮助按钮，但是，必须在这个位置提供帮助主题。
注意 无法指定对话框显示在什么地方。
用on error resume next语句：private sub command1_click()on error resume next……写上你按下确定按钮时的代码……if err.number=cdlcancel then ‘如果你按下的是取消按钮，那么就退出exit subend Ifend sub
commondialog只是给了你打开，保存等的对话框，它只给你文件路径和名称。如果要实现具体的保存和打开还要用其他代码的。比如打开（commondialog只是给了你"F:\d.txt"这个字符串而已）：
Open "F:\d.txt" For Binary As #1 '用二进制打开文件
Get #1, , sA '用Get语句从文件中获取字节
Text1 = sA '显示打开的文件
Close #1 '关闭文件
Dim p As String
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.doc)|*.doc"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 3
' 显示“打开”对话框
CommonDialog1.fileName = "ppower" & Date
CommonDialog1.ShowSave
Call dbclose
If Dir(CommonDialog1.fileName) = "" Then
Call FileCopy(App.Path & "\Database\ppower.mdb", CommonDialog1.fileName)
MsgBox "备份成功," & "ppower" & Date & ".bak"
Call dbopen
Else
p = MsgBox("文件已经存在,是否覆盖？", vbYesNo)
If p = vbYes Then
Call FileCopy(App.Path & "\Database\ppower.mdb", CommonDialog1.fileName)
MsgBox "备份成功," & "ppower" & Date & ".bak"
End If
Call dbopen
End If
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
Dim path As String
CommonDialog1.Filter = "TXT文件|*.txt|DOC文件|*.Doc"
CommonDialog1.ShowSave
path = CommonDialog1.FileName
If path = "" Then Exit Sub
'path 就是保存路径啊
支璧阿莫： CommonDialog 控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框.运行 Windows 帮助引擎时,控件还能够显示帮助.CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态连接库Commdlg.dll ...
石家庄市17733184748： VB中CommonDialog1是什么意思？
支璧阿莫： 控件对话框
石家庄市17733184748： VB 中 commondialog 在哪添加? - ？
支璧阿莫： 能找到,你按照字母顺序查找 microsoft common dialog control 6.0 拉动滚动条向下,拖动不到1厘米的地方,就能看到
石家庄市17733184748： 如何在VB 6.0中添加和使用CommonDialog 控件 - ？
支璧阿莫： 1 单击菜单“工程”下的“部件”命令,将弹出“部件”对话框,如下图所示.2 在“部件”对话框下的“控件”选项卡下选中Microsoft Common Dialog Control 6.0,单击确定既可以在左侧的控件工具箱中显示 Common Dialog控件.如下图所示3 在左侧的控件工具箱中拖拉刚才添加的Common Dialog控件到窗体中即可添加该控件.如下图所示4 再从左侧控件工具箱中拖拉一个命令按钮到窗体中,如下图所示
石家庄市17733184748： 在vb中如何添加commondialog控件？
支璧阿莫： 在工具箱中右键-->部件,在弹出的窗口中找到microsoft common dialog control 6.0 选中.确定 另附: 常用方法: showopen---打开 showsave--保存 showcolor--颜色 属性: filename--返回选中的文件路径 filter--文件过滤 简单实例:按钮一个,...
石家庄市17733184748： vb中CommonDialog1.Flags = &H3& Or &H1& Or &H2&是什么意思 - ？
支璧阿莫： cdlCCFullOpen &H2 显示全部的对话框,包括定义自定义颜色部分. cdlCCRGBInit &H1 为对话框设置初始颜色值 cdlCFBoth &H3 使对话框列出可用的打印机和屏幕字体.hDC 属性标识与打印机相关的设备描述体.
石家庄市17733184748： VB中的common dialog控件有哪些属性,分别是什么作用?？
支璧阿莫： common dialog控件的属性和按钮的属性差不多,你不用特意去学的,你只要掌握它的常见的六个方法就行,分别是:ShowColor显示颜色对话框、ShowFont显示字体对话框、ShowHelp显示帮助对话框、ShowOpen显示打开文件对话框、ShowPrinter显示打印对话框、ShowSave显示保存对话框
石家庄市17733184748： VB中的CommonDialog1.Filter=＂All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt＂是什么意思?求详解 - ？
支璧阿莫： 控件打开或者保存的文件后缀,All file是显示的名称,“.”表示所有文件都行,*.Doc和*.Txt都是显示的后缀,.Doc表示打开或者保存额格式后缀.如 (*.Txt)|*.Txt中格式是(显示的名称)|*格式后缀.
石家庄市17733184748： VB中如何使用CommonDialog控件获取当前的路径,不要包含文件名.？
支璧阿莫： With CommonDialog1 .ShowOpen 当前的路径 = Left(.FileName, InStrRev(.FileName, ＂\＂) - 1) End With
石家庄市17733184748： vb中commondialog控件的作用是什么？
支璧阿莫： 参考MSDNCommonDialog 控件CommonDialog 控件提供一组标准的操作对话框,进行诸如打开和保存文件,设置打印选项,以及选择颜色和字体等操作.通过运行 Windows 帮助引擎控件还能显示帮助.语法CommonDialog说明...
