Ouvrir une appli en .exe dans une form en vb6

Soyez le premier à donner votre avis sur cette source.

Vue 13 815 fois - Téléchargée 1 686 fois

Description

Bonjour,

J'avais proposé ce code comme solution dans le forum.

Il est destiné à tous ceux qui veullent ouvrir une appli en .exe dans une Form en vb6

Si c'est possible, proposer un code en VB2005.

Source / Exemple :


'Dans un module :

Public Const GW_HWNDNEXT = 2
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _
                        ByVal hWndNewParent As Long) As Long
Public Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, _
  ByVal wCmd As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" _
  (ByVal hWnd As Long, lpdwprocessid As Long) As Long
Function ProcIDFromWnd(ByVal hWnd As Long) As Long
   Dim idProc As Long
   GetWindowThreadProcessId hWnd, idProc
   ProcIDFromWnd = idProc
End Function
Function GetWinHandle(hInstance As Long) As Long
   Dim tempHwnd As Long
   tempHwnd = FindWindow(vbNullString, vbNullString)
   Do Until tempHwnd = 0
      If GetParent(tempHwnd) = 0 Then
         If hInstance = ProcIDFromWnd(tempHwnd) Then
            GetWinHandle = tempHwnd
            Exit Do
         End If
      End If
      tempHwnd = GetWindow(tempHwnd, GW_HWNDNEXT)
   Loop
End Function

'Dans la fenêtre mère :

Private Sub MDIForm_Load()
    Dim hInst As Long, hWndApp As Long
    hInst = Shell("notepad.exe")
    hWndApp = GetWinHandle(hInst)
    SetParent hWndApp, Me.hWnd
End Sub

'Bon courage et bonne chance

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
dimanche 25 décembre 2005
Statut
Membre
Dernière intervention
22 juillet 2011

Tres bonne idée, merci pour le boulot
Messages postés
17
Date d'inscription
mercredi 11 juillet 2007
Statut
Membre
Dernière intervention
11 septembre 2008

bonsoir
C"est bon ma transcription avec des petits plus est sur le site.
http://www.vbfrance.com/codes/OUVRIR-APPLI-EXE-DANS-FORM-VB2005_43443.aspx
A+
Messages postés
17
Date d'inscription
mercredi 11 juillet 2007
Statut
Membre
Dernière intervention
11 septembre 2008

Bonjour
Ton code m'a bien intéressé ,je n'y connais pas grand chose à part le Basic-Extended TexaxInstrument des année 198x, quickbasic des années 199x, un peu de VB6 et VBA.
Histoire d'aider un de mes fils, je me mets au VB2005 et pour commencer j'ai refait ton programme en VB2005 avec des petits plus.
Etant nouvel inscrit , il faut que je regarde comment ajouter la source ici.
A+
Messages postés
17
Date d'inscription
dimanche 8 août 2004
Statut
Membre
Dernière intervention
14 avril 2007

Pour faire la même chose en C#, voir un peu plus:

http://www.codeproject.com/cs/miscctrl/AppControl.asp

Bon, c'est en anglais mais je pense que c'est pas vraiment un problème

à+!
Messages postés
4
Date d'inscription
jeudi 6 juillet 2006
Statut
Membre
Dernière intervention
11 octobre 2006

Merci... C est ce que je Voulo...
Afficher les 8 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.