Formulario siempre visible

[ema21del9]

Es posible hacer un formulario absolutamente siempre quede "enfrente" del monitor, de manera que aunque se restaure alguna otra ventana este formulario siga estando adelante de todo el resto de los programas.

[pkj]

Código vb:

Private Const conHwndTopmost = -1
Private Const conHwndNoTopmost = -2
Private Const conSwpNoSize = &H1
Private Const conSwpNoMove = &H2
Private Const conSwpNoActivate = &H10
Private Const conSwpShowWindow = &H40
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
 
Sub SiempreVisibleOn(ByVal hWndForm As Long)
  SetWindowPos hWndForm, conHwndTopmost, 0, 0, 0, 0, conSwpNoActivate Or conSwpNoMove Or conSwpNoSize
End Sub
 
'------------------------------------
 
Sub SiempreVisibleOff(ByVal hWndForm As Long)
  SetWindowPos hWndForm, conHwndNoTopmost, 0, 0, 0, 0, conSwpNoActivate Or conSwpNoMove Or conSwpNoSize
End Sub
 

Código vb:

' este boton activa el siempre visible para el form en el que lo pongas
Private Sub Command1_Click
  SiempreVisibleOn Me.hWnd
End Sub
 
' y este lo desactiva
Private Sub Command2_Click
  SiempreVisibleOff Me.hWnd
End Sub
 

Saludos