アクティブウィンドウのタイトルの表示(VB)

キーワード:

GetActiveWindow, GetWindowText

サンプルコード:

' アクティブウィンドウのタイトルをデバッグウィンドウに表示する
Sub Main()
	Dim hActiveWnd As Long
	Dim WndTitle As String * 1000
	Dim FormObj As Form1
	Dim I As Integer
	Dim Cnt As Integer

	'フォームを3つ作成
	For I = 1 To 3
		Set FormObj = New Form1
		With FormObj
			FormObj.Caption = "Form " & I
			FormObj.Left = FormObj.Left + 300 * I
			FormObj.Top = FormObj.Top + 300 * I
			FormObj.Show
		End With
	Next

	'アクティブウィンドウのタイトルを1000回表示
	Do
		'1000回表示したら終了
		Cnt = Cnt + 1
		If Cnt = 1000 Then Exit Do
	
		'アクティブウィンドウの取得
		hActiveWnd = GetActiveWindow()
	
		'ウィンドウタイトルの取得
		WndTitle = ""
		GetWindowText hActiveWnd, WndTitle, 1000
	
		'ウィンドウタイトルの表示
		Debug.Print WndTitle
	
		DoEvents
	Loop
End Sub
(original text:1998/12/25 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。