GetWindowText
宣告法:
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
用法:
從hWnd取得視窗的標題或物件的內容
範例:
假設小畫家的視窗的hWnd值是1234
Private Sub Command1_Click()
Dim Title As String * 255
Dim TitleLength As Long
TitleLength = GetWindowText(1234, Title, 255)
Text1 = Left(Title, TitleLength)
'Text1的內容會取得小畫家視窗的標題
End Function
實戰個案: