Messagebox avec une api

Contenu du snippet

Il s'agit de l'api et de quelques constantes pour obtenir le même résultat qu'avec la fonction MsgBox(), ceci permet aux débutant de comprendre quelque chose aux API.

Source / Exemple :


Public Const OKONLY = &H0&
Public Const OKCANCEL = &H1&
Public Const ABORTRETRYIGNORE = &H2&
Public Const YESNOCANCEL = &H3&
Public Const YESNO = &H4&
Public Const CRITICAL = &H10&
Public Const QUESTION = &H20&
Public Const EXCLAMATION = &H30&
Public Const INFORMATION = &H40&

Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Private Sub Form_Load()
rep = MessageBox(Me.hwnd, "Hello, World", "Hello",INFORMATION)
'Ce code affiche un message box
End Sub

Conclusion :


En cas, d'ereur dans le code merci de me prévenir sans m'envoyer des millions de messages horribles et en plus inutiles!
Je vous invite à visiter mon site sur l'informatique : www.passionpc.net
Si ca certaine personne sont interresée par les API et le réseaux, un tutorial Sur les API Winsock se trouve sur mon site Web :
http://membres.lycos.fr/vbasicsite/ApiWinsock.htm

A voir également

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.