Ventanas siempres en primer plano

Hola, y gracias de antemano por la respuesta.
Mi pregunta es como hacer que un form este siempre por encima de cualquier aplicación (Estilo TaskManager de NT).
Gracias
1

1 respuesta

Respuesta
1
Aqui te paso la funcion para hacerlo, debes ponerla en un modulo y llamar
a la funcion pasandole el formulario -> ej. SetFormOnTop me
'Declare our API functions
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
'Declare our constants
'SWP stands for SetWindowPos
'SWP_NoSize tells SetWindowPos to ignore the cx and cy arguments
Private Const SWP_NOSIZE = &H1
'SWP_NoMove tells SetWindowPos to ignore the x and y arguments.
Private Const SWP_NOMOVE = &H2
'HWND_TOPMOST is passed to SetWindowPos to set the target window Always On Top.
Private Const HWND_TOPMOST = -1
'HWN_NOTOPMOST is passed to SetWindowPos to remove Always on Top
Private Const HWND_NOTOPMOST = -2
'Declare our variables
Public Sub SetFormOnTop(myForm As Object)
SetWindowPos myForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas