Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Private Variable As Long, Toto As Long Sub arret() Variable = 1 Toto = ExitWindowsEx(Variable, Constante) Unload Me End Sub Private Sub Command1_Click() arret End Sub
24 nov. 2008 à 17:54
20 avril 2003 à 12:01
17 avril 2002 à 10:46
Dommage
17 avril 2002 à 09:32
je n'ai pas encore tésté ton code mais y'a un hic, cette instruction marche plutot bien sur des systèmes non professionnels mais je ne pense pas que ça marche sur Win2000pro et WinXP Pro.... j'ai déjà essayé et ça veut pas.
Alors si tu connais une autre solution : je suis prenneur !
16 avril 2002 à 19:48
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.