vb第7章菜单、工具栏和状态栏

26
第7章 菜单、工具栏和状态栏 （6）编写格式菜单中各菜单项的程序代码
• Private Sub mnuFont_Click() • dlgOperate.Flags = 1 • dlgOperate.ShowFont rtfInput.SelFontName= • dlgOperate.FontName • rtfInput.SelFontSize= • dlgOperate.FontSize • rtfInput.SelItalic=dlgOperate.FontItalic • rtfInput.SelBold = dlgOperate.FontBold • End Sub
•
•
mnuCopy.Enabled = True
End If
• End Sub
22
第7章 菜单、工具栏和状态栏
选中内容复制到剪贴板 • Private Sub mnuCut_Click() • Clipboard.SetText rtfInput.SelText • rtfInput.SelText = "" • mnuPaste.Enabled = True • End Sub
用剪贴板中的内容 替换所选中的内容
24
第7章 菜单、工具栏和状态栏
• Private Sub mnuSearch_Click() • Dim search as String • Dim fn as 查找字符串位 String • search = InputBox("查找内容：", "查找") 置 • i = InStr(rtfInput.Text, search) • If i = 0 Then • fn = "字符串“" & search & "”不存在!" • MsgBox fn • Else • rtfInput.SelStart = i - 1 • rtfInput.SelLength = Len(search) • End If • End Sub
• Private Sub mnuExcel_Click() • Shell ("c:\Program Files\Microsoft • Office\Office\Excel.exe"), • vbNormalFocus • End Sub • Private Sub mnuPpt_Click() • Shell ("c:\Program Files\Microsoft • Office\Office\PowerPnt.exe"), • vbNormalFocus • End Sub
27
第7章 菜单、工具栏和状态栏
• Private Sub mnuColor_Click() • dlgOperate.ShowColor
•
rtfInput.SelColor = dlgOperate.Color
• End Sub • Private Sub mnubkColor_Click() • dlgOperate.ShowColor
有效
是 是 是 是 是 是
可见
是 是 是 是 是 是
8
第7章 菜单、工具栏和状态栏
标题 编辑 剪切 复制 粘贴 查找 替换 名称 mnuEdit mnuCut mnuCopy mnuPaste mnuFenge2 mnuSearch mnuReplace Ctrl+X Ctrl+C Ctrl+V 快捷键 有 效 是 否 否 否 是 是 是 可见 是 是 是 是 是 是 是
• Private Sub mnuSave_Click() • • dlgOperate.ShowSave rtfInput.SaveFile dlgOperate.FileName, 1
• End Sub
• Private Sub mnuExit_Click() • End • End Sub
21
路径及名称
窗口打开方式
• Private Sub mnuWord_Click() • Shell("c:\Program Files\Microsoft • Office\Office\Winword.exe" ), • vbNormalFocus • End Sub
29
第7章 菜单、工具栏和状态栏
9
第7章 菜单、工具栏和状态栏
标题 格式 名称 mnuForm 有效 可见 是 是
字体 颜色
背景颜色
mnuFont mnuColor
mnuFenge3 mnubkColor
是 是
是 是
是 是
是 是
10
第7章 菜单、工具栏和状态栏
标题 外接程序 资源管理器 程序 Word Excel PowerPoint 游戏 名称 mnuOut mnuSource mnuFenge4 mnuProg mnuWord mnuExcel mnuPpt mnuGame mnuMine mnuCard mnuHelp mnuAbout 有效 是 是 是 是 是 是 是 是 是 是 是 是 可见 是 是 是 是 是 是 是 是 是 是 是 是
第7章 菜单、工具栏和状态栏 （5）编写编辑菜单中各菜单项的程序代码
• Private Sub rtfInput_MouseMove(Button
• • • • As Integer, Shift As Integer, x 选中文本 As Single, y As Single ) If rtfInput.SelLength > 0 Then mnuCut.Enabled = True
25
第7章 菜单、工具栏和状态栏 • Private Sub mnuReplace_Click() • Dim ans as String • ans = InputBox("替换内容：", "替换") • If ans <> "" Then • rtfInput.SelText = ans • End If • End Sub
13
第7章 菜单、工具栏和状态栏
字体：打开“字体”对话框，设置字体属性。 • 颜色：打开“颜色”对话框，选择文本颜色。 • 背景颜色：打开“颜色”对话框，在其中选择相应颜 色。 • 资源管理器：打开Windows资源管理器窗口。 • 程序：打开相应的应用程序。 • 游戏：打开Windows自带的扫雷等游戏。 • 关于：在rtfInput中显示有关帮助信息。
11
扫雷 纸牌
帮助 关于
第7章 菜单、工具栏和状态栏 7.1.2 实现各菜单项的功能
• 【实例7.2】在实例7.1的基础上编写代码，实现各 菜单项的功能。具体要求如下：
• 新建： 如rtfInput不空，确定是否保存，同时清空rtfInput。
• 打开： 如rtfInput不空，确定是否保存。之后打开“打开”对 话 框，将用户所选文件显示在文本框中。 • 保存： 打开“保存”对话框，按用户指定位置和名称保存文 件。 • 退出： 结束整个程序的运行。
12
第7章 菜单、工具栏和状态栏
剪切： 将选中的内容剪切到剪贴板中。
• 复制： 将选中的内容复制到剪贴板中。
• 粘贴： 将剪贴板中的内容复制到rtfInput中光标位置。 • 查找： 打开“查找”输入框，在输入框中输入要查找的 字符 串，单击“确定”按钮后在rtfInput中查找该 字符 串，第一个找到的字符串变为选中状态。 • 替换： 打开“替换”输入框，在输入框中输入要替换的 字符 串，用所输字符串替换rtfInput中选中的字符 串。
• Private Sub mnuCopy_Click() • Clipboard.SetText rtfInput.SelText • mnuPaste.Enabled = True • End Sub
23
第7章 菜单、工具栏和状态栏
• Private Sub mnuPaste_Click() • rtfInput.SelText = Clipboard.GetText • End Sub
件
保 存 原 有 内 容
19
第7章 菜单、工具栏和状态栏
Else
取消
Exit Sub End If
Else dlgOperate.ShowOpen rtfInput.LoadFile dlgOperate.FileName, 1 End If
显 示 新 文 件
End Sub
20
第7章 菜单、工具栏和状态栏
第7章 菜单、工具栏和状态栏 • 7.1 菜单的设计
• 7.2 弹出式菜单的设计
• 7.3 工具栏和状态栏
• 7.4 小结
实例
1
第7章 菜单、工具栏和状态栏
本章实例
实例7.1 实例7.3 实例7.4 实例7.2 实例7.5
2
第7章 菜单、工具栏和状态栏 7.1 菜单的设计 • 7.1.1 窗体中添加菜单
17
第7章 菜单、工具栏和状态栏
ElseIf Rep = vbNo Then
rtfInput.Text = ""
Else
取消
不保存
Exit Sub End If
End If
rtfInput.Text = ""
End Sub
18
第7Biblioteka Baidu 菜单、工具栏和状态栏
• • • • • • • • • • • • Private Sub mnuOpen_Click() If Not (rtfInput.Text = "") Then Rep = MsgBox("需要保存当前 文件吗?", 48 + 3, "提示信息") If Rep = vbYes Then dlgOperate.ShowSave rtfInput.SaveFile dlgOperate.FileName, 1 ElseIf Rep = vbNo Then 显 dlgOperate.ShowOpen 示 新 rtfInput.LoadFile 文 dlgOperate.FileName, 1
30
第7章 菜单、工具栏和状态栏
清空剪贴板
16
第7章 菜单、工具栏和状态栏 （4）编写文件菜单中各菜单项的程序代码
文本框中有 • Private Sub mnuNew_Click() 内容时 • SaveOption = 0 • If Not (rtfInput.Text = "") Then • Rep = MsgBox("需要保存当前 • 文件吗?", 48 + 3, "提示信息") • If Rep = vbYes Then 以文本文 • 保存 dlgOperate.ShowSave 件方式 • rtfInput.SaveFile • dlgOperate.FileName, 1
• （1）添加RichTextBox控件
。
5
第7章 菜单、工具栏和状态栏 • （2）启动菜单编辑器
【工具】/【菜单编辑器】
6
第7章 菜单、工具栏和状态栏
7
第7章 菜单、工具栏和状态栏 • （3）添加菜单和菜单项
标题
文件 新建 打开 保存 退出
名称
mnuFile mnuNew mnuOpen mnuSave mnuFenge1 mnuExit
•
rtfInput.BackColor = dlgOperate.Color
• End Sub
28
第7章 菜单、工具栏和状态栏 （7）编写外接程序菜单中各菜单项的程序代码
• Private Sub mnuSource_Click() • Shell ("C:\windows\explorer.exe“), • vbNormalNoFocus 完整的文件 • End Sub
14
第7章 菜单、工具栏和状态栏 • 操作步骤 • （1）设计用户界面
• 添加通用对话框控件dlgOperate （2）定义窗体级变量
Dim SaveOption As Integer Dim Rep As Integer
15
第7章 菜单、工具栏和状态栏 • （3）编写窗体装载事件的程序代码 Private Sub Form_Load() SaveOption = 0 Clipboard.Clear End Sub
• 7.1.2 实现各菜单项的功能
3
第7章 菜单、工具栏和状态栏 7.1.1 窗体中添加菜单
• 【实例7.1】窗体中有5个菜单：文件、编辑、格式、 外接程序和帮助，其中编辑下拉菜单中的剪切、复 制、粘贴菜单项是不可用状态，而且有快捷键；用 于输入信息的控件使用RichTextBox。
4
第7章 菜单、工具栏和状态栏 • 操作步骤