vb菜单与对话框
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
单，完成相应的代码编写。
［例5-16］在［例5－15］的基础上增加一个弹出式菜单，包含 “剪切”、“复制”和“粘贴”功能，右击文本框时弹出该快 捷菜单。
操作步骤： （1）在菜单编辑器里新增一个菜单，保证该菜单为顶 层菜单项，即无缩进符号。标题设定为“Edit”(该标题 和名称可任意设定，因为它在快捷菜单弹出时不显示)。 （2）将“Edit”菜单的可见属性设置为False。 （3）单击“下一个”命令按钮，标题文本框中输入 “剪切”，编辑对应的名称，单击按钮，将“剪切”菜单 设置为“Edit”菜单的下一级菜单。 （4）参照步骤3完成“复制”和“粘贴”菜单的设置。 （5）使用PopupMenu方法来显示弹出式菜单。
问题分析： 本例涉及到两种通用对话框的使用，当单击“打开” 就弹出打开对话框，当用户选择一文本文件，便可将 该文件内容读入到文本框；当单击“保存”就打开另 存为对话框。用户输入文件名后，便可以新的文件名 保存文本框的内容。
通用对话框不是标准控件，使用时必须先将该控件添加 到工具箱里。步骤如下
工程/部件
文件
O
保存
mnuFileSave
文件
S
－
mnuFileBar
文件
无
退出
mnuFileQuit
文件
Q
编辑
mnuEdit
无
E
剪切
mnuEditCut
编辑
无
复制
mnuEditCopy
编辑
无
粘贴
mnuEditPaste
编辑
无
字体 黑体 宋体
mnuEditFont Font1 Font2
编辑
无
字体
无
字体
无
快捷键 无
菜单、对话框和多窗体设计
第三阶段之一
本节任务：
1、5.4小节 2、菜单的使用——下拉菜单和弹出式菜单 3、对话框的分类和使用 4、多窗体程序设计
5.4.1 菜单和对话框程序设计
［例5-15］ 设计一个包含菜单的窗体，其中主菜单为文件和编 辑菜单，文件菜单包含新建、打开、保存、退出四个下拉菜单， 编辑菜单包含剪切、复制、粘贴和字体四个下拉菜单，字体菜单 又包含黑体、宋体、楷书三个下拉菜单。效果如下图所示：
End Sub
颜色对话框和字体对话框的使用
Text1
CommonDialog1
“颜色”对话框
颜色对话框是当Action=3时的 通用对话框，如右图。
重要属性：Color，用来返回 或设置选定的颜色。
Private Sub cmdColor_Click() CommonDialog1.Action = 3 ‘将通用对话框显示为颜色对话框 Text1.ForeColor = CommonDialog1.Color
3
“颜色”对话框 ShowColor
4
“字体”对话框 ShowFont
5
“打印”对话框 ShowPrinter
6
“帮助”对话框 ShowHelp
比如：使用打开文件对话框，在运行时打开一幅图像
CommonDialog1
Image1 Command1
“装入图像”按钮代码设计如下：
Private Sub Command1_Click() CommonDialog1.ShowOpen ′将通用对话框显示为打开文件对话 Image1.Picture =LoadPicture(CommonDialog1.FileName)
选定部 件标签
选定Microsoft CommDialog Control 6.0
确定
通用对话框可以提供6种形式的对话框，通过设置 Action属性值或调用Show方法来建立不同类型的对 话框。如下表：
Action属性
含义
对应方ShowOpen
2
“另存为”对话框 ShowSave
属性值 Text1 清空 True 3-both
单击“编辑”菜单下的“字体”子菜单，选择 “黑体”，弹出对应的“单击”事件代码编辑窗口， 黑体菜单的名称为在设计时输入的名称“Font1”。
“黑体”子菜单“单击”事件代码： Private Sub Font1_Click() Text1.FontName= "黑体" End Sub 按照上述步骤依次选择“宋体”、“楷体”子菜
复制的Click事件代码： Clipboard.Clear Clipboard.SetText Text1.SelText mnueditpaste.enable=true
粘贴的Click事件代码： Text1.SelText = Clipboard.GetText()
［例5-17］ 将“文件”菜单里“打开”和“保存” 菜单功能补充完整。
Ctrl＋N
Ctrl＋S 无
Ctrl＋Q 无
Ctrl＋X Ctrl＋C Ctrl＋V Ctrl＋F
无 无
（3）属性与代码设计 菜单属性设置好后，要给每个需要完成某些功能的
菜单项编写对应的代码。 先给窗体内添加一个文本框Text1，Text1的属性如
下表所示。
对象名 Text
属性 Name Text MultiLine ScrollBar
VB菜单包含下拉菜单和弹出式菜单，用菜单编辑器可以非 常方便的建立菜单。 操作步骤： （1）从“工具”菜单上，选取“菜单编辑器”，进入对 话框；
（2）菜单属性设置
表5-10 菜单属性设置
标题 文件 新建
名称 mnuFile mnuFileNew
上级菜单 无 文件
热键 F N
打开
mnuFileOpen
If Button = 2 Then
Text1.Enabled = False
Text1.Enabled = True
PopupMenu edit
End If
End Sub
这两条语句用于屏 蔽系统的快捷菜单
1 — 按下鼠标的左按钮 2 — 按下鼠标的右按钮 4 — 按下鼠标的中间按钮
剪切的Click事件代码： Clipboard.Clear ‘清空剪贴板的内容 ’将文本框中所选的内容复制给剪贴板 Clipboard.SetText Text1.SelText Text1.SelText = “ ” ‘删除所选 mnueditpaste.enable=true '粘贴恢复为可用
语法格式：[对象].PopupMenu 菜单名
（6）需要在文本框的Mousedown事件里编写对应的代 码。具体代码如下：
Private Sub Text1_MouseDown (Button As
Integer, Shift As Integer, X As Single, Y As Single)
［例5-16］在［例5－15］的基础上增加一个弹出式菜单，包含 “剪切”、“复制”和“粘贴”功能，右击文本框时弹出该快 捷菜单。
操作步骤： （1）在菜单编辑器里新增一个菜单，保证该菜单为顶 层菜单项，即无缩进符号。标题设定为“Edit”(该标题 和名称可任意设定，因为它在快捷菜单弹出时不显示)。 （2）将“Edit”菜单的可见属性设置为False。 （3）单击“下一个”命令按钮，标题文本框中输入 “剪切”，编辑对应的名称，单击按钮，将“剪切”菜单 设置为“Edit”菜单的下一级菜单。 （4）参照步骤3完成“复制”和“粘贴”菜单的设置。 （5）使用PopupMenu方法来显示弹出式菜单。
问题分析： 本例涉及到两种通用对话框的使用，当单击“打开” 就弹出打开对话框，当用户选择一文本文件，便可将 该文件内容读入到文本框；当单击“保存”就打开另 存为对话框。用户输入文件名后，便可以新的文件名 保存文本框的内容。
通用对话框不是标准控件，使用时必须先将该控件添加 到工具箱里。步骤如下
工程/部件
文件
O
保存
mnuFileSave
文件
S
－
mnuFileBar
文件
无
退出
mnuFileQuit
文件
Q
编辑
mnuEdit
无
E
剪切
mnuEditCut
编辑
无
复制
mnuEditCopy
编辑
无
粘贴
mnuEditPaste
编辑
无
字体 黑体 宋体
mnuEditFont Font1 Font2
编辑
无
字体
无
字体
无
快捷键 无
菜单、对话框和多窗体设计
第三阶段之一
本节任务：
1、5.4小节 2、菜单的使用——下拉菜单和弹出式菜单 3、对话框的分类和使用 4、多窗体程序设计
5.4.1 菜单和对话框程序设计
［例5-15］ 设计一个包含菜单的窗体，其中主菜单为文件和编 辑菜单，文件菜单包含新建、打开、保存、退出四个下拉菜单， 编辑菜单包含剪切、复制、粘贴和字体四个下拉菜单，字体菜单 又包含黑体、宋体、楷书三个下拉菜单。效果如下图所示：
End Sub
颜色对话框和字体对话框的使用
Text1
CommonDialog1
“颜色”对话框
颜色对话框是当Action=3时的 通用对话框，如右图。
重要属性：Color，用来返回 或设置选定的颜色。
Private Sub cmdColor_Click() CommonDialog1.Action = 3 ‘将通用对话框显示为颜色对话框 Text1.ForeColor = CommonDialog1.Color
3
“颜色”对话框 ShowColor
4
“字体”对话框 ShowFont
5
“打印”对话框 ShowPrinter
6
“帮助”对话框 ShowHelp
比如：使用打开文件对话框，在运行时打开一幅图像
CommonDialog1
Image1 Command1
“装入图像”按钮代码设计如下：
Private Sub Command1_Click() CommonDialog1.ShowOpen ′将通用对话框显示为打开文件对话 Image1.Picture =LoadPicture(CommonDialog1.FileName)
选定部 件标签
选定Microsoft CommDialog Control 6.0
确定
通用对话框可以提供6种形式的对话框，通过设置 Action属性值或调用Show方法来建立不同类型的对 话框。如下表：
Action属性
含义
对应方ShowOpen
2
“另存为”对话框 ShowSave
属性值 Text1 清空 True 3-both
单击“编辑”菜单下的“字体”子菜单，选择 “黑体”，弹出对应的“单击”事件代码编辑窗口， 黑体菜单的名称为在设计时输入的名称“Font1”。
“黑体”子菜单“单击”事件代码： Private Sub Font1_Click() Text1.FontName= "黑体" End Sub 按照上述步骤依次选择“宋体”、“楷体”子菜
复制的Click事件代码： Clipboard.Clear Clipboard.SetText Text1.SelText mnueditpaste.enable=true
粘贴的Click事件代码： Text1.SelText = Clipboard.GetText()
［例5-17］ 将“文件”菜单里“打开”和“保存” 菜单功能补充完整。
Ctrl＋N
Ctrl＋S 无
Ctrl＋Q 无
Ctrl＋X Ctrl＋C Ctrl＋V Ctrl＋F
无 无
（3）属性与代码设计 菜单属性设置好后，要给每个需要完成某些功能的
菜单项编写对应的代码。 先给窗体内添加一个文本框Text1，Text1的属性如
下表所示。
对象名 Text
属性 Name Text MultiLine ScrollBar
VB菜单包含下拉菜单和弹出式菜单，用菜单编辑器可以非 常方便的建立菜单。 操作步骤： （1）从“工具”菜单上，选取“菜单编辑器”，进入对 话框；
（2）菜单属性设置
表5-10 菜单属性设置
标题 文件 新建
名称 mnuFile mnuFileNew
上级菜单 无 文件
热键 F N
打开
mnuFileOpen
If Button = 2 Then
Text1.Enabled = False
Text1.Enabled = True
PopupMenu edit
End If
End Sub
这两条语句用于屏 蔽系统的快捷菜单
1 — 按下鼠标的左按钮 2 — 按下鼠标的右按钮 4 — 按下鼠标的中间按钮
剪切的Click事件代码： Clipboard.Clear ‘清空剪贴板的内容 ’将文本框中所选的内容复制给剪贴板 Clipboard.SetText Text1.SelText Text1.SelText = “ ” ‘删除所选 mnueditpaste.enable=true '粘贴恢复为可用
语法格式：[对象].PopupMenu 菜单名
（6）需要在文本框的Mousedown事件里编写对应的代 码。具体代码如下：
Private Sub Text1_MouseDown (Button As
Integer, Shift As Integer, X As Single, Y As Single)