Hola a todos, soy nuevo en el foro, a ver si alguien me puede ayudar.
Estoy haciendo una aplicación en VB6, que lee algunos datos de otra aplicación externa mientras se esta ejecutando.
Para que esté más claro el problema, llamaré a mi aplicación "AplicaciónA"
y "AplicaciónB" a la externa de la que quiero leer datos.
Los datos que no se leer, de la aplicación "AplicaciónB", es el nombre del item cuando se clica de un ComboBox.
Tengo funcionando todas las Apis necesarias para acceder a la "AplicaciónB".
Conozco el hWnd, el nombre de la Clase, el Caption, y las coordenadas de todas las ventanas de la "AplicaciónB".
Pongo un ejemplo, para que se entienda mejor:
1º - Al clicar en un item de un ComboBox, con nombre por ejemplo "Datos A", necesito poder leer y poner ese nombre "Datos A", en un TexBox de mi "AplicaciónA"
Tengo un Timer, que me entrega el hWnd, el nombre de la Clase (que siempre se llama "combolbox", del ComboBox de la "AplicaciónB" que quiero leer.
Este es el código que uso:
Conozco hWnd, y tengo las variables y Constantes declaradas.
If ClassName = "combolbox" Then
CB_Item = SendMessage(hWnd, CB_GETCURSEL, 0, 0)
l = SendMessage(hWnd, CB_GETLBTEXTLEN, 0, 0)
El_Item = Space$(l + 1)
'La variable " el_Item " pasada a SendMessage retorna el dato del Item actual
l = SendMessage(hWnd, CB_GETLBTEXT, CB_Item, ByVal El_Item)
Text1.Text=El_Item
end if
Pero no lee nada, que hago mal.
He leido que los ComboBox, son realmente tres controles, Un Combo (El botón triangulito), Un Edit (el título) y Un button (cada nombre de los items), y este útimo, button (cada nombre de los items), es el que quiero poder leer,y ahí me pierdo.
Un saludo y espero que alguien me pueda ayudar.
Mostrar Mensajes
