Научите меня пользоваться ToolBar-ом

[AntonGV]

Хотел использовать в своей проге TollBar. Все настроил, а как сделать чтобы при нажатии на кнопку происходило определенное действие я не знаю. Помогите пожалуйста!

[Antonariy]

У тулбара есть событие

Код: Выделить всё

ButtonClick(ByVal Button As MSComctlLib.Button)

Каждая кнопка идентифицируется индексом (Button.Index) или ключем (Button.Key), в зависимости от их значений можно выполнить то или иное действие. Ключи раздаются кнопкам самостоятельно при дизайне.

Отвлеченный пример:

Код: Выделить всё

Private Sub tlbMain_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case CInt(Mid(Button.Key, 3))
        Case gcStudentsList
            mnuAddressee_Click
        Case gcCustomerList
            mnuCustomers_Click
        Case gcOrderList
            mnuOrders_Click
        Case gcGroupsList
            mnuOwnerCtlgs_Click
    End Select
End Sub

[AntonGV]

Большое спасибо! Попробовал - все работает.

[Игорь Голов]

Можно и по-другому:

Код: Выделить всё

Private Sub tlbMain_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case <символическое имя ключа, указываемое в параметре Key кнопки>
<Действие>
...
EndSelect
EndSub


[Antonariy]

А в чем разница?

[Nicky]

Его смутило CInt(Mid(Button.Key, 3))