CODES SOURCES
- SELECT CASE -
Remarques: Le code suivant vous montre une application du test "Select Case". Dans cet exemple, le code est placé dans l'événement "Click" de la liste déroulante. L'application est une petite interface contenant une liste, on peut changer la couleur de la fenêtre en sélectionnant une nouvelle couleur dans cette liste.
L'interface :
Le code source du module général :
Option Explicit
Dim Couleur As String 'Variable qui va contenir _
la chaine de caractère identifiant la couleur
Le code source du chargement de la feuille :
Private Sub Form_Load()
'Chargement de la liste des couleurs
LstCoul.AddItem "Gris"
LstCoul.AddItem "Jaune"
LstCoul.AddItem "Rouge"
LstCoul.AddItem "Vert"
LstCoul.AddItem "Bleu"
'Affichage de la première couleur par défaut
LstCoul.Text = LstCoul.List(0)
End Sub
Le code source du click sur la liste :
Private Sub LstCoul_Click()
'La variable "Couleur" reçoit la couleur sélectionnée dans
la liste
Couleur = LstCoul.Text
'Test qui permet de changer la couleur en fonction du
choix _
de l'utilisateur effectué par l'intermédiaire de la liste, _
on compare la chaine dans la variable couleur et on opère le changement
Select Case Couleur
Case "Gris"
Form1.BackColor = &H8000000F
Case "Jaune"
Form1.BackColor = &HFFFF&
Case "Rouge"
Form1.BackColor = &HFF&
Case "Vert"
Form1.BackColor = &HC000&
Case "bleu"
'Cas "Autre"
Case Else 'Ici le seul
autre choix possible est "Bleu"
Form1.BackColor = &HFF0000
End Select
End Sub
Le code source du bouton quitter :
Private Sub TxtQuitter_Click()
End 'Quitter
End Sub
©Copyright Webmaster 2002