VB GENERATOR - Codes Sources

CODES SOURCES

- MODULE PARAMETRE-

Exercice : Ce programme utilise un module paramétré et une feuille Form. En fonction d'un choix le programme affiche l'heure ou la date. Dans ce programme l'utilisation d'un module paramétré n'est pas indispensable, voire complétement inutile. Le but étant simplement de vous montrer un exemple de module paramétré.

Des informations sur l'utilisation des modules sont indiquées dans la rubrique "cours".

L'interface :

Les contrôles sur cette feuille sont :

Un bouton d'option nommé "OptHeure",

Un bouton d'option nommé "OptDate",

Un bouton de commande nommé "CmdAfficher",

Un bouton de commande nommé "CmdQuitter".

Le code source du module

'(Général)
Public Sub SubAfficher(choix As String)
'Selon la valeur du paramètre transmis (stockée dans "choix"), on affiche l'heure ou _
la date système dans une MsgBox.
    If choix = "heure" Then
        MsgBox "Il est actuellement " & Time, vbOKOnly, "Bonjour"
    Else
    If choix = "date" Then
        MsgBox "Nous sommes le " & Date, vbOKOnly, "Bonjour"
    End If
    End If
End Sub

Le code source de la feuille Form:

'Général
Dim selection As String   'Déclaration d'une variable de type "chaine"

Private Sub CmdAfficher_Click()
'Appel du module et transmission du paramètre qui est contenu _
    dans la variable "selection"
Module1.SubAfficher (selection)
End Sub

Private Sub CmdQuitter_Click()
Dim boite As VbMsgBoxResult 'Déclaration d'une variable qui va contenir _
le choix de l'utilisateur en fonction qu'il clique sur Yes ou No dans la _
boite de dialogue.
'Affichage de la boîte de dialogue de fermeture
boite = MsgBox("Voulez - vous vraiment quitter l'application ?", vbYesNo, "Confirmation")
If boite = vbYes Then End   'Si le choix est Yes, on ferme l'application
End Sub

Private Sub OptDate_Click()
selection = "date" 'la variable reçoit "date"
End Sub

Private Sub OptHeure_Click()
selection = "heure" 'la variable reçoit "heure"
End Sub



^©Copyright Webmaster 2002