Пара вопросов о Тулбаре

[Maitris]

1. Можно ли поменять BgColor у Toolbar?

Ну наподобие того
Call SendMessage(StatusBar1.hwnd, SB_SETBKCOLOR, 0&, ByVal &HFFC0C0)
применимо ли это у тулзбару? Ведь никому не нужен серый цвет (

2. Или я такой тормоз, или че, ну в общем не могу программно вызвать нажатие определенной кнопки панели
Call Toolbar1_ButtonClick("Back")
почему то "Type mismatch", а другого ничего в голову не приходит.

[Ruslan Demidow]

По второму вопросу: ты передаёшь параметром в процедуру обработки события ключ кнопки, а надо саму кнопку передавать. Потому как уже в процедуре обработки ты получаешь ключ кнопки.

Т.е. это должно выглядеть примерно так:

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


Call Toolbar1_ButtonClick(Toolbar1.Buttons("Back"))


А в самой процедуре:

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


Sub Toolbar1_ButtonClick(ByVal Button as MS.....Button) 'как то так, сейчас нет под рукой VB (на работе сижу).
'Пишу по памяти
'А уже в процедуре получить ключ кнопки
Select Case Button.Key
     Case "Back"
          MsgBox "Нажата кнопка Back"
End Select
End Sub


[Ruslan Demidow]

Да и тулбар (по-моему) сам принимает цветовую схему системы (кроме кнопок, если у пиктограм фон задан явно).

[Maitris]

Ruslan Demidow
Пасиба
Правда сработало вот так:

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

Call Toolbar1_ButtonClick(Toolbar1.Buttons(1))


Т.е.
(Toolbar1.Buttons(ИндексКнопки))