Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: TiITOo en Mayo 31, 2011, 02:11:05 pm
-
Buenas les cuento mi problema....
Estoy enviando datos a un textbox de un programa desde vb6 con la SendMessage
Aqui envio los datos
Call SendMessage(Aplicacion.hWnd, WM_SETTEXT, 0, ByVal CStr("Mi_Dato_a_Enviar"))
Luego Envio el enter para que lo que envie se procese por el otro programa
Call SendMessageBynum(Aplicacion.hWnd, WM_CHAR, 13, ByVal 0)
El problema esta que al enviar el Enter, pierdo el foco y se deja de ejecutar el codigo de VB6
no se ejecuta nada de lo que tengo por debajo de esta ultima instruccion
Les agradeceria que me den alguna idea.-
Gracias.-
-
Hola podrias probar con PostMessage, este no espera una respuesta tal como lo hace SendMessage
Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Call PostMessage (Aplicacion.hWnd, WM_CHAR, 13, ByVal 0&)
Saludos.
-
Muchas Gracias LeandroA .... Me vino como anillo al dedo !
Funciona Perfecto !
Una vez mas gracias por tu tiempo !
Un Abrazo !