Visual Basic程序设计教案：第七章 VB高级控件Action控件01.docVIP

第七章 VB高级控件Action控件 教学重点： 孰练掌握VB常用高级控件的属性、方法、事件及应用。 掌握公用对话框、Windows公用控件的用法。 教学难点： 高级控件的主要属性、方法、事 件 7.1 公用对话框（Commondialog） “工程”--“部件”对话框--“Microsoft Common Dialog Control 6.0“包括： “打开”对话框 “另存为”对话框 “颜色”对话框 “字体”对话框 “打印”对话框 “帮助”对话框 公用对话框的调用可以通过Commondialog的属性和方法实现. Action属性：在代码中设置, 调用不同系统对话框 属性值 说明 0 没有操作 1 显示“打开”对话框 2 显示“另存为”对话框 3 显示“颜色”对话框 4 显示“字体”对话框CommonDialog对象flags属性设为3，2 5 显示“打印”对话框 6 显示“帮助”对话框 如： Commondialog1.action=1 调用打开对话框 常用方法： ShowOpen 显示“打开”对话框 ShowSave 显示“另存为”对话框 ShowColor 显示“颜色”对话框 ShowFont 显示“字体”对话框 ShowPrinter 显示“打印”对话框 ShowHelp 显示“帮助”对话框 如：Commondialog1.showopen 调用打开对话框 1.“打开”对话框（“另存为”对话框相似） 调用 “打开” 对话框: 用 ShowOpen方法, action属性 如：Commondialog1.showopen 或 CommonDialog1.action=1 Filename属性： 设置或返回对话框中选定驱动器、目录和文件名FileTitle 属性： 设置或返回对话框中选定的文件名 Filter属性： 设置或返回对话框中显示文件类型的过滤器。 格式：CommonDialog1.filter=“文件类型描述|类型通配符”例 ：CommonDialog1.filter=“文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc” Private Sub Command1_Click() CommonDialog1.ShowOpen CommonDialog1.Action = 1 Image1.Picture = LoadPicture(CommonDialog1.FileName) End Sub Private Sub Command2_Click() Image1.Picture = Nothing End Sub Private Sub Command3_Click() Unload Me End Sub 2、“颜色”对话框 Showcolor方法：调用系统颜色对话框 格式： Commondialog1.showcolor ( 或 Commondialog1.action=3) Color 属性：返回用户选定的颜色 格式：Commondialog1.showcolor 例如：通过颜色对话框,任意选择文本框背景色和字体颜色. Private Sub Command1_Click() CommonDialog1.ShowColor Text1.ForeColor = CommonDialog1.Color End Sub Private Sub Command2_Click() CommonDialog1.ShowColor Text1.BackColor = CommonDialog1.Color End Sub 3、“字体”对话框 Showfont方法：调用系统字体对话框 格式： Commondialog1.showfont (或Commondialog1.action=4) （将 CommonDialog对象flags属性设为3，2 或 H3,H2） Fontname属性：返回用户选定的字体 Fontsize属性：返回用户选定的字体大小 FontBold、FontItalic：返回用户选定的字体样式 Private Sub Command1_Click() CommonDialog1.ShowFont Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic End Sub 4、“打印”对话框 showprinter方法：调用打印机对话框 如