Fenêtre 'erreur fatale'

Commenter

Contenu du snippet

Voici comment faire apparaître la petite fenêtre blanche que tout le monde a déjà rencontré mais cette fois sans aucun danger : il faut utiliser l'api : FatalAppExitA qui porte bien son nom d'ailleurs.

Mettez ce code dans un formulaire :

Source / Exemple : 


Private Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction As Long, ByVal lpMessageText As String)

Private Sub Form_Load()
FatalAppExit 0, "Contactez le revendeur de ce programme" & vbLf & vbLf & "(Cette source provient de www.vbfrance.com)"
End Sub

Conclusion :


C'est aussi simple que celà

A voir également

S'inscrire maintenant

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.

Du même auteur (Whiterabbit83)