VB实验九.docVIP

PAGE 10 实验九 菜单、工具栏和状态栏的设计 [实验目的] 1. 掌握下拉式菜单的设计方法 2. 掌握弹出式菜单的设计方法 3. 了解工具栏和状态栏的设计方法 [实验内容] 一、 下拉式菜单的设计  HYPERLINK 0601.exe 程序1：建立一个应用程序，该程序窗口中有一个文本框，设计菜单，菜单项如下图所示。编制程序，完成各菜单项的功能。 提示： ??设置颜色可使用通用对话框，请查阅相关知识，或将此功能留着以后实现。  HYPERLINK \l E6P1C#E6P1C 程序代码见附录。  HYPERLINK 0602.exe 程序2：编写程序。要求：程序运行初期，在窗体左边的列表框中生成10个由小到大排列的10到100之间的随机整数，相应的动态菜单如下图所示；如果选择“转移”菜单下面的“右移”命令，则左边列表框的10个数移动到右边的列表框中，并由大到小排列；再打开“??移”菜单，则只有“左移”命令可用。  HYPERLINK \l E6P2C#E6P2C 程序代码见附录。 二、 弹出式菜单的设计  HYPERLINK 0603.exe 程序3：将程序2中的下拉菜单改成二个弹出式菜单，分别作为两个列表框的快捷菜单，当列表框有数据时，菜单有效，否则无效。窗体如下图所示。  HYPERLINK \l E6P3C#E6P3C 程序代码见附录。 三、 工具栏和状态栏的设计  HYPERLINK 0604.exe 程序4：工具栏的设计。设计一个窗口外观如下图所示的程序，在窗口下方的“请输入”文本框中输入一句名言，选择“编辑”菜单中的“名言展示”命令，或按下工具栏中的“名言展示”按钮，可将这句名言添加到窗口中间的“名言展示”文本框中。类似地，此程序还可以用这两种方法实现以下功能：复位、调整“名言展示”文本框中字体颜色、查看本程序信息、退出。 提示： ??在文本框中可以使用VB的字符串常量VBCrLf实现强制换行。  HYPERLINK \l E6P4C#E6P4C 程序代码见附录。  HYPERLINK 0605.exe 程序5：状态栏的设计。在程序4的基础上，加上状态栏，在状态栏中显示“名言展示”文本框中展示的名言句数和总长度，以及系统日期和系统时间。  HYPERLINK \l E6P5C#E6P5C 程序代码见附录。 [选做实验] 1. 综合题1：依照“附件”中的计算器，自己编一个计算器。本实验要求：计算器中加入下拉菜单，并为其中的“编辑”菜单的“复制”和“粘贴”菜单项编制相应的程序。 提示： ??可以使用Clipboard对象的SetText方法和GetText方法将文本字符串送到粘贴板或从粘贴板取到文本字符串。 附：Clipboard对象的SetText方法和GetText方法的使用 功能： ??SetText方法用以将文本字符串放到Clipboard对象中。 ??GetText方法用于取得Clipboard对象中的文本字符串。 语法： Clipboard.SetText text Clipboard.GetText 组成部分： ??text必需的。是被放置到剪贴板中的字符串数据。 说明： ??如果 Clipboard 对象中没有与期望的格式相匹配的字符串，则返回一个零长度字符串 ()。 2. 综合题2：建立学生档案管理信息系统。本实验要求：设计菜单。 实验九 程序1 Private Sub Form_Activate() mnuArr(0).Checked = True mnuArr(1).Checked = False mnuArr(2).Checked = False Text1.FontSize = 12 End Sub Private Sub mnuAbout_Click() MsgBox 一个具有下拉菜单的程序 + vbCrLf + 版本：1.0版, , 关于下拉菜单的程序 End Sub Private Sub mnuArr_Click(Index As Integer) For i = 0 To 2 mnuArr(i).Checked = False Next i Select Case Index Case 0 Text1.FontSize = 12 Case 1 Text1.FontSize = 16 Case 2 Text1.FontSize = 20 End Select mnuArr(Index).Checked = True End Sub Private Sub mnuClear_Click() Text1