Исходники
Статьи
Языки программирования
.NET Delphi Visual C++ Borland C++ Builder C/С++ и C# Базы Данных MySQL MSSQL Oracle PostgreSQL Interbase VisualFoxPro Веб-Мастеру PHP HTML Perl Java JavaScript Протоколы AJAX Технология Ajax Освоение Ajax Сети Беспроводные сети Локальные сети Сети хранения данных TCP/IP xDSL ATM Операционные системы Windows Linux Wap Книги и учебники
Скрипты
Магазин программиста
|
Ishodniki.Ru » Online книги » Visual Basic по шагам Шаг 101 - Реакция на кнопку на панели инструментов Щелкнув два раза по панели инструментов у Вас появится код, который будет вызываться при нажатии на кнопку. Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button) MsgBox "Hello" End Sub Определить какая кнопка нажата можно если заполнить свойство Buttons - Key. Это в свойствах панели инструментов - кнопки. И теперь поменяем код: Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button) MsgBox "Hello " + Button.Key End Sub А вот результат: Вызывать разный код можно анализируя это свойство. Вот так, например: Select Case Button.Key Case Is = "B1" MsgBox "B1" Case Is = "B2 MsgBox "B2" End Select
|
Форум Программиста
Новости Обзоры Магазин Программиста Каталог ссылок Поиск Добавить файл Обратная связь Рейтинги
|