API32を用いて別ソフトの情報(パーツのハンドルやクラス)を取得して入力などの操作をしようと思っています。
テキストボックスに入力やボタンのクリックはできるようになったのですが、VBAからクリックしたい要素がリストビューの中身になっており、そのリストビューの中身をクリックする方法がわかりません。
下記がハンドルを取得したコードです。
VBA
1'関数使用の為の宣言は省略 2 3Option Explicit 4Dim hwnd_counter As Long 5Dim hwnd_counter_defo As Long 6 7Sub Get_Hwnd() 8 Dim hwnd1 As Long 9 hwnd_counter = 3 '取得データ記入開始行 10 hwnd_counter_defo = hwnd_counter 11 hwnd1 = FindWindow(vbNullString, Range("B2").Value) 'ウィンドウ名を指示 12 Call EnumChildWindows(hwnd1, AddressOf ListupChildWindows, 0) 13 Range("A1").Value = hwnd_counter - hwnd_counter_defo 'データ数記入位置 14End Sub 15 16Public Function ListupChildWindows(ByVal hWnd As Long, ByVal lParam As Long) As Boolean 17 Dim cell(2) As String 18 Dim hwnd_classname As String * 255 19 hwnd_counter = hwnd_counter + 1 20 cell(1) = "A" & hwnd_counter 21 cell(2) = "B" & hwnd_counter 22 Call GetClassName(hWnd, hwnd_classname, 255) 23 24 Range(cell(1)).Value = hWnd 25 Range(cell(2)).Value = hwnd_classname 26 ListupChildWindows = True 27End Function
クリックしたい要素が入っているリストビューのクラスは以下となっています。
WindowsForms10.SysListView32.app.0.33c0d9d
また、その直後に以下のクラスも取得出来ていますが何か関係あるでしょうか。
SysHeader32
コンボボックスと同じように中身の位置を指定して選び、クリックするのかと予想しているのですが具体的なコードがわかりません。
いろいろ調べたのですが解決に至りませんでした。どうかよろしくお願いします。
また、操作したいソフトは会社のソフトの為、spy++を使うことができません。
<追記>
上記「WindowsForms10.SysListView32.app.0.33c0d9d」と取得出来たハンドルに対して「LVM_GETITEMCOUNT」をsendmessageで送ったところ目的のリストの個数と一致する数値が返ってきました。
ですので、クリックしたい対象がこのリストビューに入っていることはほぼ間違いないかと思います。
あなたの回答
tips
プレビュー