Поверх всех...

[Андрей Васюта]

Как я могу разместить свою форму поверх всех открытых окон

[Aleksej]

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

Private Declare Function SetWindowPos Lib "User32" ( _
                        ByVal hWnd As Long, _
                        ByVal hWndInsertAfter As Long, _
                        ByVal x As Long, _
                        ByVal Y As Long, _
                        ByVal cx As Long, _
                        ByVal cy As Long, _
                        ByVal wFlags As Long) As Long

Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

Public Function AlwaysTop(Form As Form)

Call SetWindowPos(Form.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
                SWP_NOMOVE + SWP_NOSIZE)

End Function


[Андрей Васюта]

М не нужно чтобы при изменении Label, моя форма выводилась поверх всех остальных.За функцию СПАСибоооо, но куда ее приткнуть чтобы получилось то что мне нужно.

[Vitaly1]

Надо менять значение параметра вывода HWND_TOPMOST, когда он -1 форма поверх других, в других случаях меняется тип вывода!

[Aleksej]

Сделай вызов этой функции из события Label1_Change().

[tyomitch]

Надо менять значение параметра вывода HWND_TOPMOST, когда он -1 форма поверх других, в других случаях меняется тип вывода!

вообще ничего из этой фразы не понял...
Vitaly1, тебя уже не первый раз спрашивают - где траву такую берёшь?

[Ennor]

...
Vitaly1, тебя уже не первый раз спрашивают - где траву такую берёшь?

Статус его видишь? Говорят, что индийский каннабис - самый мазовый в мире. Так что ничего удивительного...
Насчет Label1_Change: а точно такое событие существует? Имхо, его нет смысла делать, ибо лэйбл пользователем не редактируется. То есть, оно вполне может быть, но смысл и логика - ?

[tyomitch]

Event Change()
Member of VB.Label
Occurs when the contents of a control have changed.