Toolbar.Бутоны

[BION]

Имею тулбар, точнее он меня — нужно сделать одну кнопку с текстом, другую без, т.е только с иконкой, НО, все кнопки автоматом тяноутся на одинаковую длину!
Как это побороть? Много тулбаров — не вариант.
Заранее поклон Вам.

[Antonariy]

Нужно с помощью апи установить стиль (TBSTYLE_LIST вроде) чтобы подписи были справа. Если подписи снизу, будут тянуться в любом случае.

[BION]

Чета не делается, т.е. флэт и текст справа делает, а автосайз не хочет.

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

Option Explicit

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_STYLE = (-16)
Private Const TBSTYLE_AUTOSIZE = &H10

Private Const TBSTYLE_LIST = &H1000
Private Const TBSTYLE_FLAT = &H800

......

Dim lStyle As Long
Dim lTB As Long
lTB = FindWindowEx(tbrMain.hwnd, 0&, vbNullString, vbNullString)
lStyle = GetWindowLong(lTB, GWL_STYLE)
SetWindowLong lTB, GWL_STYLE, lStyle Or TBSTYLE_FLAT Or TBSTYLE_AUTOSIZE Or TBSTYLE_LIST

[Alexanbar]

Там внутри тулбара сидит другое окно класса msvb_lib_toolbar. Возможно, что стиль надо менять для этого окна:

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

hwnd = FindWindowEx(toolbar1.hwnd, 0, "msvb_lib_toolbar", "")

[BION]

Там внутри тулбара сидит другое окно класса msvb_lib_toolbar. Возможно, что стиль надо менять для этого окна:

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

hwnd = FindWindowEx(toolbar1.hwnd, 0, "msvb_lib_toolbar", "")

Нет, ничего не изменилось.
Вобщем, ну её нафик, поставлю пикчу и налеплю свои флэтбатаны, время — деньги.

[Antonariy]

Естественно не изменилось. msvb_lib_toolbar это ошибка природы, шестые контролы. Я подразумевал пятые.
И кстати да, само окно тулбара ToolbarWindow32, которому нужно ставить стиль, завернуто в ToolbarWndClass, которое возвращается свойством Toolbar.hWnd.

[RazArt]

BION, а почему бы не создать новый активикс?

[BION]

BION, а почему бы не создать новый активикс?

Зачем? Если есть альтернатива.

[VBTerminator]

Чтобы не мучаться каждый раз ни тебе, ни другим.

[Alexanbar]

Вот как раз с созданием нового контрола и придётся помучиться. И довольно долго.

[BION]

Вот как раз с созданием нового контрола и придётся помучиться. И довольно долго.

Вот-вот, а время — нынче штука дорогая.