通用对话框添加到工具箱

通用对话框添加到工具箱
工程/部件->选定部件标签->选定Microsoft CommDialog Control 6.0->确定
打开通用对话框：
通用对话框的类型Action方法
打开(Open)1ShowOpen
另存为(Save As)2ShowSave
颜色(Color)3ShowColor
字体(Font)4ShowFont
打印机(Printer)5ShowPrinter
帮助(help)6Showhelp
属性
Action：打开通用对话框。

DialogTiltle：对通用话框标题。

CancelError
True：选择“取消”按钮，出现错误警告；Err.Number置为32755(cdCancel)。

False(缺省)：选择“取消”按钮，没有错误警告。

1. “打开”文件对话框
属性
FileName：包含路径
FileTitle：不包含路径
Filter：例如，
Documents(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|*.* FilterIndex：决定在文件类型列表框中显示第几组类型的文件。

InitDir：初始化路径
例8.1简单的文本编辑程序,当按“打开”按钮，在“打开”对话框按“取消”按钮，显示有关信息。

Open CommonDialog1.filename For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
txtNoteEdit.Text = txtNoteEdit.Text + inputdata + _
Chr(13) + Chr(10)
Loop
Close #1
2. “另存为”对话框
没有提供真正的存储文件操作，仍需要编程完成储存操作。

属性DefaultExt：缺省扩展名
例8.1中“另存为...”按钮的事件过程
3. “颜色”对话框
属性Color：返回或设置选定的颜色。

例8.1中“颜色...”按钮的事件过程
4. “字体”对话框
Flags属性：指示所显示的字体类型，必须设置。

cdlCFScreenFonts &H1 屏幕字体
cdlCFPrinterFonts &H2 打印机字体
cdlCFBoth &H3 打印机字体和屏幕字体。

cdlCFEffects &H100 显示删除线和下划线检查框以及颜色组合框例8.1中“字体...”按钮的事件过程
5. “打印”对话框
属性
FromPage：起始页号
ToPage：终止页号
Copies：打印份数
如果打印驱动程序不支持多份打印，该属性有可能始终返回 1。

例8.1中“打印...”按钮的事件过程
6. “帮助”对话框
帮助文件需要用其它的工具制作，如Microsoft Windows Help Compiler。

属性例8.5
HelpCommand：在线Help帮助类型
HelpFile：Help文件的路径及其名称
HelpKey：在帮助窗口显示由该帮助关键字指定的帮助信息。

例8.1
代码：
Private Sub cmdOpen_Click()
CommonDialog1.CancelError = True
On Error GoTo nofile
CommonDialog1.Action = 1
txtNoteEdit.Text = ""
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
txtNoteEdit.Text = txtNoteEdit.Text + inputdata + Chr(13) + Chr(10) Loop
Close #1
Exit Sub
nofile:
If Err.Number = 32755 Then
MsgBox "按取消按钮"
Else
MsgBox "其它错误"
End If
End Sub
Private Sub cmdSaveas_Click()
On Error Resume Next
CommonDialog1.Action = 2
Open CommonDialog1.FileName For Output As #1
For i = 1 To Len(txtNoteEdit.Text)
Print #1, Mid$(txtNoteEdit.Text, i, 1);
Next i
Close #1
End Sub
Private Sub cmdColor_Click()
On Error Resume Next
CommonDialog1.Action = 3
txtNoteEdit.ForeColor = CommonDialog1.Color
End Sub
Private Sub cmdFont_Click()
On Error Resume Next
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
CommonDialog1.Action = 4
If CommonDialog1.FontName <> "" Then
txtNoteEdit.FontName = CommonDialog1.FontName
End If
txtNoteEdit.FontSize = CommonDialog1.FontSize
txtNoteEdit.FontBold = CommonDialog1.FontBold
txtNoteEdit.FontItalic = CommonDialog1.FontItalic
txtNoteEdit.FontStrikethru = CommonDialog1.FontStrikethru txtNoteEdit.FontUnderline = CommonDialog1.FontUnderline
End Sub
Private Sub cmdPrint_Click()
On Error Resume Next
CommonDialog1.Action = 5
For i = 1 To CommonDialog1.Copies
Printer.Print txtNoteEdit.Text
Next i
Printer.EndDoc
End Sub
Private Sub cmdQuit_Click()
End
End Sub
例8.5
代码：
Private Sub Command1_Click()
CommonDialog1.HelpCommand = cdlHelpContents CommonDialog1.HelpKey = "创建页眉、页脚" CommonDialog1.HelpFile = "C:\WINDOWS\HELP\NOTEPAD.HLP" CommonDialog1.Action = 6
End Sub。