begin process at 2008 05 16 04:55:07
1 173 215 membres
57 nouveaux aujourd'hui
13 970 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

BOÎTES DE DIALOGUE STANDARDISÉES


Information sur la source

Catégorie :Message Box Classé sous : dialogue, personnalisé, boîte Niveau : Débutant Date de création : 21/11/2000 Vu : 6 165

Note :
1,57 / 10 - par 7 personnes
1,57 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

Description

Quelques routines automatisées pour se simplifier la tâche

Source

  • 'Module de manipulation de boîtes de messages
  • '____________________________________________
  • '
  • '© Jacques PRESTREAU, 1999
  • '
  • Option Explicit
  • Function Message_Confirmez(Libellé As String) As Integer
  • Message_Confirmez = MsgBox(Libellé, vbQuestion + vbYesNo, "Veuillez confirmer...")
  • End Function
  • Sub Message_Erreur(Libellé As String)
  • MsgBox Libellé, vbCritical, "Erreur"
  • End Sub
  • Sub Message_Info_Action_Terminée(Libellé As String)
  • MsgBox Libellé, vbInformation, "Terminé"
  • End Sub
  • Sub Message_Info_importante(Libellé As String)
  • MsgBox Libellé, vbExclamation, "Remarque importante !"
  • End Sub
  • Function Message_Question(Libellé As String) As Integer
  • Message_Question = MsgBox(Libellé, vbQuestion + vbYesNo, "Veuillez préciser...")
  • End Function
  • Sub Message_Info_tres_importante(Libellé As String)
  • Beep
  • MsgBox Libellé, vbExclamation, "REMARQUE TRES IMPORTANTE"
  • End Sub
'Module de manipulation de boîtes de messages
'____________________________________________
'
'© Jacques PRESTREAU, 1999
'
Option Explicit

Function Message_Confirmez(Libellé As String) As Integer

Message_Confirmez = MsgBox(Libellé, vbQuestion + vbYesNo, "Veuillez confirmer...")

End Function

Sub Message_Erreur(Libellé As String)
   
MsgBox Libellé, vbCritical, "Erreur"

End Sub

Sub Message_Info_Action_Terminée(Libellé As String)

MsgBox Libellé, vbInformation, "Terminé"

End Sub

Sub Message_Info_importante(Libellé As String)

MsgBox Libellé, vbExclamation, "Remarque importante !"

End Sub

Function Message_Question(Libellé As String) As Integer

Message_Question = MsgBox(Libellé, vbQuestion + vbYesNo, "Veuillez préciser...")

End Function

Sub Message_Info_tres_importante(Libellé As String)

Beep
MsgBox Libellé, vbExclamation, "REMARQUE TRES IMPORTANTE"

End Sub

  • signaler à un administrateur
    Commentaire de jacquito le 29/05/2003 16:53:35

    C pas compliqué!! C'est de la méthode !!! Bravo car c'est une démarche très pro que créer les premières briques que l'on réétulisera sans cesse (surtout lorsque c'est simple et souvent utilisé!).

Ajouter un commentaire

Appels d'offres

Pub



Snippets en rapport

CalendriCode

Mai 2008
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS