鼠标右键问题？

Question

我做一个单击右键的菜单，此菜单在普通的窗体下显示（相对于mdi窗体），写完代码后总是提示“弹出一个菜单必须有一个子菜单”的提示，不知道我哪错了？请高手提示代码如下：
Private Sub Grid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '添加右键功能，显示弹出式菜单
    If Button = 2 And Shift = 0 Then
       PopupMenu Mnueditweek
    End If
End Sub
Private Sub Mnueditweek(index As Integer)
    Select Case index
           Case 1: Call Mnuedit1
           Case 2: Call Mnuedit2
    End Select
End SubPrivate Sub mnuedit1_click()
'显示周次窗口
   Frm_bargaineditweek.Show 1
End Sub
Private Sub Mnuedit2_click()
 '返回编辑窗口
   Exit Sub
End Sub

Answer 1

在你的彈出菜單 Mnueditweek 里有沒有子菜單?

Answer 2

Private Sub Grid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '添加右键功能，显示弹出式菜单
    If Button = 2 And Shift = 0 Then
       PopupMenu FROMSHOW.Mnueditweek
       unload FROMSHOW 'FROMSHOW为设计菜单的那个窗体
    End If
End Sub

Answer 3

就像错误提示说的,你需要为Mnueditweek 设置子菜单,显示时显示的是它的子菜单

Answer 4

Private Sub Grid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '添加右键功能，显示弹出式菜单
    If Button = 2 And Shift = 0 Then
       PopupMenu fromshow.Mnueditweek
       unload fromshow 'fromshow为你弹出菜单所在窗体
    End If
End Sub

Answer 5

例如,有以下的菜單:  File      Edit      View
-- Open   -- Undo   -- ToolBar
-- New    -- Copy
-- Save   -- Cut
-- Close  -- Paste如果你想在右鍵中彈出菜單 Edit 是可以的,它沒有出現任何錯誤,但是,如果想彈出 Copy 就會出你這種錯誤了.

Answer 6

那设计子菜单是什么？我原来是这样的：
   标题              名称              index      可见
周次修改          Menueditweek           0         否
....修改          menuedit               1         是
....返回          menuedit               2         是
你指的是修改、和返回是子菜单吗？

Answer 7

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu fileItem
End If
End Sub
,其中fileItem是用菜单编辑器做的下拉菜单的名称

Answer 8

可是把menueditweek变为可见，它就在窗体的顶端显示出来了，我想做成右键的菜单啊？

Answer 9

啊，我知道了。是在菜单名前的index为空，就可以了，谢谢各位的帮助。