Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: omarinho23 en Noviembre 27, 2010, 02:54:22 pm
-
buenas con todos, Quisiera saber si alguien sabe como pasar los datos de un form de una aplicacion "A" a otro form en una aplicacion "B"
alguien sabe los codigos?
siendo los form iguales con los mismos datos
osea
aplicacion "A" --------------> aplicacion "B"
Nombre XXX --------------> Nombre XXX
Apellido XXX --------------> Apellido XXX
RUC XXX --------------> RUC XXX
pasar los datos de "A" a "B"
alguien sabe me puede ayudar! gracias!
-
Declaras las variables en un módulo de forma pública:
Option Explicit
Public Hola As Long
Desde el Form1:
Option Explicit
Private Sub Form_Load
Hola = 3
End Sub
En el Form2:
Option Explicit
Private Sub Form_Load
Msgbox CStr(Hola)
End Sub
Es eso lo que buscas?
DoEvents! :P
-
si no me equivoco, lo que el busca es transferir información entre aplicaciones distintas, AppA.exe --- [ data ] --> AppB.exe.
si es eso aca en la web de Leandro habia visto algo de eso, solo que ahora no lo pude encontrar...
-
Hola es una clase que simula lo conosido como comunicacion DDE este utiliza otro metodo pero el fin es el mismo, pasar datos de una aplicación a la otra
http://www.leandroascierto.com.ar/categoria/M%C3%B3dulos/articulo/ClaseDDE.php
Saludos.
-
ola leandro gracias me ayuda bastante pero tengo una duda
trato de pasar dos datos en 2 txt box y solo lo que ace es unir esos 2 datos en un solo text box del otro programa
osea
programa A ----- pasar a Programa B
text1 : nombre ---- text1: nombredia
text2: dia ---- text2: (vacio)
como hago ;S trato de hacerlo pero lo unico q me salae es eso u,u
-
hola tenes que dividir los datos hay muchas formas de resolver ese problema pero bueno agamos eso de dividir
por ejemplo de una aplicacion envias el dato
cDDE.SendData(cDDE.hwndSever, "Hola" & "|" & "Mundo")
y en la otra aplicación en el evento DataArrival haces lo siguiente
Private Sub cDDE_DataArrival(ByVal hwnd As Long, ByVal vData As Variant)
Dim sText() As String
sText() = Split(vData, "|") 'Dividis los datos por el signo |
Text1 = sText(0)
Text2 = sText(1)
End Sub
-
Emm puedes hacer una Sub pro ejemplo
Formulario B
Option Explicit
Dim a,b As String
Public Sub asdf(var1 As String,var2 As String)
a = var1
b = var2
Me.Show
End Sub
y en el Form A, llamar al B
Form2.asdf "mivar1","mivar2"
-
Lo que buscass podrías encontrarlo en:
http://vexpert.mvps.org/Default.aspx
Esta web, es de uno de los "gurús" de Visual Basic: Harvey Triana. Allí, entre sus diversos artículos, tiene uno que se llama Comunicación entre Ejecutables. De repente te puede servir.
Saludos !!!