Страница: 1 |
Вопрос: ToolBar | Добавлено: 05.10.03 20:08 |
Автор вопроса: ![]() |
Как в ToolBar для каждой кнопки код написать? |
Ответы | Всего ответов: 2 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 8 Ответов: 68 |
Профиль | Цитата | #1 | Добавлено: 05.10.03 21:14 |
Реакция на нажатитие? Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)
|
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 5 Ответов: 43 |
Профиль | Цитата | #2 | Добавлено: 07.10.03 13:10 |
Между прочим, есть один кривой способ избавиться от проверки констант, и сделать обработку, как от кнопок. Public mnuFileExit As MSComctlLib.Button Private Sub LoadToolbars() Dim b As MSComctlLib.Button, TB As MSComctlLib.Toolbar Set TB = ME.tbToolbar Set b = TB.Buttons.Add(, , , , "EXIT") b.ToolTipText = "Выход" Set Me.mnuFileExit = b End Sub Public Function tbToolbar_ButtonClick(ByRef pButton As MSComctlLib.Button) As Boolean If pButton Is Me.mnuFileExit Then mnuFileExit_Click end if end function Может и не удобно, зато избавляемся от неправильного написания констант, + дальнейшие возможности работы с объектом. |
Страница: 1 |
|