toolbar (dropdown)

[valk]

Добрый день!
Вот такая ситуация. Есть toolbar на нем предположим есть две кнопки. Стиль кнопок dropdown. первая кнопка - редактировать, вторая удалить. Списки в кнопках одинаковые, т.е. там и там предположим: "пользователей" и "группы". не получается отловить нажатие на списке одной или другой кнопки. т.е при нажатии на "Удалить пользователя" появляется form del, а при "Редактировать пользователя" появляется form edit.
Получается отловить вызов события Click по тексту, но этот вариант не подходит. Надо по индексу. Так как Текст может быть одинаковый.
Помогите пожалуйста.

[GB826]

событие ButtonClick может надо обрабатывать...?

в него "передается" нажатая кнопка а дальше можно по индексу...

[valk]

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

[GB826]

Задай каждому пункту меню Key да отлавливай, так даже удобней будет...

[GB826]

Слушай...
ButtonMenu.Parent.index - индекс кнопки "хозяина"

[echo]

Код: Выделить всё

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
MsgBox ButtonMenu.Parent.Index & " " & ButtonMenu.Index
End Sub

Ну и какой-нить СелектКейс

[valk]

вот почему то не получается.
я создал две кнопки.
первая: "вася"
"петя"
вторая: "коля"
"толя"

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Parent.Index
Case 1
' нажимаем на "вася"
Form2.Show
'форма открывается правильно

Case 2
' нажимаем на "петя
Form3.Show
'форма открывается не правильно

'зато нажимаем на "коля" или "толя" сробатывает Form3.Show

End Select
End Sub

[echo]

Смотри пример.
Для каждого ButtonMenu в свойствах тулбара присвоен свой key.

[GB826]

все правильно, что неправильно

Код: Выделить всё

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Parent.Index
Case 1

  select case ButtonMenu.Index   
     case 1 ' нажимаем на "вася"
         Form2.Show
     case 2 'Петя
        Form3.Show
  end select

'форма открывается правильно

Case 2


'Здесь обработка "коля" или "толя"

End Select
End Sub

[Ennor]

Что-то вы все гоните. Всё прекрасно работает:

Код: Выделить всё

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
MsgBox "Button index: " & ButtonMenu.Parent.Index & vbNewLine & _
"Button title: " & ButtonMenu.Parent.Caption & vbNewLine & _
"Menu index: " & ButtonMenu.Index, vbOKOnly
End Sub

[echo]

Ennor
И к чему это ты?
Собственно то же самое и говорили. Просто человеку лениво было посмотреть самому проперти и ему разъяснили.

[valk]

Смотри пример.
Для каждого ButtonMenu в свойствах тулбара присвоен свой key.

работает.
но все приходится делать через If ButtonMenu.Key = "olya" Then ....
а хотелось через индекс и select case.
Но все равно спасибо.

[echo]

но все приходится делать через If ButtonMenu.Key = "olya" Then ....
а хотелось через индекс и select case.

Вот ты странный человек. ButtonMenu.Key можно и с select case'oм использовать.
А Индекс неприятен тем, что ты не видишь чего там у тебя Select. А так написал в ключе типа "menu_edit_users" и всё понятно.

[valk]

все нормально. всем большое спасибо.

[Saturn.65]

Скажите пожалуйста, как менять размер кнопок в Toolbare? И возможно ли это?
Никак размер не могу изменить. А то надпись в низу кнопки, а остальное пустое пространство. Не красиво получается.

[Viper]

Размер кнопок зависит от размера используемых рисунков и надписи (если она есть).

[Saturn.65]

Размер кнопок зависит от размера используемых рисунков и надписи (если она есть).

От рисунков то да. Но вот когда создаю кнопку и называю ее просто цифрой 1, то она вертикально вытягивается, а цифра в самом низу. На задание высоты и ширины не реагирует, все сбрасывает по умолчанию.

[Денис]

она вертикально вытягивается, а цифра в самом низу

я пофиксил так - положил в ImageList одну прозрачную картинку размерами 1х8 и прилинковал его к тулбару. конечно способ ламерский, погоди, щас сабклассинга насоветуют

[Saturn.65]

Нашел чудо-кнопку. Забудьте о проблемах установки toolbara.
Все очень просто, в любом месте формы. Кнопки с рисунками и без.Любые цветовые и объемные эффекты. Любые размеры.