VB菜单设计

计算机网络教研室
课堂小结
本节主要学习了如下内容： 建立菜单：命令与方法 菜单代码输入 设计文本编辑器 1）使用CommonDialog控件调用 Windows常用对话框。 2）使用增强文本框RichTextBox编 辑与保存文本文件。 3）用剪贴板实现复制、剪切、粘贴 操作。
计算机网络教研室
计算机网络教研室
丰富文本框: 属性:SelText、SelStart、 SelLength 方法：LoadFile、SaveFile
计算机网络教研室
通用对话框： 属性:Filter、FilterIndex、
方法：ShowOpen
计算机网络教研室
学生上机实战
1、根据上述讲解上机完成 程序的编写 2、自己根据情况加入更多 的功能，如帮助说明等
计算机网络教研室
边讲边做
2、文件菜单——“保存”命令的代码
单击此处进入代码输入状态，输入 如下代码：
Private Sub Fsave_Click() '保存 On Error GoTo ErrHandler ‘出错处理 CD1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat" CD1.FilterIndex = 2 CD1.ShowSave ’打开“另存为”对话框 fn = CD1.FileName ‘获取到文件名 RTB.SaveFile fn ’保存文件 ErrHandler: Exit Sub End Sub
界面设计—通用对话框 的使用
通用对话框 重要的属性 Filter属性：确定打开和保存文件的类型
格式为：说明字符1|类型描述1|说明字符2|类型描述2|……
CommonDialog1.Filter=“所有文件 (*.*)|*.*|文本文件 (*.txt)|*.txt“ 则在文件列表显示“所有文件 (*.*)”和“文本文件 (*.txt)” 格式中的“|”不可缺少
2、将控件工具箱中的RichTextBox 添加到窗体中
计算机网络教研室
界面设计—增强文本框的使用
属性与操作
边讲边做
增强文本框（名称：RichTextBox1)可以进行文件操作：
打开文件在增强文本框显示：RichTextBox1.LoadFile 文件名 将增强文本框的文本保存为文件：RichTextBox1.SaveFile 文件名
计算机网络教研室
边讲边做
5、格式菜单——“特殊格式”命令的代码
单击此处输入“加粗”命令代码： Private Sub FObold_Click() '加粗 If FObold.Checked Then FObold.Checked = False RTB.SelBold = False Else FObold.Checked = True RTB.SelBold = True End If End Sub
顶级 1 1 1 1
计算机网络教研室
添加菜单
标题 格式（G） 字体… 颜色 前景色… 格 式 菜 单 的 命 令 结 构 分隔线 背景色… 名称 Format FormatFont FormatColor 可见 √ √ √ 有效 √ √ √ 复选 级别
特殊格式 常规 分隔线 加粗 倾斜 下划线
FCfore FCLine FCBack FormatOther FOusual FOLine FObold FOItalic FOULine
计算机网络教研室
1、打开菜单编辑器
菜单编辑器的使用
三种方式：工具菜单、工具栏、右击窗体
2、需要为每个菜单添 加标题和名称
计算机网络教研室
菜单编辑器的使用
3、“复选”属性：菜单的 Checked属性，设置复选菜 单（勾选或True时为复选菜 单）
4、“有效”属性：菜单的 Enabled属性，设置灰色菜 单。（勾选或True时为黑色 的有效菜单） 5、“可见”属性：菜单的 Visible属性，设置菜单是否 可见。（勾选或True时可见）
可对选定的文本进行相应的操作如：
被选择的文本属性：SelText 被选择的文本颜色属性：SelColor 被选择的文本字体属性：SelFontName
计算机网络教研室
界面设计—通用对话框 的使用
1、添加通用对话框控件（CommonDialog）： 执行“工程/部件”命令
2、将控件工具箱中的 CommonDialog添加到窗体中
√ √ √ √ √ √ √ √ √
√ √ √ √ √ √ √ √ √
√ √ √
顶级 1 1 2 2 2 1 2 2 2 2 2
计算机网络教研室
添加菜单
编辑完成 的菜单
计算机网络教研室
学生自己操作
界面设计—增强文本框的使用
作用：提供比文本框更强 大的文本操作功能。
边讲边做
1、添加增强文本框控件（RichTextBox）： 执行“工程/部件”命令
世上最廉价，而 且能得到最大利 益的东西，就是 礼节！
菜单设计
计算机网络教研室
目录
1 2
菜单术语 菜单编辑器 界面设计 菜单项的代码设计
3
4 5
上机操作
计算机网络教研室
菜单术语
1、菜单 一组命令的集合，相当于命令按 钮所起的作用 2、术语 菜单栏
菜单分隔线 复选菜单 无效菜单： 是指灰色菜单 菜单快捷键 子菜单
计算机网络教研室
边讲边做
界面设计—通用对话框 的使用
方法与操作
调用“打开”对话框：控件名. ShowOpen 调用“保存”对话框：控件名. ShowSave 调用“颜色”对话框：控件名. ShowColor 调用“字体”对话框：控件名.ShowFont 调用“打印”对话框：控件名. 边讲边做 ShowPrinter 计算机网络教研室 调用“帮助”对话框：控件名. ShowHelp
Flags:看阅读材料
计算机网络教பைடு நூலகம்室
5、格式菜单——“颜色”命令的代码
单击此处输入代码：
Private Sub FCfore_Click() '设置前景色 CD1.ShowColor RTB.SelColor = CD1.Color End Sub
单击此处输入代码：
Private Sub FCBack_Click() '设置背景色 CD1.ShowColor RTB.BackColor = CD1.Color End Sub
添加菜单
标题 文件（F）
打开 保存 分隔线 退出 编辑（E） 复制 剪切 粘贴 删除
文 件 与 编 辑 菜 单
名称 Ffile Fopen Fsave Fline FQuit
Edit Ecopy Ecut Epaste Edel
可见 √ √ √ √ √
√ √ √ √ √
有效 √ √ √ √ √
√
级别 顶级 1 1 1 1
思考与讨论：剪切、粘贴、删除三个命令的代码应 如何编写？先小组讨论后回答与编写程序。
计算机网络教研室
边讲边做
4、编辑菜单——“全选”命令的代码
单击此处进入代码输入状态，输入 如下代码： Private Sub Eall_Click() '全选 RTB.SelStart = 0 RTB.SelLength = Len(RTB.Text) End Sub
计算机网络教研室
边讲边做
5、格式菜单——“特殊格式”命令的代码
单击此处输入“倾斜”命令代码： Private Sub FOItalic_Click() '倾斜 If FOItalic.Checked Then FOItalic.Checked = False RTB.SelItalic = False Else FOItalic.Checked = True RTB.SelItalic = True End If End Sub
计算机网络教研室
边讲边做
5、格式菜单——“特殊格式”命令的代码
单击此处输入“下划线”命令代 码：
Private Sub FOULine_Click() '下划线 If FOULine.Checked Then FOULine.Checked = False RTB.SelUnderline = False Else FOULine.Checked = True RTB.SelUnderline = True End If End Sub 边讲边做
同学们辛苦了，再见！
计算机网络教研室
计算机网络教研室
边讲边做
5、格式菜单——“字体”命令的代码
单击此处进入代码输入状态，输入如 下代码：
Private Sub FormatFont_Click() '字体字号 CD1.Flags = cdlCFBoth CD1.ShowFont On Error GoTo ErrHandler RTB.SelFontName = CD1.FontName RTB.SelFontSize = CD1.FontSize Exit Sub ErrHandler: Exit Sub '用户按了取消按钮 End Sub 边讲边做
FileName属性：用于设置或返回要条形或保存的文件 的路径及文件名。
计算机网络教研室
边讲边做
代码设计
1、文件菜单——“打开”命令的代码
单击此处进入代码输入状态，输入如下代码：
Private Sub Fopen_Click() '打开文件 On Error GoTo ErrHandler CD1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat" CD1.FilterIndex = 2 CD1.ShowOpen fn = CD1.FileName RTB.LoadFile fn ErrHandler: Exit Sub End Sub