Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: ToolBar Добавлено: 05.10.03 20:08  

Автор вопроса:  gvozd | Web-сайт: www.gvozdsoft.com

Как в ToolBar для каждой кнопки код написать?

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 &&&&M



Вопросов: 8
Ответов: 68
  Профиль | | #1 Добавлено: 05.10.03 21:14

Реакция на нажатитие?

Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    Case 1 'кнопка 1


'действие


    Case 2 'кнопка 2...


'действие


End Select
End Sub

Ответить

Номер ответа: 2
Автор ответа:
 Swift



Вопросов: 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам