Visual Basic程序设计教案:第七章 VB高级控件Action控件01.doc
文本预览下载声明
第七章 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方法:调用打印机对话框
如
显示全部