make windows always active

[junis]

dear all..

i have some application running (ex. Winword, Notepad, and My Application).

the objective is ...
i want My Application always active ... i mean that the windows is always see in screen and any other can't be active ...

thx 4 ur advice

-junis-

[QVeen72]

Hi,

This is doen by using "SetWindowPos" API
Declare this at the top of CodeWindow (after Option Explicit) :

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 HWND_NOTOPMOST = -2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
 

Call this in FormLoad :

Private Sub Form_Load()
    Dim iFlag As Long
    iFlag = IIf(True, HWND_TOPMOST, HWND_NOTOPMOST)
    SetWindowPos Me.hwnd, iFlag, Me.Left / Screen.TwipsPerPixelX, Me.Top / Screen.TwipsPerPixelY, _
                Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW
 
End Sub
 

REgards
Veena