[已解决]VB中制作COM加载项时，如何添加子菜单

hwc2ycy

你把你的COM工程发我，我试下。

事后诸葛亮

hwc2ycy 发表于 2013-7-19 10:46
你把你的COM工程发我，我试下。

COM工程.rar (7.49 KB, 下载次数: 18)

2013-7-19 10:48 上传

点击文件名下载附件
谢谢了

hwc2ycy

缺文件，你把所有的都打包上传。

事后诸葛亮

hwc2ycy 发表于 2013-7-19 10:53
缺文件，你把所有的都打包上传。

自定义菜单COM加载项.rar (17.7 KB, 下载次数: 44)

2013-7-19 10:54 上传

点击文件名下载附件

事后诸葛亮

不好意思 呵呵 就是生成DLL文件

hwc2ycy

还是缺文件。

hwc2ycy

你添加了引用没有？
EXCEL和OFFICE的，另外，设置可有对？

hwc2ycy

   Dim WithEvents mn1 As Office.CommandBarButton
   Dim WithEvents mn2 As Office.CommandBarButton
原来的代码这里定死了，得改类型才行。

事后诸葛亮

hwc2ycy 发表于 2013-7-19 11:10
Dim WithEvents mn1 As Office.CommandBarButton
   Dim WithEvents mn2 As Office.CommandBarButton
...

我也不知道怎么回事了。这是VB里面的原代码，你帮我弄一个吧。谢谢了。

   Dim oXL As Object
   Dim mnMain As Office.CommandBarPopup
   Dim WithEvents mn1 As Office.CommandBarButton
   Dim WithEvents mn2 As Office.CommandBarButton
   Dim WithEvents MyButton As Office.CommandBarButton

Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)

'    Dim mymenu As Object 'CommandBarControl
'    Dim mnMain As Object
'    Dim mn1 As Object, mn2 As Object
    On Error Resume Next

    Set oXL = Application
    oXL.CommandBars("Worksheet Menu Bar").Controls("提取功能").Delete
    Set mnMain = oXL.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=11)
    mnMain.Caption = "提取功能"
    Set mn1 = mnMain.Controls.Add(Type:=msoControlButton, Before:=1)
    With mn1
        .Caption = "提取文件名"
        .OnAction = "!<" & AddInInst.ProgId & ">"
        .FaceId = 162
        '.Visible = True
    End With
    Set mn2 = mnMain.Controls.Add(Type:=msoControlButton, Before:=2)
    With mn2
        .Caption = "提取E表数据"
        .BeginGroup = True '增加间隔符
        .OnAction = "!<" & AddInInst.ProgId & ">"
        .FaceId = 300
        '.Visible = True
        With .Controls.Add(Type:=msoControlButton)
            .Caption = "子菜单一"
            .Visible = True
        End With
        With .Controls.Add(Type:=msoControlButton)
            .Caption = "子菜单二"
            .Visible = True
        End With
    End With
End Sub

hwc2ycy

1.    Dim oXL As Object
   
2.    Dim mnMain As Office.CommandBarPopup
   
3.    Dim mnMain2 As Office.CommandBarPopup
   
4.    Dim WithEvents mn1 As Office.CommandBarButton
   
5.    Dim WithEvents mn2 As Office.CommandBarButton
   
6.    Dim WithEvents MyButton As Office.CommandBarButton
   
7. 
   
8.    Private Sub AddinInstance_OnConnection(ByVal Application As Object, _
   
9.     ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _
   
10.     ByVal AddInInst As Object, custom() As Variant)
    
11. 
    
12.       
    
13. '    Dim mymenu As Object 'CommandBarControl
    
14. '    Dim mnMain As Object
    
15.     'Dim mn1 As Object, mn2 As Object
    
16.     On Error Resume Next
    
17.    
    
18.     Set oXL = Application
    
19.     oXL.CommandBars("Worksheet Menu Bar").Controls("期末处理(K)").Delete
    
20.     Set mnMain = oXL.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=11)
    
21.     mnMain.Caption = "期末处理(K)"
    
22.     Set mn1 = mnMain.Controls.Add(Type:=msoControlButton, Before:=1)
    
23.     With mn1
    
24.         .Caption = "移动1"
    
25.         .OnAction = "!<" & AddInInst.ProgId & ">"
    
26.         .FaceId = 162
    
27.         '.Visible = True
    
28.     End With
    
29.     Set mnMain2 = mnMain.Controls.Add(Type:=msoControlPopup, Before:=2)
    
30.     With mnMain2
    
31.         .Caption = "移动2"
    
32.         .BeginGroup = True '增加间隔符
    
33.         '.OnAction = "!<" & AddInInst.ProgId & ">"
    
34.         '.FaceId = 300
    
35.         '.Visible = True
    
36.         Set mn1 = .Controls.Add(Type:=msoControlButton)
    
37.                 With mn1
    
38.                 .Caption = "子菜单1"
    
39.                 .Visible = True
    
40.                 End With
    
41.         Set mn2 = .Controls.Add(Type:=msoControlButton)
    
42.                 With mn1
    
43.                 .Caption = "子菜单2"
    
44.                 .Visible = True
    
45.                 End With
    
46.                
    
47.         
    
48.     End With
    
49.    
    
50.    End Sub

复制代码