PASSAR E PEGAR PARAMETROS EM OUTRO EXECUTAVEL

 Tópico anterior Próximo tópico Novo tópico

PASSAR E PEGAR PARAMETROS EM OUTRO EXECUTAVEL

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#346658 - 06/07/2010 14:02:58

LCSD
SAO PAULO
Cadast. em:Janeiro/2001


Pessoal, Boa tarde...

Tenho 2 programas, onde um deles obrigatriamente ir rodar da dependncia do executvel principal.
Eu preciso passar para o executvel 2, quem o usurio que est logado no executvel 1 (por exemplo).
Como que eu passo isso para o executvel 2, e como eu capturo isso do executvel 2????

PS: Eu sei que simples pra caramba, mas deu aquele maldito branco na cabea.....

  
Quando precisar, pode contar comigo....
E quando precisar, no esquea de agradecer, pois a educao a ALMA DO NEGCIO...


Obrigado.

Luiz Cesar

#346677 - 06/07/2010 16:17:32

TECLA
SAO PAULO
Cadast. em:Janeiro/2001


Membro da equipe
Voc []chama[] o 2.EXE partir do 1.EXE usando SHELL?
Se sim, pode passar por Command$.

Exemplo do 1.EXE:
Shell []2.EXE -u=TECLA[]


Exemplo do 2.EXE:
Private Sub Form_Load()
If Command$ <> [][] Then
    MsgBox Right(Command$, Len(Command$) - 3)
End If
End Sub


PS. No testei, mas deve funcionar.




#346685 - 06/07/2010 17:09:29

LCSD
SAO PAULO
Cadast. em:Janeiro/2001


Tecla, vamos dizer o seguinte ento, para ver se eu estou compreendendo....

Tenho o meu executvel 1, chamado RECEPCAO.EXE, e nele um boto ao qual eu chamo o executvel DIGITAL.EXE
No RECEPCAO.EXE, l no command ao qual vou chamar o DIGITAL.EXE, est a seguinte linha de comando:

Shell App.Path + []\Digital.exe[]

S que neste RECEPCAO, tenho uma varivel chamada M_USER ao qual estou armazenando o usurio logado no sistema. Como que vou passar neste SHELL essa varivel???


  
Quando precisar, pode contar comigo....
E quando precisar, no esquea de agradecer, pois a educao a ALMA DO NEGCIO...


Obrigado.

Luiz Cesar

#346686 - 06/07/2010 17:13:43

TECLA
SAO PAULO
Cadast. em:Janeiro/2001


Membro da equipe
Desta forma:
Shell App.Path + []\Digital.exe [] & M_USER


No evento LOAD do DIGITAL.EXE, voc adiciona as linhas abaixo:
Private Sub Form_Load()
If Command$ <> [][] Then
    MsgBox Command$
End If
End Sub





 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por LCSD em 17/08/2011 15:54:47