Visual Basic para Aplicaciones - Pasar parametros a un .Exe

Life is soft - evento anual de software empresarial
 
Vista:

Pasar parametros a un .Exe

Publicado por Eduardo (14 intervenciones) el 19/07/2004 15:46:23
Hola que tal mi pregunta es algo sencilla creo

Tengo 2 programas hechos en VB y generados en .exe

Yo quiero que al pulsar un boton en el 1er programa me aparesca el 2do programa (esto lo hago con un shell RUTA, hasta aqui todo listo) pero debo pasarle al 2do programa un parametro de nombre para que lo muestre en un campo de tipo text box
Como puedo pasarle un parametro desde el primer programa y como lo recibo desde el segundo ????

Espero haberme explicado bien y gracias por su ayuda amigos!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Pasar parametros a un .Exe

Publicado por Jorge Castro (8 intervenciones) el 19/07/2004 20:51:03
Para poder recibir un parametro dentro de un programa tienes que utilizar una rutina para leer si al llamar el programa le envias o no algun parametro.

Sub GetCommandLine(Optional MaxArgs)
Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs

'Se utiliza solo si la variable maxargs viene con informacion
If IsMissing(MaxArgs) Then MaxArgs = 10

ReDim ArgArray(MaxArgs)
NumArgs = 0: InArg = False

'Obtiene los argumentos de la linea de comandos
CmdLine = Command()
CmdLnLen = Len(CmdLine)

For I = 1 To CmdLnLen
C = Mid(CmdLine, I, 1)
If (C <> " " And C <> vbTab) Then
If Not InArg Then
If NumArgs = MaxArgs Then Exit For
NumArgs = NumArgs + 1
InArg = True
End If
ArgArray(NumArgs) = ArgArray(NumArgs) & C
Else
InArg = False
End If
Next I
ReDim Preserve ArgArray(NumArgs)
LineaComando = CmdLine
End Sub

Ahi te envio la rutina ya nada mas cuando quieras ejecutarlo lo pones de la siguiente manera nombredelprograma.exe parametro y listo. Espero te haya servido de algo la respuesta.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar