mi duda es la siguiente
lo que quiero hacer es seleccionar una ventana externa teniendo su hwnd y apartir de alli sacar todos los controles que tenga, ya sean frames, labels, textbox, listbox, listview o cualquier tipo de control que pudiera contener strings.
para luego con sendmessage extraer dichos datos a mi programa.
Ahora , yo ya logre conseguir el hwnd de un listview de esta ventana externa, pero, como seria la forma correcta para copiar sus datos a un listview de mi aplicacion??
Ej: para hacerlo con un listbox ajeno seria segun encontre por alli:
'Declaración Api SendMessage
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
' Mensajes y valores para los listbox
Private Const LB_GETCOUNT As Long = &H18B
Private Const LB_GETTEXTLEN As Long = &H18A
Private Const LB_GETTEXT As Long = &H189
Private Sub Command1_Click()
Dim n_Items As Long
Dim i As Integer
Dim Items As String
Dim El_Item As String
Dim length As Long
'Almacena la cantidad de Items
n_Items = SendMessage("262583", LB_GETCOUNT, 0, 0)
'Recorre a la cantidad de elementos para obtener los valores
For i = 0 To n_Items - 1
' Buffer
length = SendMessage(262583, LB_GETTEXTLEN, i, 0) ' 262583 SERIA EL HWND DEL LITBOX AJENO
El_Item = Space$(length + 1)
' La variable " el_Item " pasada a SendMessage _
retorna el dato del Item actual
length = SendMessage(262583, LB_GETTEXT, i, ByVal El_Item)
Items = Items & Replace(El_Item, Chr(0), vbNullString) & vbCrLf
Next i
'Visualiza todos los items del ListBox
MsgBox Items, vbInformation
End Sub
Alguiwen sabria adaptar esto a listview??, osea como seria la manera correcta de usar sendmessage con listview en esta operacion?
Mostrar Temas
