Créateur de msgbox v1.0
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#
La prochaine version permettera d'entrer directement le code des boutons.
Voila
#@+#
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
#@+#
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.