有一个难题！！！

Question

如果你的按钮的关键字有填的话可以这样使那个关键字维Key的按钮不可用
ToolBar1.Button("Key").Enable = FALSE;
或
ToolBar1.Button（index）。Enable = FALSE;
index 是工具栏的第几个按钮

Answer 1

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
    Toolbar1.Buttons(Button.Index).Enabled = False '点哪个哪个不行
End SubPrivate Sub Command1_Click()
    Toolbar1.Buttons(1).Enabled = True '第一个可以
End SubPrivate Sub Command2_Click()
    Toolbar1.Buttons("save").Enabled = True 'save的可以
End Sub