[已解决]CommandBarControl 对象的问题

爱疯

Sub test1()
    Dim i As Integer

    On Error Resume Next
    CommandBars("九阴真经").Delete
    On Error GoTo 0


    '增加一个菜单栏，名叫"九阴真经"，在顶部，临时
    CommandBars.Add Name:="九阴真经", Position:=msoBarTop, Temporary:=True


    '增加后默认看不到，即没打钩。Visible = True，才看得到。
    CommandBars("九阴真经").Visible = True


    '弹出框
    CommandBars("九阴真经").Controls.Add Type:=msoControlPopup

    With CommandBars("九阴真经").Controls(1)
        .Caption = "降龙十八掌"
        For i = 1 To 18
            .Controls.Add
            .Controls(i).Caption = i
            .OnAction = "haha"
        Next i
    End With
End Sub

 

 

 

我有几个地方不清楚：

1. 希望点击"降龙十八掌"中任意一项的时候，执行haha()。结果刚点"降龙十八掌"，还没展开，就执行了，请问应怎么改？
2. 当输入CommandBars("九阴真经").Controls(1)，打点后，提示列表里看不到Controls，而实际却存在。为此，我找了半天怎么新加。这算是错误吗？
3. 可以如下图，为菜单中项目添加图标么？

N6m6LESd.rar (7.96 KB, 下载次数: 2)

2010-3-23 11:03 上传

点击文件名下载附件
CommandBarControl 对象的问题

最佳答案

月排行榜 / 总排行榜

amulee

2010-3-23 13:22

1、错了一句：

With CommandBars("九阴真经").Controls(1)
        .Caption = "降龙十八掌"
        For i = 1 To 18
            .Controls.Add
            .Controls(i).Caption = i
            .Controls(i).OnAction = "haha"
        Next i
    End With
End Sub

2、没有点也很正常Sheets("sheet1")后面也没有点。

3、

Sub test1()
    Dim i As Integer
    On Error Resume Next
    Application.CommandBars(1).Controls("九阴真经").Delete
    On Error GoTo 0
    '增加一个菜单栏，名叫"九阴真经"，在顶部，临时
    With CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)
        .Caption = "九阴真经"
        .Visible = True
        For i = 1 To 18
            .Controls.Add
            .Controls(i).Caption = i
            .Controls(i).OnAction = "haha"
        Next i
    End With
End Sub

Sub test2()
    Application.CommandBars(1).Controls("九阴真经").Delete
End Sub

跳转到最佳答案楼层

amulee

1、错了一句：

With CommandBars("九阴真经").Controls(1)
        .Caption = "降龙十八掌"
        For i = 1 To 18
            .Controls.Add
            .Controls(i).Caption = i
            .Controls(i).OnAction = "haha"
        Next i
    End With
End Sub

2、没有点也很正常Sheets("sheet1")后面也没有点。

3、

Sub test1()
    Dim i As Integer
    On Error Resume Next
    Application.CommandBars(1).Controls("九阴真经").Delete
    On Error GoTo 0
    '增加一个菜单栏，名叫"九阴真经"，在顶部，临时
    With CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)
        .Caption = "九阴真经"
        .Visible = True
        For i = 1 To 18
            .Controls.Add
            .Controls(i).Caption = i
            .Controls(i).OnAction = "haha"
        Next i
    End With
End Sub

Sub test2()
    Application.CommandBars(1).Controls("九阴真经").Delete
End Sub

amulee

CommandBars.Add              是新建一个命令栏

CommandBars(1).Controls.Add  是在菜单栏添加按钮

爱疯

谢谢阿木！

学习了。

第2个问题，它是有提示的，只是我要找的（conrtols）正好没有，这让我很晕？