在菜单编辑器中建立一个菜单，其主菜单项的名称为nmuEdit，Visible属性为False。程序运行后，如果用鼠标右键单击窗体，则弹出与mnvEdit对应的菜单。以下是实现上述功能的程序，请填空。Private Sub Form【 】(Button As Integer, Shift As Integer,X As Single, Y As Single)If Button = 2 Then【 】mnuEditEnd IfEnd Sub

题目

在菜单编辑器中建立一个菜单，其主菜单项的名称为nmuEdit，Visible属性为False。程序运行后，如果用鼠标右键单击窗体，则弹出与mnvEdit对应的菜单。以下是实现上述功能的程序，请填空。

Private Sub Form【 】(Button As Integer, Shift As Integer,

X As Single, Y As Single)

If Button = 2 Then

【 】mnuEdit

End If

End Sub

相似考题

1.以下叙述中错误的是()A.下拉式菜单能用菜单编辑器建立B.在多窗体程序中，每个窗体都可以建立自己的菜单系统C.能够对菜单项的Click事件编程D.如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见

2.窗体上有一个用菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如下图所示。下列叙述中错误的是( )。A．在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性(有“√”)B．菜单中的横线是在该菜单项的标题输入框中输入了一个“-”(减号)字符C．在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性(有“√”)D．在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√”

3.以下关于菜单的叙述中，错误的是A．在程序运行过程中可以增加或减少菜单项B．如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项C．弹出式菜单在菜单编辑器中设计D．利用控件数组可以实现菜单项的增加或减少

4.设在菜单编辑器中定义了一个菜单项，名为menul。为了在运行时隐藏该菜单项，应在程序中使用的语句是( )A.menu1.Enabled=TrueB.menu1.Enabled=FalseC.menu1.Visible=TrueD.menu1.Visible=False

更多“在菜单编辑器中建立一个菜单,其主菜单项的名称为nmuEdit,Visible属性为False。程序运行后,如果用 ”相关问题

  • 第1题：

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

    A．在程序运行过程中可以增加或减少菜单项

    B．如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项

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

    D．利用控件数组可以实现菜单项的增加或减少


    正确答案：B

  • 第2题：

    设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应在程序中使用的语句是

    A．menu1．Enabled=True

    B．menu1．Enabled=False

    C．menu1．Visible=True

    D．menu1．Visible=False


    正确答案：D
    解析：为了在运行时隐藏和显示菜单项，可用Visible属性来设置，当该属性为True时，菜单项可见：为False时，菜单项不可见。

  • 第3题：

    在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。

    Private Sub Form ______（Button As Integer, Shift As Integer, X As Single, Y As Single）

    If Button=2 Then

    ______ mnuEdit

    End If

    End Sub


    正确答案：

     mousedown　popupmenu

  • 第4题：

    如果一个菜单项的Visible属性为False,则它的子菜单也不会显示。( )


    正确答案：错误

  • 第5题：

    在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu),然后为其设计一个子菜单项“增加菜单”(Name 属性值为mnuAdD)另外设置一个标题为空的菜单项(控件数组)，其Name属性值为mnuDyn,Index值为0，Visible属性值为False；然后编写以下程序来实现增加菜单项的功能。

    Dim IndexId As Integer

    Private Sub mnuAdd_Click( )

    Dim mnuCaption As String

    mnuCaption = InputBox("请输入菜单项的标题")

    IndexId =【 】

    【 】mnuDyn(IndexID) mnuDyn(IndexID). Caption = mnucaption

    mnuDyn(IndexID). 【 】= True

    End Sub


    正确答案：Indexld+1 Load Visible
    Indexld+1 ,Load ,Visible 解析：单击mnuAdd菜单项后，首先弹出输入对话框，要求输入新增加的菜单项的标题，接下来是给变量 Indexld赋值，菜单控件数组mnuDyn最初其数组下标Index为0，每增加一个菜单项，则该控件数组的下标应该加1，以指向下一个数组中的下一个控件(菜单)。在解决了下标问题之后，就可将菜单项装载进内存(用于装载控件的语句是Load)，然后将输入的新菜单项的标题赋给该菜单项，最后使得该菜单项可见，即将其 Visible属性设置为True。

相关内容