Enganche en una clase secundaria SysTreeView32 de la ventana VBE
Soy bastante nuevo en las llamadas de WinApi aunque estoy familiarizado con VBA. Lo que estoy tratando de hacer es conectar a una clase secundaria SysTreeView32 de la ventana VBE (Project Explorer TreeView). Me gustaría expandir / contraer los elementos de la vista de árbol modificando las claves de registro (o, alternativamente, enviando los clics del mouse (mouse_event) aunque prefiero la primera opción).
Puedo encontrar la ventana principal de Excel usando este código:
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Sub Find_Window()
Dim hWndExcel As Long
hWndExcel = FindWindow("XLMAIN", Application.Caption)
MsgBox hWndExcel
End Sub
Con la ayuda deDetective de la ventana Puedo acceder a los nombres, propiedades, etc. de las clases secundarias.
Pero no puedo entender cómo acceder / activar (o incluso devolver el HWID de) elSysTreeView32
Clase secundaria para contraer / expandir elementos (carpetas). Todavía no estoy seguro de cómo iterar sobre los elementos, pero investigaré esto más adelante. El problema aquí es acceder a laSysTreeView32
clase. ¿Cómo puedo lograrlo?
Cuando trato de msgbox estoFindWindow("wndclass_desked_gsk", Application.Caption)
oFindWindow("SysTreeView32", Application.Caption)
a 0
es devuelto por lo que obviamente estoy haciendo algo mal: /
Gracias por tu tiempo.