Windows API Guide: GetPrivateProfileString Function

Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal nMaxCount As Long) As Long

Platforms

Windows 95: Supported.
Windows 98: Supported.
Windows NT: Requires Windows NT 3.1 or later.
Windows 2000: Supported.
Windows CE: Requires Windows CE 1.0 or later.

Description & Usage

GetWindowText retrieves the text of a window. For regular windows, this is the text which appears in the title bar. For controls, this is the text in the control. Note that GetWindowText cannot retrieve the text in a control owned by another program. To get that text, use the WM_GETTEXT message instead.

Return Value

If an error occured, the function returns 0 (use GetLastError to get the error code). If successful, the function returns the number of characters copied into the string passed as lpString, not counting the terminating null character.

Visual Basic-Specific Issues

None.

Parameters

hWnd: A handle to the window to read the title of.
lpString: String variable that receives the window's text. This must already have enough room to receive the string.
nMaxCount: The length in characters of lpString.

Example

' This code is licensed according to the terms and conditions listed here. ' Display the text displayed in the title bar of window Form1 Dim textlen As Long  ' receives length of text of the window Dim wintext As String  ' receives the text of the window Dim slength As Long  ' receives the length of the returned string ' Find out how many characters are in the window's text. ' Add 1 to compensate for the terminating null. textlen = GetWindowTextLength(Form1.hWnd) + 1 ' Make sufficient room in the buffer. wintext = Space(textlen) ' Retrieve the text of window Form1. slength = GetWindowText(Form1.hWnd, wintext, textlen) ' Remove the empty space from the string, if any. wintext = Left(wintext, slength) ' Display the result. Debug.Print "The title bar of window Form1 is: "; wintext