CRÉATEUR DE MSGBOX V1.0
psykocrash
Messages postés
240
Date d'inscription
vendredi 14 juin 2002
Statut
Membre
Dernière intervention
17 mars 2009
-
24 juin 2002 à 16:09
psykocrash Messages postés 240 Date d'inscription vendredi 14 juin 2002 Statut Membre Dernière intervention 17 mars 2009 - 31 mai 2007 à 20:02
psykocrash Messages postés 240 Date d'inscription vendredi 14 juin 2002 Statut Membre Dernière intervention 17 mars 2009 - 31 mai 2007 à 20:02
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/3747-createur-de-msgbox-v1-0
https://codes-sources.commentcamarche.net/source/3747-createur-de-msgbox-v1-0
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
24 févr. 2003 à 02:54
Private Sub Form_Load()
'Titre de la MsgBox
Titre = InputBox("Entrez le Titre de votre MsgBox.", "Générateur de MsgBox")
'Message de la MsgBox
Message = InputBox("Entrer le message de votre MsgBox.", "Générateur de MsgBox")
'Icone de la MsgBox
ChoixIcone = InputBox("Choisissez un icone." & vbCr & vbCr & "1 - Exclamation" & vbCr & "2 - Information" & vbCr & "3 - Critique" & vbCr & "4 - Question", "Générateur de MsgBox")
If ChoixIcone 1 Then Icone vbExclamation
If ChoixIcone 2 Then Icone vbInformation
If ChoixIcone 3 Then Icone vbCritical
If ChoixIcone 4 Then Icone vbQuestion
If ChoixIcone 1 Then CodeIcone "vbExclamation"
If ChoixIcone 2 Then CodeIcone "vbInformation"
If ChoixIcone 3 Then CodeIcone "vbCritical"
If ChoixIcone 4 Then CodeIcone "vbQuestion"
'Bouton de la MsgBox
ChoixBouton = InputBox("Choisissez un style de bouton." & vbCr & vbCr & "1 - Ok" & vbCr & "2 - Ok, Annuler" & vbCr & "3 - Oui, Non" & vbCr & "4 - Oui, Non, Annuler" & vbCr & "5 - Annuler, Recommencer, Ignorer" & vbCr & "6 - Recommencer, Annuler", "Générateur de MsgBox")
If ChoixBouton 1 Then Bouton vbOKOnly
If ChoixBouton 2 Then Bouton vbOKCancel
If ChoixBouton 3 Then Bouton vbYesNo
If ChoixBouton 4 Then Bouton vbYesNoCancel
If ChoixBouton 5 Then Bouton vbAbortRetryIgnore
If ChoixBouton 6 Then Bouton vbRetryCancel
If ChoixBouton 1 Then CodeBouton "vbOkOnly"
If ChoixBouton 2 Then CodeBouton "vbOkCancel"
If ChoixBouton 3 Then CodeBouton "vbYesNo"
If ChoixBouton 4 Then CodeBouton "vbYesNoCancel"
If ChoixBouton 5 Then CodeBouton "vbAbortRetryIgnore"
If ChoixBouton 6 Then CodeBouton "vbRetryCancel"
'Affiche un aperçu de la MsgBox
MsgBox Message, Icone + Bouton, Titre
'Affiche le code de la MsgBox
MsgBox "Le code est le suivant : MsgBox " & Chr(34) & Message & Chr(34) & ", " & CodeBouton & " + " & CodeIcone & ", " & Chr(34) & Titre & Chr(34), vbInformation, "Générateur de MsgBox"
End
End Sub
16 juil. 2002 à 17:16
et puis qd mm, "msgbox" -> F1 -> aide et c'est tout écrit
27 juin 2002 à 11:51
25 juin 2002 à 16:00
24 juin 2002 à 21:24
24 juin 2002 à 20:07
24 juin 2002 à 18:44
24 juin 2002 à 18:12
10 Générateurs de MSGBOX
0.25% des sources de VBFrance sont des générateurs de MSGBOX
STOP !!
24 juin 2002 à 16:34
24 juin 2002 à 16:13
24 juin 2002 à 16:09