AJUDA FACIL!!!
Prezados,
Tenho a seguinte situação. Tenho um projeto de acesso que tem um login e vários botões. Cada botão corresponde a um outro projeto, ou seja, quando eu clicar um botão independente de qual seja, ele vai me abrir um executável, porém quando eu abrir este executavel eu preciso passar o código do usuário logado no projeto de acesso para que quando eu abrir este executável(projeto) eu possa fazer as restrições de acordo com o código dele, não tenho uma solução para isso. Bom, espero ter sido claro.
Desde já grato.
Tenho a seguinte situação. Tenho um projeto de acesso que tem um login e vários botões. Cada botão corresponde a um outro projeto, ou seja, quando eu clicar um botão independente de qual seja, ele vai me abrir um executável, porém quando eu abrir este executavel eu preciso passar o código do usuário logado no projeto de acesso para que quando eu abrir este executável(projeto) eu possa fazer as restrições de acordo com o código dele, não tenho uma solução para isso. Bom, espero ter sido claro.
Desde já grato.
escreve o usuário em um arquivo e faça os outros lerem ele
Eu também pensei nisso SABIDAOXD. Criar um arquivo txt com o usuário logado no momento. Mais será que não tem outra forma ?
tem sim, só que você tem que ter + trabalho pq é um pouco complicado
você manda menssagem diretamento para o processo do EXE
<DllImport([Ô]user32.dll[Ô], SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
End Function
você manda menssagem diretamento para o processo do EXE
<DllImport([Ô]user32.dll[Ô], SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
End Function
Faça assim:
No aplicativo que chama o executavel
Shell App.Path & [Ô]\Relatorios.exe [Ô] & UsuarioLogado
No evento LOAD do Relatorios.exe
Private Sub Form_Load()
If Command$ <> [Ô][Ô] Then
MsgBox Command$
End If
End Sub
No aplicativo que chama o executavel
Shell App.Path & [Ô]\Relatorios.exe [Ô] & UsuarioLogado
No evento LOAD do Relatorios.exe
Private Sub Form_Load()
If Command$ <> [Ô][Ô] Then
MsgBox Command$
End If
End Sub
Faça seu login para responder