3.下拉式菜单的设计 【例10-1】设计菜单界面，各主菜单及其 子菜单如下图所示。其中，“格式”菜单 下的菜单项“删除线、下划线、斜体、粗 第十章界面设计 体”具有复选功能，可以在两种状态下切 换。编写有关代码实现各菜单项的功能。 设计菜单示例 ▣x 文件但编辑但 格式 ClipBoard对象用于操作剪贴板上的一 文本和图形，用它可以复制、剪切 和粘贴文本和图形。在复制任何信 息到ClipBoard对象之前，应首先使 用Clear方法清除ClipBoard对象中 的内容。 Textl etText方法：将文本放到 ClipBoard对象中： GetText方法：获取ClipBoard对象 中的文本。 193 6
第 十 章 界 面 设 计 6 3．下拉式菜单的设计 【例10-1】设计菜单界面，各主菜单及其 子菜单如下图所示。其中，“格式”菜单 下的菜单项“删除线、下划线、斜体、粗 体”具有复选功能，可以在两种状态下切 换。编写有关代码实现各菜单项的功能。 Text1
文件E八编辑( 编辑(E)格式( 打开 复制 关闭G) 剪切工 粘贴P) 第章界面设计 格式M 格式M 字体兮 Ctrl+F 字体 Ctrl+F 背景额色 Ctrl+B 背景颜色 Ctrl+B 左对齐 Ctrl+L 左对齐 Ctrl+L 居中 Ctrl+M 居中 Ctrl+M 右对齐 Ctrl+R 右对齐 Ctrl+R 册除线 册除线 下划线 √下划线 斜体 √斜体 粗体 √ 粗体 7
第十章界面设计 7
界面设计： 打开菜单编辑器，按P202表10-1设置各 菜单项。 第十章界面设计 193 8
第 十 章 界 面 设 计 8 界面设计： 打开菜单编辑器，按P202表10-1设置各 菜单项
代码设计： 1 “文件”菜单下的各菜单项的功能将在 第十章界 例10-2中设计。 2)编写“编辑”菜单下的菜单项的Cick事 面 件过程 设 Private Sub txtCopy_Click( '复制 Clipboard.SetText Text1.SelText End Sub 9
第 十 章 界 面 设 计 9 代码设计： 1）“文件”菜单下的各菜单项的功能将在 例10-2中设计。 2）编写“编辑”菜单下的菜单项的Click事 件过程 Private Sub txtCopy_Click() ' 复制 Clipboard.SetText Text1.SelText End Sub
Private Sub txtCut ClickO '剪切 Clipboard.SetText Text1.SelText Text1.Text Left(Text1.Text, 第十章界面设计 Text1.SelStart)&Right(Text1.Text, Len(Text1.Text)-Text1.SelStart- Text1.SelLength) End Sub 193 10
第 十 章 界 面 设 计 10 Private Sub txtCut_Click() ' 剪切 Clipboard.SetText Text1.SelText Text1.Text = Left(Text1.Text, Text1.SelStart) & Right(Text1.Text, Len(Text1.Text) - Text1.SelStart - Text1.SelLength) End Sub