下拉式菜单 1.建立菜单 标题 名称 上级菜单 热键 快捷键 文件 mnufile 无 无 新建 mnufileNew 文件 FN0s Ctrl+N 打开 mnuFileOpen 文件 Ctrl+o 保存 mnuFilesave 文件 Ctrl+S mnuFileBar 文件 无 无 退出 mnuFileQuit 文件 Q Ctrl+Q 编辑 mnuEdit 无 E 无 剪切 mnuEditCut 编辑 无 Ctrl+X 复制 mnuEditCopy 编辑 无 Ctrl+C 粘贴 mnueditPaste 编辑 无 Ctrl+V 字体 mnueditFont编辑 无 Ctrl+F 黑体 Font 字体 无 宋体 Font2 字体 无 热休1 ont. 字体无 无无无
下拉式菜单 ❖1．建立菜单 标题 名称 上级菜单 热键 快捷键 文件 mnuFile 无 F 无 新建 mnuFileNew 文件 N Ctrl＋N 打开 mnuFileOpen 文件 O Ctrl＋O 保存 mnuFileSave 文件 S Ctrl＋S － mnuFileBar 文件 无 无 退出 mnuFileQuit 文件 Q Ctrl＋Q 编辑 mnuEdit 无 E 无 剪切 mnuEditCut 编辑 无 Ctrl＋X 复制 mnuEditCopy 编辑 无 Ctrl＋C 粘贴 mnuEditPaste 编辑 无 Ctrl＋V 字体 mnuEditFont 编辑 无 Ctrl＋F 黑体 Font1 字体 无 无 宋体 Font2 字体 无 无 楷体 Font3 字体 无 无
下拉式菜单 2.编写代码 菜单设置好后,需要给每个需要完成某些功能的菜 单项编写对应的代码。给例12-1的窗体内添加一个文 本框Text1,Text1的属性如表12-2所示。 对象名」属性属性值 N ae Text1 Text 清空 Text Multiline True Scrollbar 3-both
下拉式菜单 ❖2．编写代码 菜单设置好后，需要给每个需要完成某些功能的菜 单项编写对应的代码。给例12-1的窗体内添加一个文 本框Text1，Text1的属性如表12- 2所示。 对象名 属性 属性值 Text Name Text1 Text 清空 MultiLine True ScrollBar 3-both
下拉式菜单 单击“编辑”菜单下的“字体”子菜单,选择“黑体”,弹出对应的 “单击”事件代码编辑窗口,下面为“黑体”子菜单编写代码如下: Private Sub Font1 Click Text1.Font="黑体 End sub ◆此处黑体菜单的名称即为在设计时输入的名称“Font1”。 按照上述步骤依次选择“宋体”、“楷体”子菜单,完成相应的代码 编写。具体代码如下: Private Sub Font2 Click Text1.Font="宋体 End sub Private Sub Font3 Click Text1.Font="楷体Gb2312 End sub
下拉式菜单 ❖ 单击“编辑”菜单下的“字体”子菜单，选择“黑体”，弹出对应的 “单击”事件代码编辑窗口，下面为“黑体”子菜单编写代码如下： Private Sub Font1_Click() Text1.Font = "黑体" End Sub ❖ 此处黑体菜单的名称即为在设计时输入的名称“Font1”。 ❖ 按照上述步骤依次选择“宋体”、“楷体”子菜单，完成相应的代码 编写。具体代码如下： Private Sub Font2_Click() Text1.Font = "宋体" End Sub Private Sub Font3_Click() Text1.Font = "楷体_Gb2312" End Sub
下拉式菜单 今运行时可通过字体菜单修改文本中输入文字的字体 运行的各种结果如图12-5所示。 Fornl -Ox=Fornl 文件￠)编辑 文件〔)编辑) 文件)编辑匪 菜单编辑 菜单编辑器菜单编辑器
下拉式菜单 ❖运行时可通过字体菜单修改文本中输入文字的字体。 运行的各种结果如图12-5所示