Ventana inescondible

[Jad-Neo]

¿Alguén sabe como le puedo hacer para que una ventana nunca se pase hacia atrás?,osea que siempre esté visible por más ventanas que se abran.

Igual que la ventana del Administrador de Tareas de Windows, cuando se presiona Ctrl+Alt+DEL

[Modern_Crusades]

pon este codigo en un modulo
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

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


Public Sub PutWindowOnTop(pFrm As Form)
Dim lngWindowPosition As Long

lngWindowPosition = SetWindowPos(pFrm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)

End Sub

y luego e nel load de tu form pon
Call PutWindowOnTop(Me)


asi siempre estara en el frente eso si
si quieres poner algo ensima de esa
tendras que decirle a esa nueva
Call PutWindowOnTop(Me)

de ese modo los forms que llames con ese metodo estaran ensima de todo siempre menos de forms con ese metodo

[Jad-Neo]

Gracias hermano, ya lo probé pero no hace exactamente lo que busco.

Fijate que lo que me gustaría que hiciera es que nunca se le puedan anteponer ventanas. Ponle tu que abres el Office, Messenger y cuanto programa quieras; ¿como le haría para que nunca se esconda la ventana?.

Me disculpo por cualquier inconveniente.

[darkhack]

Lo k no kieres es que tu aplicacion salga de foco no??
Si es asi deja buscar yo tengo por ahi un ejemplo de como hacerlo.

[Modern_Crusades]

SetWindowPos(pFrm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE) en el argumentodonde dice no move busca en el windows api y tiene opcion de no hide y varios uno de esos sevira, igual que e ltopmost tiene propiedades de bottom etc.

[Jad-Neo]

Gracias por el tip. Como el post anterior lo puese hace ya una semana me encargué de arreglar ese problemilla poniendolo en un Do...Loop, de esa forma jamás se esconde la ventana, o como tu dices no pierde el "foco".

Gracias Modern.