- 525 名前：519 mailto:sage [2022/01/21(金) 11:25:52.95 ID:KSflUQH80.net]
- 519です。
長すぎると怒られるのでいくつかに分けます。
よろしくお願いします。
Sheet1モジュール
'///GetWindowの定数///
Const GW_HWNDFIRST = 0 '基準となるWindowと同じ種類のうち最前面のWindow
Const GW_HWNDLAST = 1 '基準となるWindowと同じ種類のうち最背面のWindow
Const GW_HWNDNEXT = 2 '基準となるWindowの次のWindow
Const GW_HWNDPREV = 3 '基準となるWindowの前のWindow
Const GW_OWNER = 4 '基準となるWindowのオーナーWindow
Const GW_CHILD = 5 '基準となるWindowの子WindowのうちトップレベルのWindow
Dim myHwnd As LongPtr '検索ボタンのハンドルを記憶
Sub Test1()
'アプリhogeの検索ボタンを探す
Dim Ret As LongPtr
Dim hwnd As LongPtr
hwnd = FindWindow(vbNullString, "hoge") 'トップウィンド
hwnd = FindWindowEx(hwnd, 0, vbNullString, "hoge_1")'検索ボタンが所属している子ウィンド
Ret = EnumChildWindows(hwnd, AddressOf EnumChildProc, 0)
myHwnd = GetWindow(myHwnd, GW_HWNDPREV)
End Sub
|
 |
