违法和不良信息举报 联系客服
免费注册 登录

设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为al,且取消其"可见"属性。运行时,可以使快

题目

设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为al,且取消其"可见"属性。运行时,可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是

A．Private Sub Form_Mouse Down(Button As Integer, Shift As Integer,_X As Single,Y As Single If Button=2 Then PopupMenu al,2 End Sub

B．Private Sub Form_Mouse Down(Button As Integer, Shift As Integer,_X As Single, Y As Single PopupMenu al,0 End Sub

C．Private Sub Form_Mouse Down(Button As Integer, Shift As Integer,_X As Single,Y As Single PopupMenu al End Sub

D．Private Sub Form_Mouse Down(Button As Integer, Shift As Integer,_X As Single,Y As Single If(Button=vbLetfButton) Or (Button=vbRightButton) Then PopupMenu al End Sub

如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为al，其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是（ ）。

A.Private Sub Form_MouseDown(Button As Integer，_Shift As Integer，X As Single， Y As Single) If Button=1 And Blltton=2Then PopupMenu a1 End If End Sub

B.Private Stlb Form_MouseDown(Button As Integer，_Shift As Integer，X As Single， Y As Single) PopupMenu a1 End Sub

C.Private Sub Form—MouseDown(Button As Integer，_Shift As Integer，X As Single， Y As Single) If Button=1 Then PopupMenu a1 End If End Sub

D.Private Sub Form. MouseDown(Button As Integer，_Shift As Integer，X As Single， Y As Single) If Buttcn=2 Then PopupMenu a1 End If End Sub


正确答案：B
B。【解析】表示窗体的弹出式菜单使用PopupMerm，而单击鼠标的左键或者右键都能弹出菜单，使用的是MoseDown，并且使用Button控制按下的鼠标键Button=1表示的是单击左键，Button=2表示的是单击右键，所以当Button=1或者Button=2时才能实现此功能，所以答案选择B。

第2题：

设已经在"菜单编辑器"中设计了窗体的快捷菜单,其顶级菜单为Bs,取消其"可见"属性,运行时,在以下事件过程中,可以使快捷菜单响应鼠标右键菜单的是

A．Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_X As Single,Y As Single) If Button=2 Then PopupMenu Bs, 2 End Sub

B．Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_X As Single,Y As Single) PopupMenu Bs End Sub

C．Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_X As Single,Y As Single) PopupMenu Bs,0 End Sub

D．Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_X As Single,Y As Single) If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bs End Sub


正确答案：A
解析：考查弹出式菜单的使用方法。实际上,不管是在窗口顶部菜单条上显示的菜单,还是隐藏的菜单,都可以用PopupMenu方法把它们作为快捷菜单在运行时显示出来。

第3题：

下列关于菜单的叙述中，错误的是（ ）。

A.当窗体为活动窗体时，用键可以打开菜单编辑器

B.把菜单项的Enabled属性设置为False，则可删除该菜单项

C.弹出式菜单在菜单编辑器中设计

D.程序运行时。利用控件数组可以实现菜单项的增加或减少


正确答案：B
B。【解析】VisualEasic中的菜单(包括弹出式菜单)是通过菜单编辑器来设计的。打开某个活动窗体的菜单编辑器有4种方法：①选择菜单【工具】→【菜单编辑器】命令；②单击工具栏中的“菜单编辑器”图标；③使用快捷键<ctrl+E>；④右击窗体，从弹出的快捷菜单中选择【菜单编辑器】命令。菜单项的“有效”属性(即Enabled)是控制菜单项的有效性的，当把一个菜单项的“有效”属性设置为False，就可以使其失效，运行后该菜单项变为灰色。菜单项的增减也可通过控件数组来实现。控件数组可以在设计阶段建立，也可以在运行时建立。利用这一特点，可在设计时建立菜单控件数组的第一个元素，该元素的下标为0，Visible属性为False。在程序运行时，通过Load语句来建立该菜单控件数组的新元素，并将其Visible属性设置为True，从而实现增加菜单项的功能。删除菜单项时可通过UnLoad语句来实现。

第4题：

已知在菜单编辑器中设计了窗体的快捷菜单，其主菜单为a1，且取消其“可见”属性，如图2所示。运行时，以下（ ）事件过程可以使快捷菜单的菜单项响应鼠标右键单击。


正确答案：A
A)    【解析】本题考查弹出菜单的显示。PopupMenu 为弹出菜单方法，使用格式为：[对象.]PopupMenu 菜单名，标志,x,y；其中，标志表示弹出的位置和触发的键，取值为0表示弹出菜单的左端在x处且识别左键单击，取值为04表示位于x的中心，取值为08表示在x的右边，一般判断是否单击右键，可通过判断Button是否为2来实现。

第5题：

设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为a1，且取消其“可见”属性。运行时，以下( )事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右键单击。

A．Private Sub Form_Mouse Down(Button As Integer,Shift As Integer,_X As Single,Y As Single) If Button=2 Then PopupMenu a1,2 End Sub

B．Private Sub Form. Mouse Down(Button As Integer,Shift As Integer,_X As Single,Y As Single) PopupMenu a1,0 End Sub

C．Private Sub Form_Mouse Down(Button As Imeger,Shift As Integer,_X As Single,Y As Single) PopupMenu a1 End Sub

D．Private Sub Form_Mouse Down(Button As Integer,Shift As Integer,_X As Single,Y As Single) If (Button=vbLetfButton)Or(Button=vbRightButton)Then PopupMenu a1 End Sub


正确答案：A

第6题：

设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为a1，且取消其“可见”属性。运行时，哪个事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是

A．Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=2 Then PopupMenu a1，2 End Sub

B．Private Sub Form_MouseDown(ButtonAsInteger，ShiftAsInteger，X As Single，Y As Single) PopupMenu a1，0 End Sub

C．Private Sub Form_Mouse Down(Button As Integer，Shift As Integer，X As Single，Y As Single) PopupMenu a1 End Sub

D．Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If(Button=vbLetfButton) Or (Button=vbRightButton) Then PopupMenu a1 End Sub


正确答案：C
解析：MouseDown事件用来响应鼠标单击，其中Button的参数用来确认鼠标按钮(1：左键；2：右键)，PopupMenu方法用以在指定坐标位置显示弹出式菜单，语法如下：[对象].PopupMenu菜单名，标志，x，y。其中x，y提供菜单显示位置，标志指定快捷菜单的行为。

第7题：

窗体上有一个用菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如下图所示。

下列叙述中错误的是( )。

A．在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性(有“√”)

B．菜单中的横线是在该菜单项的标题输入框中输入了一个“-”(减号)字符

C．在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性(有“√”)

D．在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√”


正确答案：A
解析：本题考查的考点是有关菜单的。菜单项的“有效”属性是控制菜单项的有效性的。只要把一个菜单项的“有效”属性设置为 False，就可以使其失效，运行后该菜单项变为灰色；要在菜单项中插入分隔线应该在标题框中输入“-”菜单项标志，可以通过菜单设计窗口中的“复选”属性设置，当该属性为True时，相应的菜单项前有“√”标记；弹出菜单由于初始运行时应该不可见，故此应该去掉“可见”前面的“√”标记。

第8题：

设已经在“菜单编辑器”中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是

A．Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As Single) If Button=2 Then PopupMenu Bs，2 End Sub

B．Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As Single) PopupMenu Bs End Sub

C．Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As Single) PopupMenu Bs，0 End Sub

D．Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_X As Single，Y AS Single) If(Button=vbLeftButton)Or(Button=vbRightButton)Then PopupMenu Bs End Sub


正确答案：A
解析：考查弹出式菜单的使用方法。
  [解题要点] 实际上，不管足在窗口顶部菜单条上显示的菜单，还是隐藏的菜单，都可以用PopupMenu方法把它们作为快捷菜单在运行时显示出来。PopupMenu方法的使用形式如下：
  [对象].PopupMenu菜单名，标志，x,y。
  其中，x,y是提供菜单显示的位置；标志指定快捷菜单的行为。
  [考点链接] 使用菜单编辑器制作菜单。

第9题：

设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为Bt，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是

A．Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_ X As Single, Y As Single) If Button=2 Then PopupMenu Bt, 2 End Sub

B．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu Bt End Suh

C．Private Sub Form. MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu Bt,0 End Sub

D．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If (Button=vbLeftButton) Or ( Button=vbRightButton) Then PopupMenu Bt End Sub


正确答案：A
解析：在VisualBasic中，允许出现快捷菜单，对用户来说，提供了很大的方便，一般来说，菜单都在窗口的顶部，有时，用户需要执行菜单中的某一命令，就得把鼠标移动到窗口顶部，然后打开菜单选择命令，这对用户来说，会觉得麻烦。而快捷菜单并不需要到窗口的顶部来打开，只要单击鼠标右键，就会弹出菜单。设计快捷菜单仍然可以用VisualBasic中提供的菜单编辑器，只要把某个菜单设置成隐藏就可以了，实际上，不管是在窗口顶部菜单条上显示的菜单还是隐藏的菜单，都可以用PopupMenu方法把它们作为快捷菜单在运行时显示出来。PopupMenu方法的使用形式如下：[对象]．PopupMenu菜单名，标志，x，y其中，x，y是提供菜单显示的位置；标志：指定快捷菜单的行为。当标志为0时，快捷菜单中的项只能对鼠标左键起反应；当标志为2时，快捷菜单中的项对鼠标右键和左键都反应；标志为2时，PopupMenu方法只能用在MouseDown事件过程中。

相关内容