| Point：ユーザーフォームのハンドルを取得したい。
'APIの宣言
Declare Function FindWindow Lib "user32" Alias "FindWindowA"
_
(ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long
'テストなのでフォームのクリックイベントに書いてみました。
Private Sub UserForm_Click()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, Me.Caption)
If hWnd = 0 Then'見つからなければ0を返す。
re = MsgBox("ありません！！")
Else
re = MsgBox("ハンドル→ " &
hWnd)
End If
End Sub
|
