Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 078 fois - Téléchargée 43 fois
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
31 mai 2007 à 20:02
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 ^^
31 mai 2007 à 19:48
31 mai 2006 à 20:42
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
31 mai 2006 à 14:47
11 déc. 2003 à 10:28
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.