菜单通用对话框.docx
- 文档编号:24314990
- 上传时间:2023-05-26
- 格式:DOCX
- 页数:14
- 大小:25.45KB
菜单通用对话框.docx
《菜单通用对话框.docx》由会员分享,可在线阅读,更多相关《菜单通用对话框.docx(14页珍藏版)》请在冰豆网上搜索。
菜单通用对话框
菜单、工具栏和通用对话框
菜单
菜单的种类:
下拉式菜单和弹出式菜单
菜单的访问:
鼠标访问和键盘访问。
键盘访问方式:
访问键和快捷键
下拉式菜单的构成:
以WORD为例,讲述一下下拉式菜单的构成
主菜单(主菜单项)下拉菜单(下拉菜单项)
理解菜单项的概念
一个菜单项就是一个控件,具有属性、事件、方法。
菜单项的属性
name:
菜单项的名称,是一个只读属性,只能在设计时指定。
Caption:
在菜单上显示的文字,设置访问键时,只需在要设置的字母前加“&”符号。
Index:
设置菜单控件数组元素的下标索引号,是一个整数。
(理解菜单控件数组的使用与含义)
Checked:
设定菜单控件是否可以复选。
Enable:
设定菜单控件是否可用。
Visible:
设定菜单控件是否可见。
windowlist:
设置菜单控件是否包含MDI窗体的子窗体列表。
菜单项的事件
只有一个唯一的事件(click事件)
菜单制作工具:
菜单编辑器的介绍。
要点:
用菜单编辑器创建菜单的步骤:
分隔条
访问键(CTRL)与快捷键(ALT)
示例:
P199
事件代码:
PrivateSubrehw()
Text1.Top=0
Text1.Left=0
Text1.Height=Me.ScaleHeight-200
Text1.Width=Me.ScaleWidth-200
EndSub
PrivateSubf111_Click(IndexAsInteger)
SelectCaseIndex
Case0
Text1.FontName="宋体"
Case1
Text1.FontName="楷体"
Case2
Text1.FontName="黑体"
EndSelect
EndSub
PrivateSubf131_Click(IndexAsInteger)
DimsAsInteger
Fors=0To2
f131(s).Checked=False
Nexts
SelectCaseIndex
Case0
Text1.FontSize=12
f131(0).Checked=True
Case1
Text1.FontSize=18
f131
(1).Checked=True
Case2
Text1.FontSize=24
f131
(2).Checked=True
EndSelect
EndSub
PrivateSubForm_Load()
Text1.FontSize=12
EndSub
PrivateSubForm_Resize()
rehw
EndSub
PrivateSubmenuabout_Click()
MsgBox"本程序1.0版",vbOKOnly,"一个具有菜单的程序"
EndSub
弹出式菜单
弹出式菜单:
上下文菜单、快捷菜单、右键菜单
为某对象设计弹出式菜单的步骤:
1:
在菜单编辑器中设计弹出式菜单,然后将顶级菜单设置为不可见。
2:
在对象的MouseDown事件过程中编写代码,用以下的PopupMenu方法显示弹出式菜单:
窗体名.PopupMenu弹出式菜单名,flags,x,y,boldcommand
功能:
在当前鼠标位置或指定的坐标位置显示弹出式菜单。
弹出式菜单的举例
事件中的参数(Button)的含义
1—按下鼠标的左按钮
2—按下鼠标的右按钮
4—按下鼠标的中间按钮
动态菜单的设计
通用对话框
功能:
对话框
通用对话框
VisualBasic提供一种使用最多的通用对话框控件(CommonDialog)。
加载:
通用对话框是一个ActiveX控件,使用时需加载,“工程”菜单中的“部件”菜单命令,在“部件”对话框中选择“MicrosoftCommonDialogControl6.0”,将其添加到工具箱中。
属性:
在应用程序要使用CommonDialog控件,可将其添加到窗体中并设置其属性。
设计时CommonDialog控件是以图标的形式显示,在运行阶段,通过调用相应的方法或将Action设置为相关值,确定显示哪种对话框。
类型
Action属性
方法
“打开”对话框
1
ShowOpen
“另存为”对话框
2
ShowSave
“颜色”对话框
3
ShowColor
“字体”对话框
4
ShowFont
“打印”对话框
5
ShowPrinter
“帮助”对话框
6
ShowHelp
注意:
通用对话框仅提供了一个用户和应用程序的信息交互界面,具体功能的实现还需编写相应的程序。
除了Action属性,还有DialogTitle属性,该属性用于设置对话框标题。
取消引发错误(CancelError)属性,该属性决定在用户按下“取消”按钮时是否产生错误信息。
方法:
VB提供了一组用来显示通用对话框的方法,这些方法是:
ShowOpen—显示“打开”对话框。
ShowSave—显示“另存为”对话框。
ShowColor—显示“颜色”对话框。
ShowFont—显示“字体”对话框
ShowPrinter—显示“打印机”对话框
ShowHelp—显示“帮助”对话框
如:
CommonDialog1.ShowOpen用来显示“打开”对话框。
使用“颜色”对话框
利用ShowColor方法设置颜色,它的最重要的属性是Color。
该属性返回或设置选定的颜色。
当用户在调色板中选择某颜色时,该颜色值赋给Color属性。
【例】使用ShowColor方法设置窗体的背景颜色。
PrivateSubCommand1_Click()
CommonDialog1.CancelError=True
OnErrorGoToErrorhandler
CommonDialog1.ShowColor
Form1.BackColor=CommonDialog1.Color
ExitSub
Errorhandler:
ExitSub
EndSub
使用ShowOpen方法和ShowSave方法
FileName:
属性:
用来设置和得到用户所选的文件名,包括路径。
FileTitle:
属性:
用于返回文件名,不包含路径。
该属性设计时无效,在程序中为只读。
Filter:
属性:
该属性用来过滤文件类型,使文件列表框中只显示指定类型的文件。
该属性在设计阶段和代码中都可以设置。
其格式为:
文件说明|文件类型
例如:
要在“文件类型”列表框中显示Word文档、文本文件和所有文件,Filter属性应设为:
Word文档|*.Doc|文本文件|*.txt|所有文件|*.*
FilterIndex:
属性:
指定文件类型列表框中的默认设置
InitDir:
属性:
指定打开对话框中的初始目录。
若显示当前目录,该属性不需要设置。
DefaultExt:
属性:
它表示所存文件的默认扩展名。
该属性只实用于另存为对话框。
【例】使用ShowOpen方法显示“打开”对话框,并以指定的文件名为打开文件过程的参数。
PrivateSubCommand1_Click()
'设置错误陷阱,CancelError为True
OnErrorGoToErrHandler
'设置过滤器
CommonDialog1.Filter="AllFiles(*.*)|(*.*)|Text_
Files(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"
'指定缺省过滤器
CommonDialog1.FilterIndex=2
'显示“打开”对话框
CommonDialog1.ShowOpen
'调用打开文件的过程
ExitSub
ErrHandler:
'用户按“取消”按钮
ExitSub
EndSub
“字体”对话框的使用
Flags属性:
该属性通知通用对话框是否显示屏幕字体、打印机字体或两者都有。
如果没有设置该属性而直接使用CommonDialog控件,VB将显示错误信息。
Flags属性设置值如下:
cdlCFScreenFonts=1屏幕字体
cdlCFScreenFonts=2打印机字体
cdlCFBoth=3两者皆有
cdlCFEffects=100出现删除线、下划线、颜色元素
Font属性集:
包括名字、字体大小、字体修饰。
Color属性:
表示字体的颜色。
使用该属性时,必须使Flags含有cdlCFEffects值。
【例】根据“字体”对话框中的选择来设置文本框的字体属性。
PrivateSubCommand1_Click()
CommonDialog1.CancelError=True
OnErrorGoToErrHandler
'设置Flags属性
CommonDialog1.Flags=cdlCFBothOrcdlCFEffects
'显示“字体”对话框
CommonDialog1.ShowFont
Text1.FontName=CommonDialog1.FontName
Text1.FontSize=CommonDialog1.FontSize
Text1.FontBold=CommonDialog1.FontBold
Text1.FontItalic=CommonDialog1.FontItalic
Text1.FontUnderline=CommonDialog1.FontUnderline
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Text1.ForeColor=CommonDialog1.Color
ExitSub
ErrHandler:
'用户按了“取消”按钮
ExitSub
EndSub
“打印”对话框的使用
“打印”对话框是当Action为5时的通用对话框,其重要属性如下:
Copies属性:
指定打印份数,该属性为整型值。
FromPage:
打印时起始页号。
ToPage:
打印终止页号。
【例】根据“打印”对话框,打印文本框中的信息。
PrivateSubCommand1_Click()
CommonDialog1.ShowPrinter
Fori=1ToCommonDialog1.Copies
Printer.PrintText1.Text
Nexti
Printer.EndDoc
EndSub
“帮助”对话框的使用
“帮助”对话框是当Action为6时的通用对话框,可以用于制作应用程序的联机帮助。
帮助对话框本身不能建立应用程序的帮助文件,只能将已创建好的帮助文件从磁盘中提取出来,并与界面连接起来,达到显示并检索帮助的目的。
创建帮助文件需要用MicrosoftWindowsHelpCompiler,即Help编辑器生成帮助文件。
通用对话框作为帮助对话框时涉及到的重要属性如下:
HelpCommand属性:
用于返回或设置所需要的联机Help帮助类型。
HelpFile属性:
用于指定Help文件的路径及文件名。
即找到帮助文件,再从文件中找到相应内容,显示在Help窗口内。
【例】当程序运行时,单击命令按钮,调用Notepad.hlp文件。
PrivateSubCommand1_Click()
CommonDialog1.HelpCommand=cdlHelpContents
CommonDialog1.HelpFile="C:
\windows\help\notepad.hlp"
CommonDialog1.HelpKey="创建页眉、页脚"
CommonDialog1.Action=6
EndSub
MDI窗体
多重窗体和多文档窗体
多重窗体
A.多重窗体应用程序就是指一个应用程序是由两个或两个以上具有相互平行关系的窗体组成的应用程序.
B.多重窗体的管理:
添加窗体、删除窗体、保存窗体
C.启动对象的设置
2)多文档窗体
A.多文档界面的含义就是允许创建在单个容器窗体中包含多个子窗体的用户界面。
B.MDI窗体应用程序特性
C.MDI窗体应用程序的创建方法
(1)创建新工程
(2)添加MDI窗体
(3)添加窗体,将其MDIChild属性设置为True
(4)重复步骤(3),直至MDI子窗体数满足要求为止
D.设置子窗体的排列方式
可用MDI窗体的Arrange方法。
语法格式:
对象名.Arrange参数
参数取值及含义
符号常数
值
说明
VbCascade
0
层叠所有非最小化的子窗体
VbTileHorizontal
1
水平平铺所有非最小化的子窗体
VbTileVertical
2
垂直平铺所有非最小化的子窗体
VbArrangeIcons
3
重排所有最小化MDI子窗体图标
【例】建立包含一个父窗体和六个子窗体的应用程序,在父窗体中有一个图片框控件,当用户单击图片框时,可以实现对父窗体中的六个子窗体进行重新排列。
工具栏的设计
作用:
常用于提供对最常用的菜单命令的快速访问
设计步骤:
(1)添加ToolBar控件、ImageList控件。
工程→部件→选择“MicrosoftWindowsCommonControls6.0”
常用ImageList控件提供工具栏所需的图片。
(2)在窗体上画ToolBar控件、ImageList控件
(3)设置ImageList控件。
(4)设置ToolBar控件的“属性页”。
定义按钮对象集。
引用索引号为n的按钮:
Buttons(n)
例:
设置Toolbar1中索引号为3的按钮的标题。
Toolbar1.Buttons(3).Caption="显示"
(5)编写代码:
在ButtonClick事件过程或ButtonMenuClick事件过程中编写。
A.工具栏控件的常用属性:
AllowCustomize属性
Enabled和Visible属性
ShowTips属性
B.工具栏控件中按钮(Button)对象的常用属性:
工具栏中每一个按钮(Button)对象,都是工具栏按钮集合(Buttons)中的一个元素,每一个Button对象都可以有自身的属性。
为了在代码中设置某个按钮对象的属性,可以采用如下的格式进行设置:
工具栏控件名.Buttons(Index).属性名=属性值
Index属性:
用于指定按钮对象在按钮集合中的位置。
Key属性:
用于为指定的按钮对象设置关键字。
Style属性:
设置按钮对象的样式。
ToolTipText属性:
用于显示提示文本。
Image属性:
设置按钮上所显示的图形,对应图形的索引号。
Value属性:
用于指定按钮的状态
tbrUnpressed,表示所指定的按钮未被按下
tbrpressed,表示所指定的按钮被按下
Enabled和Visible属性
C.常用方法
Add方法:
向工具栏添加新的按钮对象
语法:
工具栏名.Buttons.AddIndex[,Key,Caption,Style,Image]
Remove方法:
将指定的按钮对象从工具栏中删除
语法:
工具栏名.Buttons.RemoveIndex
D.常用事件
最常用的事ButtonClick事件。
该事件在用户选择工具栏中的某个按钮对象时被触发。
PrivateSub对象名_ButtonClick(ByValButtonAsMSComctlLib.Button)
EndSub
通常通过Button参数的Index或Key属性的判别,用于识别用户选择了工具栏中的哪个按钮对象。
【例】在的界面上设计工具栏,在工具栏上添加如图所示的图标按钮。
(利用Toolbar控件和ImageList控件)
提示:
将每个按钮的样式设置为1-tbrCheck
PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Index
Case1
IfButton.Value=tbrUnpressedThen
Text1.FontBold=False
Else
Text1.FontBold=True
EndIf
Case2
IfButton.Value=tbrUnpressedThen
Text1.FontItalic=False
Else
Text1.FontItalic=True
EndIf
Case3
IfButton.Value=tbrUnpressedThen
Text1.FontStrikethru=False
Else
Text1.FontStrikethru=True
EndIf
Case4
IfButton.Value=tbrUnpressedThen
Text1.FontUnderline=False
Else
Text1.FontUnderline=True
EndIf
EndSelect
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 菜单 通用 对话框