フォーカスを持つウィンドウのタイトルを表示(VB)

キーワード:

GetFocus, GetWindowText

サンプルコード:

' フォーカスを持つウィンドウのタイトルをデバッグウィンドウに表示する
Sub Main()
	Dim hFocusWnd 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
        
		'フォーカスを持つウィンドウの取得
		hFocusWnd = GetFocus()
        
		'ウィンドウタイトルの取得
		WndTitle = ""
		GetWindowText hFocusWnd, WndTitle, 1000
        
		'ウィンドウタイトルの表示
		Debug.Print WndTitle
        
		DoEvents
	Loop
End Sub
(original text:1998/12/25 更新)

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