关于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说明...