Use FindWindowEx() to find Controls?

[Lars Netzel]

Do I use FindWindowEx() to find control ( a button.. ) within a Window or
is that only to find child Windows after using FindWindows()

best regards
/Lars

[Herfried K. Wagner [MVP]]

"Lars Netzel" <ui****@adf.s e> schrieb:

Do I use FindWindowEx() to find control ( a button.. ) within a Window or
is that only to find child Windows after using FindWindows()

Yes, 'FindWindowEx' is designed for this purpose. Buttons that are placed
on forms are child windows.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Lars Netzel]

Thank you.. then.. how come this does not work? my FSM window have a button
with the caption "Button1"
Private Declare Function FindWindow Lib "user32" Alias "FindWindow A" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Integer

Public Declare Function FindWindowEx Lib "user32" (ByVal hWnd1 As Long,
ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
hWnd = FindWindow(vbNu llString, "FSM")
MsgBox("FSM: " & hWnd)

MsgBox("Button1 : " & FindWindowEx(hW nd, 0&, "Button1", vbNullString))

It finds the window fine.. but not the button... is the declaration okay?

Best regards
/Lars

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:O2******** *****@tk2msftng p13.phx.gbl...

"Lars Netzel" <ui****@adf.s e> schrieb:

Do I use FindWindowEx() to find control ( a button.. ) within a Window
or is that only to find child Windows after using FindWindows()

Yes, 'FindWindowEx' is designed for this purpose. Buttons that are placed
on forms are child windows.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Herfried K. Wagner [MVP]]

"Lars Netzel" <ui****@adf.s e> schrieb:

Thank you.. then.. how come this does not work? my FSM window have a
button with the caption "Button1"
Private Declare Function FindWindow Lib "user32" Alias "FindWindow A"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

Public Declare Function FindWindowEx Lib "user32" (ByVal hWnd1 As Long,
ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
[...]
It finds the window fine.. but not the button... is the declaration okay?

Use these declarations and the code below (untested):

\\\
Private Declare Auto Function FindWindow Lib "user32.dll " ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String _
) As IntPtr

Private Declare Auto Function FindWindowEx Lib "user32.dll " ( _
ByVal hwndParent As IntPtr, _
ByVal hwndChildAfter As IntPtr, _
ByVal lpszClass As String, _
ByVal lpszWindow As String _
) As IntPtr
..
..
..
Dim hWnd As IntPtr = FindWindow(vbNu llString, "FSM")
If hWnd.Equals(Int Ptr.Zero) Then
Return
End If
Dim hWndButton As IntPtr = _
FindWindowEx(hW nd, IntPtr.Zero, "BUTTON", "Button 1")
If hWndButton.Equa ls(IntPtr.Zero) Then
Return
End If
....
///

Note that "BUTTON" must be replaced by the Win32 window class name of the
control. This is typically "BUTTON" for C-based applications, but the class
name can differ for applications written in Classic Visual Basic and .NET.
You can use the Spy++ utility which comes with VS.NET to grab the control's
class name. The last parameter of 'FindWindowEx' expects the button's
caption. Make sure you don't forget the leading "&" character if the
caption contains an accelerator key.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Dragon]

Hi Lars,

It finds the window fine.. but not the button... is the declaration

okay?

Nope, it isn't.

You better try this instead:

~
Private Declare Auto Function FindWindow Lib "user32.dll " ( _
<MarshalAs(Unma nagedType.LPTSt r), [In]()> ByVal lpClassName As
String, _
<MarshalAs(Unma nagedType.LPTSt r), [In]()> ByVal lpWindowName As
String _
) As IntPtr

Private Declare Auto Function FindWindowEx Lib "user32.dll " ( _
ByVal hWndParent As IntPtr, _
ByVal hWndChildAfter As IntPtr, _
<MarshalAs(Unma nagedType.LPTSt r), [In]()> ByVal lpszClass As
String, _
<MarshalAs(Unma nagedType.LPTSt r), [In]()> ByVal lpszWindow As
String _
) As IntPtr
~

Roman

[Lars Netzel]

Thank you, that worked!:) Just that little Auto word missing... what does
that mean?
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:%2******** ********@TK2MSF TNGP15.phx.gbl. ..

"Lars Netzel" <ui****@adf.s e> schrieb:

Thank you.. then.. how come this does not work? my FSM window have a
button with the caption "Button1"
Private Declare Function FindWindow Lib "user32" Alias "FindWindow A"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

Public Declare Function FindWindowEx Lib "user32" (ByVal hWnd1 As Long,
ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As
Long
[...]
It finds the window fine.. but not the button... is the declaration
okay?

Use these declarations and the code below (untested):

\\\
Private Declare Auto Function FindWindow Lib "user32.dll " ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String _
) As IntPtr

Private Declare Auto Function FindWindowEx Lib "user32.dll " ( _
ByVal hwndParent As IntPtr, _
ByVal hwndChildAfter As IntPtr, _
ByVal lpszClass As String, _
ByVal lpszWindow As String _
) As IntPtr
.
.
.
Dim hWnd As IntPtr = FindWindow(vbNu llString, "FSM")
If hWnd.Equals(Int Ptr.Zero) Then
Return
End If
Dim hWndButton As IntPtr = _
FindWindowEx(hW nd, IntPtr.Zero, "BUTTON", "Button 1")
If hWndButton.Equa ls(IntPtr.Zero) Then
Return
End If
...
///

Note that "BUTTON" must be replaced by the Win32 window class name of the
control. This is typically "BUTTON" for C-based applications, but the
class name can differ for applications written in Classic Visual Basic and
.NET. You can use the Spy++ utility which comes with VS.NET to grab the
control's class name. The last parameter of 'FindWindowEx' expects the
button's caption. Make sure you don't forget the leading "&" character if
the caption contains an accelerator key.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Nick Hall]

"Lars Netzel" <ui****@adf.s e> wrote in message
news:e8******** *****@tk2msftng p13.phx.gbl...

Thank you, that worked!:) Just that little Auto word missing... what does
that mean?

It lets the runtime decide whether the strings are passed as Unicode or
ANSI. On Win9X platforms they are passed as ANSI; on all other Windows
platforms they are passed as Unicode

Hope this helps,

Nick Hall

[Herfried K. Wagner [MVP]]

"Nick Hall" <ni***@aslan.no spam.co.uk> schrieb:

Thank you, that worked!:) Just that little Auto word missing... what does
that mean?

It lets the runtime decide whether the strings are passed as Unicode or
ANSI. On Win9X platforms they are passed as ANSI; on all other Windows
platforms they are passed as Unicode

BTW: The documentation for the 'Declare' statement contains an explanation
too.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>