zoup
-
5 juin 2000 à 18:28
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 2019
-
27 juil. 2007 à 14:39
Bonjour,
Le code suivant repond toujours non bien
que le programme lancé par shell soit
ouvert.
Y a t il une erreur?
je suis sous NT4 SP4 et VB6 SP3.
voici le code du module:
Option Explicit
Public Declare Function IsWindow Lib "user32" (ByVal hWnd As Long) As Long
Public Function zoup()
Dim retour As Long
retour = Shell("c:\program files\winzip\winzip32", 1)
MsgBox (retour)
If (IsWindow(retour)) Then
MsgBox ("oui")
Else
MsgBox ("non")
End If
.........