[ExcelVBA] FindWindow

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] WindowsAPI一覧

■説明
クラス名やウィンドウ名からウィンドウハンドルを探す関数

■宣言
Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
第一引数：取得したいウィンドウのクラス名を指定します。
第ニ引数：ウィンドウのタイトルを指定します。
戻り値：関数が成功するとハンドルが返ってきます。失敗すると0が返ってきます

クラス名の調べ方については下記を参考にしてみてください。
→Class名の調べ方

■サンプルコード
電卓のハンドルを取得する方法です。
電卓のクラス名はSciCalcです。

view plainprint?

1. Option Explicit  
2.   
3. Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _  
4.   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long  
5.   
6. Sub SampleCode()  
7.     Dim hwnd As Long  
8.     hwnd = FindWindow("SciCalc", "電卓")  
9.     Debug.Print "電卓のハンドル:" & hwnd  
10. End Sub  

Option Explicit

Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Sub SampleCode()
    Dim hwnd As Long
    hwnd = FindWindow("SciCalc", "電卓")
    Debug.Print "電卓のハンドル:" & hwnd
End Sub

クラス名とウィンドウタイトル名の指定のみなのでさほど難しいことはなさそうですね。
ちなみに、複数の電卓を開いている場合、一番手前側にある電卓のハンドルを取得するようです。

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] WindowsAPI一覧