在窗体上建立二级菜单,第一级含2个菜单项,标题分别为“文件”和“帮助”,名称分别为vbFile、vbHelp,其中“帮助”菜单含有一个子菜单,共有3个菜单项,它们的标题依次为“Visual Basic帮助”、“关于Visual Basic”、“与我们联系”,它们的名称分别为vbHelpyou、vbAbout和vbMml(如下图所示)。
注意:
文件必须存放在考生文件夹中,工程文件名为execise65.vbp,窗体文件名为 execise65.frm。
第1题:
在名为Form1的窗体上绘制一个文本框,名为Text1;再建立一个下拉菜单,菜单标题为“操作”,名为vbOp,此菜单下含有两个菜单项,名称分别为vbDis和vbHide,标题分别为“显示”和“隐藏”。
请编写适当的事件过程,使得在运行时,单击“隐藏”菜单项,则文本框消失;单击“显示”菜单项,则文本框重新出现。运行后的窗体如下图所示。
注意:
程序中不得使用变量,每个事件过程中只能写一条语句;文件必须存放在考生文件夹中,工程文件名为execise30.vbp,窗体文件名为execise30.frm。
第2题:
在名称为Forml的窗体上建立两个主菜单,其标题分别为“文件”和“编辑”,名称分别为vbFile和VbEdit,在“文件”菜单下有三个子菜单项,标题分别为“打开”、“保存”和“关闭”,名称分别为vbOpen、vbSave和vbClose。要求程序运行后,如果选中“文件”下的某个菜单项,则通过MsgBox对话框显示该菜单项的标题,如图6-3所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sja.vbp。
标签 |
名 称 |
内缩 |
文件 |
vbFile |
无 |
打开 |
vbOpen |
一位 |
保存 |
vbSave |
一位 |
关闭 |
vbClose |
一位 |
编辑 |
vbEdit |
无 |
单击“确定”按钮,菜单建立完成后,进入代码窗口编写以下代码:
Private Sub vbClose_Click关闭命令调用的函数
MsgBox("关闭")
End Sub
Private Sub vbOpen—Click 打开命令调用的函数
MsgBox("打开")
End Sub
Private Sub vbSave_Click 保存命令调用的函数
MsgBox("保存")
End Sub
单击按钮运行程序,并按要求保存。
第3题:
在名为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFi1e和vbHe1p,在“文件”菜单下有3个菜单项,分别为“新建”、“打开”和“保存” (其名称分别为vbNew、vbOpen和vbSave)。
要求程序运行后,如果选中“文件”下的某个菜单项,则将该菜单项的标题通过MsgBox对话框显示出来,如下图所示。
注意:
文件必须存放在考生文件夹中,窗体文件名为execise47.frm,工程文件名为 execise47.vbp。
第4题:
请在名为Form1的窗体上建立一个二级下拉菜单,第一级共有两个菜单项,标题分别为“文件”和“编辑”,名称分别为vbFile和VbEdit;在“编辑”菜单下有第二级菜单,含有3个菜单项,标题分别为“剪切”、“复制”和“粘贴”,名称分别为vbCut、VbCopy和vbPaste。其中“剪切”菜单项设置为无效(如下图所示)。
注意:
文件必须存放在考生文件夹中。工程文件名为execise48.vbp,窗体文件名为 execise48.frm。
第5题:
在名为Form1的窗体上建立一个二级菜单,该菜单需要含有、“文件”、 “帮助”两个主菜单项,名称分别为vbFile和vbHelp。其中,“文件”菜单包括“打开”、“关闭”、“退出”3个子菜单项,名称分别为vbOpen、vbClose、vbExit,如下图所示。
注意:
只建立菜单,不必定义其事件过程;文件必须存放在考生文件夹中,窗体文件名为 execisel.frm,工程文件名为execise1.vbp。