关于ActiveBar2的一个奇怪问题，救命呀！！！

Question

奇怪，不报错吗？Tools（）的参数应该是index。

Answer 1

我也用这个控件，是可以实现的。
Private Sub ActiveBar21_ToolClick(ByVal Tool As ActiveBar2LibraryCtl.Tool)
    Select Case Trim(Tool.Name)
        Case "mnuDataInputJiHua"
            Call mnuDataInputJiHua_Click '计划单生成
            ActiveBar21.Tools(0).Checked = True
......
    End select
End Sub

Answer 2

应该是这样：ActiveBar21.Tools(Tool.ID).Checked = True
刚才的是测试用的。

Answer 3

你的这行代码有错误：
Activebar21.Tools("bold").checked=True
必须为Tool指明所属的Band,即应将上行代码改为：
Activebar21.Bands("Band1").Tools("bold").checked=True  'Band1应为Tool所属的Band的Name属性。
更简单的方法是将代码改为：
Tool.checked=True