Créateur de msgbox v1.0

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 961 fois - Téléchargée 41 fois

Contenu du snippet

Pour les débutant [et les paresseux :°)], voici un petit programme qui vous aide à créer une boite de dialogue.
Version 1.0
By #PsYkO§CrAsH#

Source / Exemple :


Private Sub MsgBoxCreator_Click()
MsgBox "Créateur de MsgBox version 1.0 lancé sur vbfrance le 24/06/02", vbinformation, "#PsYkO§CrAsH#"
boutonT = "0"
'Message d'avertissement avant de commencer
MsgBox "Bonjour," & vbCr & "Vous allez maintenant Construire votre MsgBox. Voici les étapes que vous allez suivre :" & vbCr & "1- Le titre de la boite de dialogue" & vbCr & _
"2- Le Mesage" & vbCr & "3- L'icône" & vbCr & "4- Les boutons" & vbCr & "5- La modalité" & _
vbCr & "Cliquez sur OK pour commencer", vbInformation + vbOKCancel, "Constructeur de MsgBox par #PsYkO§CrAsH#"
'1- Le titre de la boite de dialogue
Titre = InputBox("Entrez le Titre de votre MsgBox")
'2- Le Mesage
Message = InputBox("Entrez maintenant le message que contiendra la boite de dialogue." _
& vbCr & "Dans le message, Terminez par un caractère spécial : il vous servira de retour à la ligne." & vbCr & "Exemple : $Salut$je suis a la 2eme ligne$je suis a la 3eme ligne")
MbFormator = Right$(Message, 1)
MBDebutFormat = Left$(Message, Len(Message) - 1)
MBFormatD = Replace(MBDebutFormat, MbFormator, Chr$(34) & " & vbcr & " & Chr$(34))
MBFormat = Chr$(34) & MBFormatD & Chr$(34)
'3- L'icône
I:
Icone = InputBox("Vous allez maintenant choisir l'icône de votre MsgBox" & vbCr & "Voici un code à suivre : Vous devrez mettre i majuscule suivit du numéro de l'icône" & vbCr & "Exemple :" & vbCr & _
"2- Question 'le code est I2" & vbCr & "1- Message Critique" & vbCr & "2- Question" & _
"3- Message d'avertissement" & vbCr & "4- Message d'information")
If Icone = "I1" Then
GoTo I1
ElseIf Icone = "I2" Then
GoTo I2
ElseIf Icone = "I3" Then
GoTo I3
ElseIf Icone = "I4" Then
GoTo I4
Else
MsgBox "Le code entré n'est pas valide"
GoTo I
End If
GoTo BoutonMB
I1:
IconeT = "vbcritical"
GoTo BoutonMB
Exit Sub
I2:
IconeT = "vbQuestion"
GoTo BoutonMB
Exit Sub
I3:
IconeT = "vbExclamation"
GoTo BoutonMB
Exit Sub
I4:
IconeT = "vbInformation"
GoTo BoutonMB
Exit Sub
'4- Les boutons
BoutonMB:
BoutonDMB = InputBox("Le code est B majuscule suivit du code du bouton" & vbCr & "1- OK" & _
"2- Ok, Annuler" & vbCr & "3- Annuler, Répéter, Ignorer" & vbCr & "4-Oui, Non, Annuler" & vbCr & "5- Oui, Non" & vbCr & "6- Répéter, Annuler")

If BoutonDMB = "B1" Then
GoTo B1
ElseIf BoutonDMB = "B2" Then
GoTo B2
ElseIf BoutonDMB = "B3" Then
GoTo B3
ElseIf BoutonDMB = "B4" Then
GoTo B4
ElseIf BoutonDMB = "B5" Then
GoTo B5
Else
GoTo MDLTIB
Exit Sub
B1:
boutonT = "vbOKOnly"
GoTo MDLTIB
B2:
boutonT = "vbOkCancel"
GoTo MDLTIB
B3:
boutonT = "vbAbortRetryIgnore"
GoTo MDLTIB
B4:
boutonT = "vbYesNo"
GoTo MDLTIB
B5:
boutonT = "vbRetryCancel"
GoTo MDLTIB
Exit Sub
End If
'5- La modalité
MDLTIB:
Modalite = InputBox("Code M majuscule suivit du code" & vbCr & "1- Application modale" & vbCr & "Système modal")
If Modalite = "M1" Then
MDLT = "vbApplicationModal"
ElseIf Modalite = "M2" Then
MDLT = "vbSystemModal"
Else
MsgBox "Code non valide"
GoTo MDLTIB
End If
Fin:
If IconeT = "" And Bouton = "" Then
MBText = "MsgBox(" & MBFormat & ", " & " " & MDLT & ", " & Chr$(34) & Titre & Chr$(34) & ")"
ElseIf IconeT = "" Then
MBText = "MsgBox(" & MBFormat & ", " & boutonT & " + " & MDLT & ", " & Chr$(34) & Titre & Chr$(34) & ")"
ElseIf Bouton = "" Then
MBText = "MsgBox(" & MBFormat & ", " & boutonT & " + " & MDLT & " + " & IconeT & ", " & Chr$(34) & Titre & Chr$(34) & ")"
Else
MBText = "MsgBox(" & MBFormat & ", " & boutonT & " + " & IconeT & ", " & Chr$(34) & Titre & Chr$(34) & ")"
End If
Open "C:\MsgBox Code Source.txt" For Append As #1
Print #1, MBText
Close #1
MsgBox "Les informations sont enregistrées dans C:\MsgBox Code Source.txt"
End
End Sub

Conclusion :


La prochaine version permettera d'entrer directement le code des boutons.
Voila
#@+#

A voir également

Ajouter un commentaire Commentaires
Messages postés
240
Date d'inscription
vendredi 14 juin 2002
Statut
Membre
Dernière intervention
17 mars 2009

Alors ne perds pas ton temps à laisser un commentaire ;)

PS: j'avais complètement oublié cette source postée en 2002. Ahhh, c'était le bon temps où on était heureux de réussir à ouvrir une boite de dialogue ^^
Messages postés
24
Date d'inscription
samedi 31 décembre 2005
Statut
Membre
Dernière intervention
3 novembre 2007

perd de temps :(
Messages postés
8
Date d'inscription
mercredi 31 mai 2006
Statut
Membre
Dernière intervention
22 juin 2006

Sé encore moi j'ai dekortiker ton programme a la loupe pour aprendrre a programmer mé je ne comprend plus rien sur sa pourait me décorticer sa ligne par ligne
If IconeT "" And Bouton "" Then
MBText = "MsgBox(" & MBFormat & ", " & " " & MDLT & ", " & Chr$(34) & Titre & Chr$(34) & ")"
ElseIf IconeT = "" Then
MBText = "MsgBox(" & MBFormat & ", " & boutonT & " + " & MDLT & ", " & Chr$(34) & Titre & Chr$(34) & ")"
ElseIf Bouton = "" Then
MBText = "MsgBox(" & MBFormat & ", " & boutonT & " + " & MDLT & " + " & IconeT & ", " & Chr$(34) & Titre & Chr$(34) & ")"
Else
MBText = "MsgBox(" & MBFormat & ", " & boutonT & " + " & IconeT & ", " & Chr$(34) & Titre & Chr$(34) & ")"
End If
Open "C:\MsgBox Code Source.txt" For Append As #1
Print #1, MBText
Close #1
MsgBox "Les informations sont enregistrées dans C:\MsgBox Code Source.txt"
End
F1:
End Sub
Messages postés
8
Date d'inscription
mercredi 31 mai 2006
Statut
Membre
Dernière intervention
22 juin 2006

MI JE SUIS NOUVEAUX ET JE SUSI TR2S CONTENT QU4IL AILLE DES PROG COMME SA POUR M'AIDER
Messages postés
46
Date d'inscription
mardi 9 décembre 2003
Statut
Membre
Dernière intervention
18 juin 2010

programme d'aucune utilité ! yen a déja un bon pacquet sur vbfrance !
Afficher les 16 commentaires

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.