|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 AH ! LES MSGBOX RECORRIGÉES ET MODIFIÉES...
 Information sur la source
 Description
ça t'explique beaucoup sur les msgbox ! Au fait, au lieu de vous battre à corriger des erreurs, pourquoi vous utilisez pas les constantes de VB. Ainsi on n'est plus obligé de déclarer des variables de type LONG !
 Source
- ' On prépare les variables (toujours !!!) :
- Dim Apparence, TypeDeBox As VbMsgBoxStyle
- Dim Reponse As VbMsgBoxResult
-
- 'La variable Apparence peut prendre l'une de ces formes :
- 'Apparence = vbQuestion 'msgbox avec une icône question
- 'Apparence = vbInformation 'msgbox avec une icône information
- 'Apparence = vbCritical 'msgbox avec une icône critique (connue)
- 'Apparence = vbDefaultButton1 'msgbox sans icône
-
- 'la variable TypeDeBox peut prendre l'unes de ces formes :
- 'TypeDeBox = vbApplicationModal 'msgbox pour l'application
- 'TypeDeBox = vbSystemModal 'msgbox pour tout le système
- 'TypeDeBox = vbMsgBoxHelpButton 'msgbox avec un bouton d'aide
-
- 'ATTENTION : si vous utilisez comme TypeDeBox 'vbMsgBoxHelpButton
- 'il faudra faire comme ceci :
- 'MsgBox "Texte", -------, "Titre", "Fichier d'aide", "Contexte (integer)"
-
-
- '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
- 'On utilisera l'Apparence suivante :
- Apparence = vbInformation
- 'et un TypeDeBox suivant :
- TypeDeBox = vbApplicationModal 'par défaut.
- 'pour toutes les msgbox qui vont suivre.
-
- '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
- 'Situation : Bouton OK
- 'Ici, inutile de retourner une réponse, il n'y a pas de choix.
- MsgBox "Texte", vbOKOnly + Apparence + TypeDeBox, "Titre"
-
- '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
- 'Situation : Bouton OUI / NON
- 'On retourne la réponse dans la variable 'Reponse'
- Reponse = MsgBox("Texte", vbYesNo + Apparence + TypeDeBox, "Titre")
- Select Case Reponse
- Case vbYes
- 'il a cliqué sur OUI
- Case vbNo
- 'il a cliqué sur NON
- End Select
-
- '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
- 'Situation : Bouton OUI / NON / ANNULER
- 'On retourne la réponse dans la variable 'Reponse'
- Reponse = MsgBox("Texte", vbYesNoCancel + Apparence + TypeDeBox, "Titre")
- Select Case Reponse
- Case vbYes
- 'il a cliqué sur OUI
- Case vbNo
- 'il a cliqué sur NON
- Case vbCancel
- 'il a cliqué sur ANNULER
- End Select
-
- '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
- 'Situation : Bouton OK / ANNULER
- 'On retourne la réponse dans la variable 'Reponse'
- Reponse = MsgBox("Texte", vbOKCancel + Apparence + TypeDeBox, "Titre")
- Select Case Reponse
- Case vbOK
- 'il a cliqué sur OK
- Case vbCancel
- 'il a cliqué sur ANNULER
- End Select
-
- '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
- 'Situation : Bouton REESSAYER / ANNULER
- 'On retourne la réponse dans la variable 'Reponse'
- Reponse = MsgBox("Texte", vbRetryCancel + Apparence + TypeDeBox, "Titre")
- Select Case Reponse
- Case vbRetry
- 'il a cliqué sur REESSAYERs
- Case vbCancel
- 'il a cliqué sur ANNULER
- End Select
-
- '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
- 'Situation : Bouton ABANDON / REESSAYER / IGNORER
- 'On retourne la réponse dans la variable 'Reponse'
- Reponse = MsgBox("Texte", vbAbortRetryIgnore + Apparence + TypeDeBox, "Titre")
- Select Case Reponse
- Case vbAbort
- 'il a cliqué sur ABANDON
- Case vbRetry
- 'il a cliqué sur REESSAYER
- Case vbIgnore
- 'il a cliqué sur IGNORER
- End Select
-
- '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
- 'On peu également faire une MsgBox toute simple :
- MsgBox "Texte", , "Titre"
- 'Ou encore :
- MsgBox "Texte"
- 'Ou encore :
- MsgBox "Texte", vbOKOnly + vbCritical, "Titre"
- 'Bref, on peut en créer à l'infini ! et c'est facile.
-
' On prépare les variables (toujours !!!) :
Dim Apparence, TypeDeBox As VbMsgBoxStyle
Dim Reponse As VbMsgBoxResult
'La variable Apparence peut prendre l'une de ces formes :
'Apparence = vbQuestion 'msgbox avec une icône question
'Apparence = vbInformation 'msgbox avec une icône information
'Apparence = vbCritical 'msgbox avec une icône critique (connue)
'Apparence = vbDefaultButton1 'msgbox sans icône
'la variable TypeDeBox peut prendre l'unes de ces formes :
'TypeDeBox = vbApplicationModal 'msgbox pour l'application
'TypeDeBox = vbSystemModal 'msgbox pour tout le système
'TypeDeBox = vbMsgBoxHelpButton 'msgbox avec un bouton d'aide
'ATTENTION : si vous utilisez comme TypeDeBox 'vbMsgBoxHelpButton
'il faudra faire comme ceci :
'MsgBox "Texte", -------, "Titre", "Fichier d'aide", "Contexte (integer)"
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'On utilisera l'Apparence suivante :
Apparence = vbInformation
'et un TypeDeBox suivant :
TypeDeBox = vbApplicationModal 'par défaut.
'pour toutes les msgbox qui vont suivre.
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Situation : Bouton OK
'Ici, inutile de retourner une réponse, il n'y a pas de choix.
MsgBox "Texte", vbOKOnly + Apparence + TypeDeBox, "Titre"
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Situation : Bouton OUI / NON
'On retourne la réponse dans la variable 'Reponse'
Reponse = MsgBox("Texte", vbYesNo + Apparence + TypeDeBox, "Titre")
Select Case Reponse
Case vbYes
'il a cliqué sur OUI
Case vbNo
'il a cliqué sur NON
End Select
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Situation : Bouton OUI / NON / ANNULER
'On retourne la réponse dans la variable 'Reponse'
Reponse = MsgBox("Texte", vbYesNoCancel + Apparence + TypeDeBox, "Titre")
Select Case Reponse
Case vbYes
'il a cliqué sur OUI
Case vbNo
'il a cliqué sur NON
Case vbCancel
'il a cliqué sur ANNULER
End Select
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Situation : Bouton OK / ANNULER
'On retourne la réponse dans la variable 'Reponse'
Reponse = MsgBox("Texte", vbOKCancel + Apparence + TypeDeBox, "Titre")
Select Case Reponse
Case vbOK
'il a cliqué sur OK
Case vbCancel
'il a cliqué sur ANNULER
End Select
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Situation : Bouton REESSAYER / ANNULER
'On retourne la réponse dans la variable 'Reponse'
Reponse = MsgBox("Texte", vbRetryCancel + Apparence + TypeDeBox, "Titre")
Select Case Reponse
Case vbRetry
'il a cliqué sur REESSAYERs
Case vbCancel
'il a cliqué sur ANNULER
End Select
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Situation : Bouton ABANDON / REESSAYER / IGNORER
'On retourne la réponse dans la variable 'Reponse'
Reponse = MsgBox("Texte", vbAbortRetryIgnore + Apparence + TypeDeBox, "Titre")
Select Case Reponse
Case vbAbort
'il a cliqué sur ABANDON
Case vbRetry
'il a cliqué sur REESSAYER
Case vbIgnore
'il a cliqué sur IGNORER
End Select
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'On peu également faire une MsgBox toute simple :
MsgBox "Texte", , "Titre"
'Ou encore :
MsgBox "Texte"
'Ou encore :
MsgBox "Texte", vbOKOnly + vbCritical, "Titre"
'Bref, on peut en créer à l'infini ! et c'est facile.
 Conclusion
J'espère que ça vous aidera mais dites-moi franchement si je dois faire moins compliqué ! Druide à 'w_druide@voila.fr'
 Sources du même auteur
 Sources de la même categorie
Sources en rapport avec celle ci
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Message Box [ par xavier77 ]
Salut, J'en ait un peu marre du MsgBox de VB, alors, j'ai donc décidé d'en créer un avec des nouvelles propriétés (couleur, des nouveau icones,...).J'
Comment afficher plusieur message box ? [ par Mrx3 ]
... compatible vbscript . Quand je metMsgBox "texte1", ,"titre1"MsgBox "texte2", ,"titre2"Sa m'ouvre la première boite et apres la deuxieme, comment f
Message Box non bloquante [ par Sapaya ]
Voila, je voudrais savoir si c'est possible de faire une msgbox non bloquante.En bref, que le code situé apres l'appel de cet msgbox soit executé meme
msgBox personnalisée [ par mickael3905 ]
Bonjour,J'aimerais savoir s'il est possible de programmer une message box personnalisée.Cette message box aurait 2 boutons sur lesquels serait re
message box [ par nana10 ]
bonjour premierement bonne féte à tous les péres!!!!mon probléme c'est que je veux programmer en vb6un msgbox sous forme de combobox c'est à dire qu
[vb.net]Message box oui/non [ par sisi35 ]
Bonjour, Je voudrais avoir 2 boutons dans ma message box: "oui" et "non" et non pas "yes" et "no".Comment faire?Merci, Sylvie.
obtenir une alerte sur msgbox [ par icds ]
salut tous le monde je decouvre Vb et j'ai un petit soucis pour avoir un message d'alerte suivant la valeur d'une cellule.voila j'expose ce que je ve
Messagebox [ par lolo_bob2 ]
Bonjour Voila je voudrais créer une message box. En fait j'ai crée une requete de ce genre [entrer numéro produit ?] quand je l'execute
Probleme de msgbox [ par zizouth ]
Salut,J'ai remarqué que lors qu'un affichage d'une msgbox le programme se met en pause jusqu'a qu'on appuis sur le buton ok (ou yes, no etc..) de la
Colorier le fonds d'une message box. [ par bentok ]
Salut tout le monde,Le fonds gris des msg box c'est pas super je trouve, j'aurais aimé la mettre en beige car je paufine mon programme.Si qq'1 a
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|