SendMessage

[sl-shem]

Как с помощью API или может еще как установить диапазон (Min,Max) в ProgressBar и прокрутить его имея значение его хендла?
Я пробую вот так, но не выходит:

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

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const PBM_SETRANGE = &H400 + 1

'пытаюсь установть диапазон
Dim lRng As Long, lMin as Long, lMax as Long
lMin = 1: lMax = 40
lRng = CLng((lMin And &HFFFF&) Or ((lMax And &HFFFF&) * 65536))
SendMessage Me.ProgressBar1.hWnd, PBM_SETRANGE, 0, byVal lRng


но ничего не менятся

[keks-n]

Гм. Хочешь, дам класс, для прогрессбара полностью на API? С возможностью задания hWnd/создания нового прогрессбара.

[GSerg]

Откуда делаешь вывод, что ничего не меняется?

[sl-shem]

Все это я делаю для того что бы из основной программы вызвать EXEшник который бы управлял элемнтами в основной программе в том числе прогресс баром!

[GSerg]

Жесточайшая архитектура, однако...
Но раз надо именно так, хотя и непонятно почему, то в Кирпичах бери маршалер Тёмыча для отправки сообщений в другой процесс.

[tyomitch]

Неа. Там же число, а не структура. Не нужен маршалинг.