Invite de commandes

Cristantin Messages postés 32 Date d'inscription lundi 20 décembre 2004 Statut Membre Dernière intervention 14 mai 2007 - 24 janv. 2005 à 13:38
mokchend Messages postés 1 Date d'inscription vendredi 6 mai 2005 Statut Membre Dernière intervention 6 mai 2005 - 6 mai 2005 à 23:29
Rebonjour , (programmation VB6 pro .....)
Je dois faire apparaître l'invite de commandes (feuile noire) dans un contrôle approprié de ma feuille form . Quelqu'un sait-il quel contrôle choisir et quels codes adjoindre pour faire cela .
Merci d'avance

2 réponses

Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
24 janv. 2005 à 14:23
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Sub Command1_Click()
Dim Rep As Long
Shell "cmd.exe", vbNormalFocus
While Rep = 0
DoEvents
Rep = FindWindow(vbNullString, "C:\WINDOWS\system32\cmd.exe")
Sleep (10)
Wend
SetParent Rep, Me.hWnd
End Sub

Daniel
0
mokchend Messages postés 1 Date d'inscription vendredi 6 mai 2005 Statut Membre Dernière intervention 6 mai 2005
6 mai 2005 à 23:29
Bonjour,
ton bout de code m'est tres utile !
Une question: comment arranger dans ma form, plusieurs consoles MS-DOS ouvertes ?
(mode tile, cascade, ...) ?

Merci
ps: je debute en VB
0
Rejoignez-nous