文档详情

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

发布:2017-06-26约3.03千字共4页下载文档
文本预览下载声明
第七章 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方法:调用打印机对话框 如
显示全部
相似文档