CODES SOURCES

- TIMER -

 

 

Remarques: Un tableau est chargé au démarrage de l'application. Il contient une série de noms et de prénoms. Lorsque l'utilisateur souhaite charger la liste avec les noms et les prénoms du tableau, il va cliquer sur le bouton de commande correspondant. Cela activera un contrôle timer qui va ajouter un nom dans la liste toute les secondes (interval = 1000). Une progressbar renseigne en temps réel l'état d'avancement du chargement de la liste.

Des informations sur l'utilisation des tableaux, des contrôles Timer et ProgressBar sont disponibles dans la rubrique "cours".

 

L'interface :

 

 Les différents contrôles qui composent cette interface sont :

  • Une ListBox nommée ContactLst,
  • Un bouton de commande nommé LoadCmd,
  • Un contrôle ProgressBar nommé ProgressBar1
  • Un contrôle Timer (toujours invisible en mode exécution) nommé Timer1.

 

 

 

Le code source

 

'Général

Option Explicit
'Déclaration d'un tableau
Dim NomTab(1, 4) As String

Private Sub LoadCmd_Click() 'Bouton de chargement
Timer1.Interval = 1000  'Définition de l'interval du timer
LoadCmd.Enabled = False 'Bouton vérouillé
Timer1.Enabled = True   'Timer inactif

End Sub

Private Sub Form_Load()
'Remplissage du tableau
NomTab(0, 0) = "Laurent"
NomTab(0, 1) = "Jérôme"
NomTab(0, 2) = "François"
NomTab(0, 3) = "Mélanie"
NomTab(0, 4) = "Julien"
NomTab(1, 0) = "DUPONT"
NomTab(1, 1) = "MARTIN"
NomTab(1, 2) = "BONNINGUES"
NomTab(1, 3) = "HUMETZ"
NomTab(1, 4) = "DURAND"
ProgressBar1.Min = 0    'Initialisation de la progressbar
End Sub

Private Sub Timer1_Timer()  'Timer
Static Compteur As Integer  'Déclaration d'une variable statique
If Compteur <= 4 Then   'Test
    'Ajout des éléments du tableau dans la liste
    ContactLst.AddItem NomTab(0, Compteur) & " " & NomTab(1, Compteur)
    Compteur = Compteur + 1 'Incrémentation du compteur
    'Mise à jour de la progressbar
    ProgressBar1.Value = ProgressBar1.Value + (ProgressBar1.Max / 5)
Else: MsgBox "Le chargement est terminé !", vbOKOnly, "Le chargement est terminé"
Timer1.Enabled = False  'Timer inactif
End  'Fermer l'application
End If
End Sub

 

 

 

 

   

 

          ©Copyright Webmaster 2002