ABRIR OUTROS EXE DO VB6 DENTRO DE UM FORM MID
Boa Tarde
Colegas fim um sistema retaguarda e um outro frente de caixa
tem como abrir o sistema frente de caixa dentro do form Mid(prinicpal) do sistema retaguarda ?
são dois exe diferentes.
Aro o exe Retaguarda, neste eu tenho uma opção no menu para abrir o frente de caixa.
gostaria que ele aparecesse como os form Child
Obrigado
Colegas fim um sistema retaguarda e um outro frente de caixa
tem como abrir o sistema frente de caixa dentro do form Mid(prinicpal) do sistema retaguarda ?
são dois exe diferentes.
Aro o exe Retaguarda, neste eu tenho uma opção no menu para abrir o frente de caixa.
gostaria que ele aparecesse como os form Child
Obrigado
no modulo ...
Private Declare Function SetParent Lib [Ô]user32[Ô] (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib [Ô]user32[Ô] Alias [Ô]FindWindowA[Ô] (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Shell ([Ô]notepad[Ô])
janela = FindWindow(vbNullString, [Ô]Sem titulo - Bloco de notas[Ô])
SetParent janela, Me.hWnd
End Sub
nesse exemplo ai chama o bloco de notas ..... sem sei se funciona no exe
Private Declare Function SetParent Lib [Ô]user32[Ô] (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib [Ô]user32[Ô] Alias [Ô]FindWindowA[Ô] (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Shell ([Ô]notepad[Ô])
janela = FindWindow(vbNullString, [Ô]Sem titulo - Bloco de notas[Ô])
SetParent janela, Me.hWnd
End Sub
nesse exemplo ai chama o bloco de notas ..... sem sei se funciona no exe
Se esse seu EXE que vc quer chamar tiver um formulario MDI esse codigo aiii ..... nao vai funcionar
tenta esse aqui ....
Tópico encerrado , respostas não são mais permitidas