Pasar datos de una aplicacion a otra aplicacion (Form)

[omarinho23]

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!

[Psyke1]

Declaras las variables en un módulo de forma pública:

Código: (vb) [Seleccionar]

Option Explicit
Public Hola As Long
Desde el Form1:

Código: [Seleccionar]

Option Explicit
Private Sub Form_Load
    Hola = 3
End Sub
En el Form2:

Código: [Seleccionar]

Option Explicit
Private Sub Form_Load
    Msgbox CStr(Hola)
End Sub
Es eso lo que buscas?

DoEvents!

[xkiz ™]

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...

[LeandroA]

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.

[omarinho23]

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

[LeandroA]

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

Código: (Vb) [Seleccionar]

cDDE.SendData(cDDE.hwndSever, "Hola" & "|" & "Mundo")
y en la otra aplicación en el evento DataArrival haces lo siguiente

Código: (vb) [Seleccionar]

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

[DarkStreaM]

Emm puedes hacer una Sub pro ejemplo

Formulario B

Código: [Seleccionar]

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

Código: [Seleccionar]

Form2.asdf "mivar1","mivar2"

[ADONAIRAFA]

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 !!!