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#
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
#@+#
A voir également
- Mbforma
- Ouvrir et visualiser tout fichiers ! (edi'tout v1.0.0.0) - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Visual Basic / VB.NET : M6net serveur v1.0 - CodeS SourceS - Guide
- Visual Basic / VB.NET : Psyco-client v1.0 bêta - source - CodeS SourceS - Guide
- Visual Basic / VB.NET : Chatof v1.0: ptit chat a plusieur avc plusieur fonctions ... - CodeS SourceS - Guide
- Démineur v1.0 - Codes sources - Visual Basic / VB.NET (Jeux)
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 ^^
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
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.