Mostrar formulario por encima de aplicación activa
Hola a tod@s, estoy intentando hacer un reloj que tenga la posibilidad de activar alarmas. Cuando salta la alarma se muestra un formulario con un mensaje. El problema está en que si el reloj no es la aplicación activa (estoy usando el explorer por ejemplo), este formulario queda oculto. ¿Hay alguna forma de hacer que se muestre por encima de cualquier aplicación sin importar cuál está activa?
Gracias
Gracias
La que se me viene a la mente es always on top:
Private Const HWND_TOPMOST As Long = -1
Private Const SWP_NOMOVE As Long = &H2
Private Const SWP_NOSIZE As Long = &H1
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
public sub ColocarFormularioOnTop(byval hWnd as long)
setwindowpos hwnd, hwnd_topmost, 0,0,0,0, swp_nomove or swp_nosize
end sub
Private Const HWND_TOPMOST As Long = -1
Private Const SWP_NOMOVE As Long = &H2
Private Const SWP_NOSIZE As Long = &H1
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
public sub ColocarFormularioOnTop(byval hWnd as long)
setwindowpos hwnd, hwnd_topmost, 0,0,0,0, swp_nomove or swp_nosize
end sub
