Getting the handle of the active window

[smalldady]

How do I get the handle of the window that is currently focused?

[super000_98]

Use the API call GetForegroundWindow()
This returns the handle of the window that currently has focus. First you need to paste this into your code so you have access to the call:

Public Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long


Then you can call this without any parameters. The return value is a long

[chrisjk]

I think you need the GetForegroundWindow API...

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Activate()
 
Dim Ret As Long
 
Do
    'Get the handle of the foreground window
    Ret = GetForegroundWindow()
    'Get the foreground window's device context
    Ret = GetDC(Ret)
    'draw an ellipse
    Ellipse Ret, 0, 0, 200, 200
    DoEvents
Loop
 
End Sub

That is an example that draws an ellipse on the active window

[smalldady]

Thanks that did the trick.