MSGBOX WIZZARD
--------------
Objet.Action(Optional mess_box As String, Optional titre_box As String, Optional styl_box As Integer, Optional coul_box As Long, Optional coul_text As Long,
Optional pict As String, Optional larg_box As Long, Optional haut_box As Long,
Optional stars as boolean,Optional nb_flocons as integer,Optional coul_flocon as integer,Optional vitesse_flocon as integer)
Tous les paramètres sont optionnels
Valeur renvoyée de Type string
"oui"
"non"
"annul"
""
Les paramètres:
---------------
*mess_box (contenu texte de la boite)
Type String
defaut=aucun
*titre_box ( titre de la boite)
Type String
defaut=aucun
*styl_box (style des boutons)
Type Integer
=1, bouton OUI
=2, bouton OUI / NON / ANNULER
=3, bouton INFORMATION
=4 bouton EXCLAMATION (1)
=5 bouton EXCLAMATION (2)
=6 bouton STOP
=7 bouton INTERROGATION
=8 bouton ARRET CRITIQUE
=9 bouton Ok
*coul_box
Type Long ou Hexa
defaut=&H8000000F (beige)
valeur : hexa ou equivalent numérique
*coul_text
Type Long ou Hexa
defaut=0 ( noir)
valeur : hexa ou equivalent numérique
*pic (image arrière plan de la boite)
Type String
defaut=aucun
valeur : App.Path & "\" & "nom de l'image.bmp"
*larg_box
Type Long
defaut=s'ajuste en fonction du contenu.
valeur : si larg_box=100 , largeur=largeur par defaut+100
*haut_box
Type Long
defaut=s'ajuste en fonction du contenu.
valeur : si haut_box=100 , hauteur=hauteur par defaut+100
*stars
Type booleen
defaut=false
=true affiche chutes de neige dans la boite!
*nb_flocon
Type: Integer
Defaut:100
nombre de flocons dans la boite
(valide si stars=true)
*coul_flocon
Type Long ou Hexa
defaut=0 ( noir .. beark)
valeur : hexa ou equivalent numérique
(valide si stars=true)
*vitesse_flocon
Type: Integer
Defaut:30
nombre de flocons dans la boite
(valide si stars=true)