Шаг 101 - Реакция на кнопку на панели инструментов

Щелкнув два раза по панели инструментов у Вас появится код, который будет вызываться при нажатии на кнопку.

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
	MsgBox "Hello"
End Sub

Определить какая кнопка нажата можно если заполнить свойство Buttons - Key. Это в свойствах панели инструментов - кнопки.

gif/101_1.gif (3935 b)

И теперь поменяем код:

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
MsgBox "Hello " + Button.Key
End Sub

А вот результат:

gif/101_2.gif (2293 b)

Вызывать разный код можно анализируя это свойство. Вот так, например:

Select Case Button.Key
	Case Is = "B1"         
		MsgBox "B1"
	Case Is = "B2
		MsgBox "B2"
	End Select

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.