TB_CHECKBUTTON и TB_PRESSBUTTON НЕ ПОЙМУ!!!

[visualman]

Из справки:

TB_CHECKBUTTON - переключает кнопку из отжатого состояния в нажатое и обратно.

TB_PRESSBUTTON - приложение может установить кнопку в нажатое или отжатое состояние.

Ведь одно и то же?

Два последовательных сообщения TB_PRESSBUTTON с lParam = True и lParam = False не дают эффекта клика на кнопке.

BM_CLICK тут не работает, если кто будет советовать ))

Мне нужен простой клик по кнопке тулбара. Перерыл все источники. Не нашёл ((( Подскажите константу

[Nord777]

WM_LBUTTONDOWN
WM_LBUTTONUP

[visualman]

WM_LBUTTONDOWN
WM_LBUTTONUP

Хитрый какой )) Не будет оно работать. Нет у кнопок тулбара собственных hWnd. Может и есть, но до них не добраться. Есть только ID кнопки, который посылается в lParam или в wParam через SendMessage окну тулбара. И я ни как не могу найти нужное сообщение, которое является кликом на кнопке с заданным ID

[Nord777]

Пример на VB.Net (различий с VB6 немного)

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

    Dim X As Integer = 3
    Dim Y As Integer = 3
    'Dim Coord As Integer = Y << 16 Or X
    Dim Coord As Integer = Y * 65536 + X
    SendMessage(ToolBar1.Handle, WM_LBUTTONDOWN, 0, Coord)
    SendMessage(ToolBar1.Handle, WM_LBUTTONUP, 0, Coord)

В этом примере мышка кликает в тулбар по координатам 3,3 (попадая при этом в первую кнопку)
Получить координаты всех кнопок можешь при помощи сообщения TB_GETITEMRECT

[visualman]

Пример на VB.Net (различий с VB6 немного)

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

    Dim X As Integer = 3
    Dim Y As Integer = 3
    'Dim Coord As Integer = Y << 16 Or X
    Dim Coord As Integer = Y * 65536 + X
    SendMessage(ToolBar1.Handle, WM_LBUTTONDOWN, 0, Coord)
    SendMessage(ToolBar1.Handle, WM_LBUTTONUP, 0, Coord)

В этом примере мышка кликает в тулбар по координатам 3,3 (попадая при этом в первую кнопку)
Получить координаты всех кнопок можешь при помощи сообщения TB_GETITEMRECT

НИКАКОЙ МЫШКИ!!! НИКАКИХ КООРДИНАТ!!! ЭТО 'Прошлый век' )))

Если не понятно, что мне нужно - почитай про BM_CLICK.

Идея как раз и состоит в том, чтобы избавиться от мыши вообще. Чтобы она стояла на месте

[Хакер]

visualman

НИКАКОЙ МЫШКИ!!! НИКАКИХ КООРДИНАТ!!!

Прекрати орать. Для элементов, принцип работы которых таков, что элементы взаимодействия с пользователем формальны, и не существуют с точки зрения ОС, никаких иных способов, кроме предложенного Nord777 не существует.

Если тулбар, о котором идёт речь, отрисовывает кнопки сам и хранит все структуру, связанные с кнопками где-то у себя, то ты ничего не сделаешь.

[Nord777]

visualman

Идея как раз и состоит в том, чтобы избавиться от мыши вообще. Чтобы она стояла на месте

Она и так будет стоять на месте (если речь идет о мышином курсоре).

[visualman]

Это маршалинг, выложеный на VBS. Моего кода 4 строки в Command1_Click

[IvanTheTerrible]

Это маршалинг, выложеный на VBS. Моего кода 4 строки в Command1_Click

В первой же строке ошибка.

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

hWndTray = CLng(txthWnd)

Всегда будет возвращать 0, т.к. по умолчению txthWnd есть txthWnd.Text
Надо:

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

hWndTray = CLng(txthWnd.hWnd)

[/quote]

[visualman]

Это маршалинг, выложеный на VBS. Моего кода 4 строки в Command1_Click

В первой же строке ошибка.

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

hWndTray = CLng(txthWnd)

Всегда будет возвращать 0, т.к. по умолчению txthWnd есть txthWnd.Text
Надо:

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

hWndTray = CLng(txthWnd.hWnd)

[/quote]
Не разобрался - не пиши

[Nord777]

'ВОТ РЕКОМЕНДАЦИЯ Nord777 =============================
SendMessage hWndTray, WM_LBUTTONDOWN, tb.idCommand, 0
SendMessage hWndTray, WM_LBUTTONUP, tb.idCommand, 0
'======================================================

Ты просто невнимателен ))
более того, вот готовый код, который прекрасно нажимает кнопки.

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

  Sub TBClick(ByVal idButton As Integer)
    Dim R As New apiRECT
    Dim Coord As Integer

    SendMessage(ToolBar1.Handle, TB_GETITEMRECT, idButton, R)
    Coord = R.top * 65536 + R.left
    SendMessage(ToolBar1.Handle, WM_LBUTTONDOWN, 0, Coord)
    SendMessage(ToolBar1.Handle, WM_LBUTTONUP, 0, Coord)
  End Sub

[visualman]

'ВОТ РЕКОМЕНДАЦИЯ Nord777 =============================
SendMessage hWndTray, WM_LBUTTONDOWN, tb.idCommand, 0
SendMessage hWndTray, WM_LBUTTONUP, tb.idCommand, 0
'======================================================

Ты просто невнимателен ))
более того, вот готовый код, который прекрасно нажимает кнопки.

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

  Sub TBClick(ByVal idButton As Integer)
    Dim R As New apiRECT
    Dim Coord As Integer

    SendMessage(ToolBar1.Handle, TB_GETITEMRECT, idButton, R)
    Coord = R.top * 65536 + R.left
    SendMessage(ToolBar1.Handle, WM_LBUTTONDOWN, 0, Coord)
    SendMessage(ToolBar1.Handle, WM_LBUTTONUP, 0, Coord)
  End Sub

Ну не совсем так )) Вот рабочий вариант:

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

Dim RC As RECT
Dim Coord As Integer
With Marshal
    .MarshalInto VarPtr(RC), Len(RC)
    SendMessage hWndTray, TB_GETRECT, tb.idCommand, .rpMarshal
    .MarshalFrom VarPtr(RC), Len(RC)
End With
Coord = RC.Top * 65536 + RC.Left
SendMessage hWndTray, WM_LBUTTONDOWN, 0, Coord
SendMessage hWndTray, WM_LBUTTONUP, 0, Coord


Так оно работает!!!! Хакер! Больше кричать не буду!

Nord777, пасибо тебе БОЛЬШОЕ!!!! Читай личку)