| ■ GetClassName |
| 指定したウィンドウハンドルのクラス名を取得します |
| FindWindow で指定するクラス名をあらかじめ取得しておく場合に利用しています（著者） 下にサンプルソースを添付しておきます |
| その他で便利な活用方法があれば教えてください |
'------------------------------------------------------------------------------
' クラス名取得（宣言）
'------------------------------------------------------------------------------
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
(ByVal hwnd As Long, ByVal lpClassName As String, _
ByVal nMaxCount As Long) As Long
Dim w_hwnd As Long ' ウィンドウハンドル
Dim w_classname As String * 128 ' クラス名
Dim w_ret As Long ' 戻り値
' 指定したウィンドウハンドルのクラス名を取得
w_ret = GetClassName(w_hwnd, w_classname, 128)
|
サンプルソース ： Microsoft Excel のクラス名を取得
' Microsoft Excel のウィンドウハンドルを取得
w_hwnd = FindWindow(vbNullString, "Microsoft Excel - Book1")
' Microsoft Excel のクラス名を取得
w_ret = GetClassName(w_hwnd, w_classname, 128)
' クラス名をデバックエリアに出力
Debug.Print w_classname |