南华大学计算机学院 VISUAL BASIC程序设计实验指导4

南华大学计算机学院

visual basic程序设计实验指导

第7章菜单和常用ActiveX控件

实验要求

1、熟练掌握菜单设计，菜单事件及快捷菜单的弹出

2、掌握通用对话框控件的使用

实验1菜单及事件

任务1在名称为Form1的窗体上画一个名称为Cmd1的命令按钮，标题为“命令按钮”。然后建立一个菜单，标题为“控件”，名称为Menu1，包含两个子菜单项，一个是“显示命令按钮”，名称为SubMenu1；另一个是“隐藏命令按钮”，名称为SubMenu2，如图1所示。编写适当的事件过程，使得程序运行时，如果选择“显示命令按钮”菜单命令，则显示命令按钮控件；而如果选择“隐藏命令按钮”菜单命令，则隐藏命令按钮控件。

注意：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

图1

任务2在名称为Form1的窗体上设计一个菜单。要求在窗体上添加名为menu0，标题为“菜单命令”的主菜单，再添加两个名称分别为“menu1”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menu1子菜单不可用，menu2子菜单已经选中（运行时的效果如图2所示）。

再编写适当的事件过程，使得程序运行时，单击“上一菜单项可用”，则“不可用菜单项”变为黑色（可用）。要求程序中不得使用变量，且只有一条语句。

注意：存盘时必须存放在指定文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm

图2

任务3在名称为Form1的窗体上画一个名称为Txt1的文本框，再建立一个名称为mnuFormat的菜单，含五个菜单项，标题分别为“加粗”、“斜体”、“下划线”、分隔符、“退出”，名称分别为MnuFormat1、MnuFormat2、MnuFormat3、MnuFormat4、MnuExit。请编写适当的事件过程，在运行时当用鼠标右键单击窗体时，弹出如图3（b）所示菜单，只显示菜单中的三个字体格式设置菜单项，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式。

注意：运行程序时，格式菜单如图3（a）所示，单击“退出”时则结束程序。在弹出式菜单中，如选中“斜体”，则此菜单变为选中状态“√斜体”，否则为“斜体”。存盘时必须存放在考生文件夹下，工程文件名为vbsj3.vbp，窗体文件名为vbsj3.frm。

图3（a）图3（b）

任务4创建一个工程文件sjt4.vbp，有两个名称分别为Form1和Form2的窗体，Form1为启动窗体，程序执行时Form2不显示。Form1中有菜单（如图4（a）所示），“对齐”菜单下有三个子菜单，索引分别为0，1，2，程序运行时，若单击“对齐”菜单项，则将文本框设置为对应的对齐方式。若单击"格式"菜单项，则显示Form2窗体（如图4（b）所示），在Form2窗体上创建2个组合框控件分别用于存放字号及字体，2个标签控件，1个命令按钮，选中一种字号和字体后单击"确定"按钮，则可改变Form1上文本框的

字号和字体，并使Form2窗体消失。若单击"退出"菜单项，则结束程序的运行。菜单名

称自定。

要求：

1）利用属性窗口设置适当的属性，使Form1窗体标题栏右上角的最大化按钮、最

小化按钮消失（如图4（a）所示）；

2）利用属性窗口把Form2窗体的标题设置为"格式"（如图4（b）所示）；

3）在字号组合框内输入字号，字体组合框内则添加系统字体。

图4（a）

图4（b）

实验2通用对话框

任务1在名称为Form1的窗体上画一个名称为Command1、标题为"保存文件"的命令按钮，再画一个名称为CommonDialog1的通用对话框。

要求：

①通过属性窗口设置适当的属性，使得运行时对话框的标题为"保存文件"，且默认文件名为out2；

②运行时单击"保存文件"按钮，则以"保存对话框"方式打开该通用对话框。如图1所示。

注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

图1

任务2在名称为Form1的窗体上画两个名称分别为Command1和Command2、标题分别为"打开"和"保存"的命令按钮，和一个名称为CD1的通用对话框，如图2所示。请在属性窗口中设置CD1的属性，使得打开通用对话框时，其初始路径是"C:\"。再编写适当的事件过程，使得运行程序，分别单击"打开"或"保存"按钮时，相应地出现"打开"或"保存"对话框。要求程序中不得使用变量，每个事件过程中只能写一条语句。

注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。

图2