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 控件的对话框中显示一个帮助按钮,但是,必须在这个位置提供帮助主题。注意 无法指定对话框显示在什么地方。详细信息 要查看各对话的帮助主题,单击“请参阅”。
解决方案 »
- 用VB SHELL如何对注册表内文件夹进行权限修改
- 新手做简单FTP功能(高手多多帮忙
- Media Player6 和9控件语句的差别?
- 我想用activereport做项目,行吗???
- 请问,这个SQL如何写呀?
- 简单问题:如何在VB中显示一个WORD文档的全部内容?
- 高分的菜鸟问题。关于开发好的工程的发布。大侠们救命!!!!特急
- 带有按钮的那种文本框是用的什么控件啊?
- 模拟点击其他进程的Toolbar按钮 C写的,哪位大侠翻译成VB~
- VB格式动态库的函数调用,怎么转换到DELPHI 里面
- 怎么样连接access2000数据库?马上给分!
- 整顿市场秩序,提倡信誉第一,该结帖得同志们赶快结帖吧
CommonDialog 控件。
以下在BAS中Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Dim OpenF As OPENFILENAME
Private Const OFN_FILEMUSTEXIST = &H1000
Private Const OFN_HIDEREADONLY = &H4
Private Const OFN_PATHMUSTEXIST = &H800
Public DefaultDir As String
Private Const OFN_EXTENSIONDIFFERENT = &H400
Private Const OFN_NOCHANGEDIR = &H8
Private Const OFN_OVERWRITEPROMPT = &H2
Private Const OFN_ALLOWMULTISELECT = &H200
Private Const OFN_EXPLORER = &H80000'存贮文件对话框
Public Function SaveFileDialoge(FrmObj As Form, ByVal TitleStr As String, ByVal FilterStr As String, ByVal DeauFaltFilename As String) As String
Dim Hl1 As Long
Dim OpenF1 As OPENFILENAME
With OpenF1
.hInstance = App.hInstance
.lpstrInitialDir = Fapath
.hwndOwner = FrmObj.hWnd
.lpstrTitle = TitleStr
.nMaxFile = 256
.nMaxFileTitle = 256
.lpstrDefExt = ".TXT"
.lpstrFilter = FilterStr
.lpstrFile = DeauFaltFilename & String(256 - Len(DeauFaltFilename), 0)
.lpstrFileTitle = .lpstrFile
.flags = OFN_OVERWRITEPROMPT + OFN_EXTENSIONDIFFERENT ' + OFN_NOCHANGEDIR
.nFilterIndex = 1
.lStructSize = Len(OpenF1)
End With
Hl1 = GetSaveFileName(OpenF1)
If Hl1 = 0 Then
SaveFileDialoge = ""
Else
SaveFileDialoge = Left$(OpenF1.lpstrFile, OpenF1.nMaxFile - 1)
End If
End Function以下在FORM中在FORM中添加一命令按钮并一图片框(请加载一图片文件至图片框)
'保存
Private Sub Command2_CLICKED()
Dim PicStr$
PicStr = SaveFileDialoge(Me, "保存图片为文件:", "位图文件(*.zhx)" & Chr(0) & "*.zhx", "MyIconS", SaveDir1$)
If PicStr <> "" Then
SavePicture PicIcons.Image, PicStr
End IfEnd Sub运行并点击命令按钮试一试是否图片保存为一文件了呢?