２６．ウインドウのタイトルバーの文字列を取得する



＜　使用用途　＞
ウインドウのタイトルバーの文字列を取得する

＜　説明　＞
ＡＰＩ関数のGetWindowText を使用します。
GetWindowText＝＞ウインドウのタイトルバーの文字列を取得する
　　＜引数＞
　　　　　　hWnd&：　 　ハンドル
　　　　　　lpString$：　文字列が格納される変数
　　　　　　cch&：　　　文字列の文字数
　　＠戻り値＠　　
　　　　　　文字列のバイト数

<　ＳＡＭＰＬＥ　＞
'標準モジュール
Public Declare Function GetWindowText Lib "USER32"Alias "GetWindowTextA" (ByVal hWnd&, ByVal lpString$, ByVal cch&) As Long

'ここからはフォームの処理
Private Sub Command1_Click()
　
　　Dim Name As string
　　Dim Leng As Long

　　　'バッファを確保
　　　Name=String(250,chr(0))
　　　Leng=Len(Name)

　　　Ret=GetWindowText(Form1.hwnd,Name,Leng)
　　　’結果をテキストに出力する
　　　Text1.Text=Name

End Sub