第8章 菜单与工具栏设计

5.课后练习： 练习1：在理解掌握本课课业设计任务一、二的基础上，选择 其中一个课业设计任务，再次独立完成该程序的设计编写任务。 练习2：改写“弹出式编辑菜单设计”程序，把弹出式菜单改 为普通菜单，程序设计要求改写后的程序同样具有简单的编辑 功能。 练习3：用VB编写一个调用Office小助手的程序，具体界面设 计如下图所示。
清 华 版
第27课
菜单程序设计
任务1：制作“简单文本编辑器”程序，学习菜单程序 设计
1．任务分析 a. 本任务需要用到 1 个 richtextBox1 控件、 1 个 CommonDialog 控件和8个Menu控件； b.程序设计要求，当“简单文本编辑器”程序运行加载时， 程序能在richtextBox1控件文本框内输入文字，点击菜单中 基本命令能够执行相关简单文本编辑功能；
Save.Enabled = True Exit Sub Err_Handle: MsgBox Err.Description Exit Sub End Sub „保存文件 Private Sub Save_Click() On Error GoTo Err_Handle „假如程序运行出错，程序跳转 With CmnDialog1 DialogTitle = “保存” ‘设置保存窗口标题 Filter = "RTF格式文件(*.rtf)|*.rtf" DefaultExt = "rtf" .Flags = cdlOFNHideReadOnly Or cdlOFNOverwritePrompt End With CmnDialog1.ShowSave „显示保存对话框 newfilename = CmnDialog1.FileName If Len(newfilename) Then „保存信息
第28课
弹出式菜单设计
任务1：制作“设置窗体颜色”程序，学习菜单程序设计 1．任务分析 a.本任务需要用到6个Menu控件； b.程序设计要求，当“设置窗体颜色”程序运行加载时，单 击鼠标右键，程序将弹出一个颜色设置菜单，用光标选择 菜单中的任意一个Menu控件，点击鼠标左键，窗体颜色将 改变为所选择的颜色；
b.代码分析 ‘请在空白点窗体处右击 Private Sub Form_Load() Clipboard.Clear End Sub
„清空剪贴板
„如果单击鼠标右键弹出菜单 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Form1.PopupMenu Form1.Menu_Edit End If End Sub Private Sub Menu_Edit_Copy_Click()„把当前选中数据复制到剪贴板上 Clipboard.SetText Form1.Text1.SelText, 1 End Sub
3.设置控件属性
4.编写程序代码
a.程序分析 课堂任务“简单文本编辑器”程序代码设计较为简单， 都为Click事件。程序分别对6个Menu控件设计编写代码， 分别是“打开”、“保存”、“退出”、“粘贴”、“剪 切”、“复制”。代码较为简单。
b.代码分析 ‘打开文件 Private Sub new_Click() On Error GoTo Err_Handle „假如程序运行出错，程序跳转 With CmnDialog1 „启用CommonDialog控件 MaxFileSize = 100 „设置最大被打开的文件名的尺寸 CancelError = True „当选取“取消”按钮时出错 Filter = "文件类型(*.rtf)|*.rtf" „设置打开文件类型 DialogTitle = "请选择一个RTF格式文件"„设置对话窗口标题 InitDir = "C:\" „设置需要打开文件默认盘符路径 Flags = cdlOFNFileMustExist Or cdlOFNReadOnly End With CmnDialog1.ShowOpen „显示“打开”对话框 oldfilename = CmnDialog1.FileName RichTextBox1.Text = “” „清空文本框 If (Len(oldfilename) > 0) Then „打开文件 RichTextBox1.LoadFile (oldfilename) End If
„将RichTextBox1选中内容复制至剪贴板中
Private Sub cut_Click() Clipboard.SetText RichTextBox1.SelRTF RichTextBox1.SelRTF = vbNullString End Sub Private Sub paste_Click()
Private Sub Menu_Edit_Cut_Click() Clipboard.SetText Form1.Text1.SelText, 1 Form1.Text1.SelText = "" End Sub
„删除选中内容
Private Sub Menu_Edit_Del_Click() „通过设置SelText属性删除选中内容 Form1.Text1.SelText = "" End Sub Private Sub Menu_Edit_Paste_Click() „实现粘贴功能 i = Form1.Text1.SelStart str1 = Mid(Form1.Text1.Text, 1, i) str2 = Mid(Form1.Text1.Text, _ Form1.Text1.SelStart + 1, _ Len(Form1.Text1) - Len(str1)) Form1.Text1 = str1 & Clipboard.GetText & str2 „把剪贴板上的数据粘贴到当前位置处 End Sub
第29课
常用工具栏的制作
任务1：制作“字体工具栏”程序，学习常用工具栏的制作
1．任务分析 a. 本任务需要用到 1 个 ImageList 控件 1 个 Toolbar 控件和 1 个 TextBox控件； b.程序设计要求，当“制作字体工具栏”程序运行加载时， 单击字体工具栏中的任意一个字体工具按钮，文本框中的 内容将做相应修改；
练习1：学习模仿其中一个任务，然后自己设计编写另一个任务程序，把所 设计的结果与课本中所讲述的内容进行比较，从而进一步学习本课 中的相关知识点。 练习2：编写一个“简单文本编辑器”，程序设计要求，在 本课堂任务的基础 上增加一个帮助菜单，在此菜单下增加Windows帮助子菜单和显示 系统时间二级子菜单。
2.设计程序界面 用设置课堂任务1“设置窗体颜色”弹出式菜单相同的方式 设置“弹出式编辑菜单设计”程序弹出式编辑菜单，本程序界 面需要添加1个TextBox控件和6个Menu控件，界面设计较为简 单。具体设计好的“设置窗体颜色”程序界面如图所示。
3.设置控件属性
4.编写程序代码
a.程序分析 课堂任务2“弹出式编辑菜单设计”程序代码设计较为简单， 程序运行加载时，清空文本框内容，并显示加载所设置内容， 然后选中文本框中的文字，点击鼠标右键，弹出编辑菜单，选 择任意一种编辑功能，以实现相关文本编辑。同样，程序需要 完成两个动作，首先点击鼠标右键程序产生PopupMenu方法， 弹出菜单；另一个动作点击任意一种编辑功能，程序将实现相 关编辑功能。
b.代码分析 ‘调用产生PopupMeu方法 Private Sub Form_MouseDown(Button As Integer, X As Single, Y As Single) If Button = 2 Then '右键 Form1.PopupMenu Form1.color End If End Sub „选用任意一种颜色 Private Sub blue_Click() Form1.BackColor = RGB(0, 0, 255) End Sub Private Sub gray_Click() Form1.BackColor = RGB(128, 128, 128) End Sub Private Sub green_Click() Form1.BackColor = RGB(0, 255, 0) End Sub
Shift As Integer,
Байду номын сангаас
„蓝色 „灰色 „绿色
Private Sub puple_Click() Form1.BackColor = RGB(128, 0, 128) End Sub Private Sub red_Click() Form1.BackColor = RGB(255, 0, 0) End Sub Private Sub white_Click() Form1.BackColor = RGB(255, 255, 255) End Sub
oldfilename = newfilename RichTextBox1.SaveFile (oldfilename) End If Exit Sub Err_Handle: MsgBox Err.Description Exit Sub End Sub „退出窗体 Private Sub quit_Click() End End Sub Private Sub copy_Click() Clipboard.SetText RichTextBox1.SelRTF End Sub „复制菜单的单击事件
2.设计程序界面 此程序的界面需要添加1个richtextBox1控件、1个 CommonDialog控件和8个Menu控件，“简单文本编辑器”程 序界面设计与以往程序设计界面程序界面设计有较大的不同。 8个Menu控件分为两组，一组为文件菜单，包括打开、保存和 退出，通过CommonDialog控件在个richtextBox1控件文本编辑 框内实现相关功能；另一组为编辑菜单，包括复制、剪切和粘 贴，通过richtextBox1控件自身属性值实现相关功能。