关于右键菜单的执行代码能不能放在窗体的代码窗口中?

yangzn

一个右键菜单是总是针对一个窗体。可以执行代码却要新建一个模块来放置。不便于维护。要是能集成在窗体代码窗口，该多好。有没有一个类似的好的办法呢？？

[此贴子已经被作者于2006-9-18 18:02:25编辑过]

andymark

右键菜单用窗体生成,这样当然可以

yangzn

版主能不能说再明白点。 我做了一个，可以还是要个标准模块
Private Sub BuildMenu()
    Dim c As CommandBarButton
    Dim cBar As CommandBar
    On Error Resume Next
    Set cBar = CommandBars(Me.Name & "右键菜单")
    cBar.Delete
   
    On Error GoTo 0
    Set cBar = CommandBars.Add(Me.Name & "右键菜单", msoBarPopup)
   
    Set c = cBar.Controls.Add(msoControlButton)
        c.Caption = "代码建的右菜单,并调用窗体的菜单1"
        c.OnAction = "=myPOP(1)"
        c.Style = msoButtonCaption
    Set c = cBar.Controls.Add(msoControlButton)
        c.Caption = "菜单2"
        c.OnAction = "=myPOP(2)"
        c.Style = msoButtonCaption
   
End Sub

其中不能设成 s="=Forms(" & chr(34) & me.name & chr(34) & ".popMenu(1)"

c.OnAction=s 是不是我的语法有问题!!??，还是该用其它方法

[此贴子已经被作者于2006-9-18 20:43:45编辑过]

andymark

不用 acDialog模式就没问题