Исходники.Ру - Программирование
Исходники
Статьи
Книги и учебники
Скрипты
Новости RSS
Магазин программиста

Ishodniki.Ru » Online книги » Visual Basic по шагам

Шаг 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

 

Предыдущий шаг | Оглавление | Следующий шаг

Рассылка новостей
Рейтинги
© 2007, Программирование Исходники.Ру