更多"在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visi"的相关试题:
[填空题] 在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序,请填空。 Private Sub Form__________(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=2 Then 【3】 mnuEdit End If End Sub
[填空题]6、在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序,请填空。
PrivateSubForm______(Button As Integer,Shift As Integer,X As Single,YAs Single)
If Button=2Then
PopupMenu mnuEdit
End If
End Sub
[填空题]在菜单编辑器中建立一个菜单,其主菜单项的名称为nmuEdit,Visible属性为False。程序运行后,如果用鼠标右键单击窗体,则弹出与mnvEdit对应的菜单。以下是实现上述功能的程序,请填空。
Private Sub Form 【2】 (Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button = 2 Then
【3】 mnuEdit
End If
End Sub
[单项选择]在菜单编辑器中建立一个名称为Menu0的菜单项,将其“可见”属性设置为False,并建立其若干子菜单,然后编写如下过程:
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=1 Then
PopupMenu Menu0
End If
End Sub
则以下叙述中错误的是( )
A. 该过程的作用是弹出一个菜单
B. 单击鼠标右键时弹出菜单
C. Menu0是在菜单编辑器中定义的弹出菜单的名称
D. 参数X、Y指明鼠标当前位置的坐标
[单项选择]在菜单编辑器中建立一个名称为Menu( )的菜单项,将其"可见"属性设置为False,并建立若干子菜单,然后编写如下过程:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer,X As Single,Y As Single)
If Button=1 Then
PopupMenu Menu( )
End If
End Sub
则以下叙述中错误的是______。
A. 该过程的作用是弹出一个菜单
B. 右击时弹出菜单
C. Menu()是在菜单编辑器中定义的弹出菜单的名称D) 参数X、Y指明鼠标当前位置的坐标
[单项选择]
在菜单编辑器中建立1个名称为Menu0菜单项,将其“可见”属性设置为False,并建立其若干子菜单,然后编写如下过程:
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=1 Then
PopupMenu Menu0
End If
End Sub
则以下叙述错误的是()。
A. 该过程的作用是弹出一个菜单
B. 单击鼠标右键时弹出菜单
C. Menu0在菜单编辑器中定义的弹出菜单的名称
D. 参数X、Y指明鼠标当前位置的坐标
[简答题]在名称为Form1的窗体上建立一个水平滚动条,名称为HS1,其最大值为100,最小值为0。要求程序运行后,每次移动滚动框时,都执行语句Form1.Print HS1.Value,如图11-14所示(程序中不能使用任何变量)。
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。
[单项选择]设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为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