Zone de liste modifiable

Soyez le premier à donner votre avis sur cette source.

Vue 5 220 fois - Téléchargée 306 fois

Description

Zone de liste Modifiable

Source / Exemple :


Option Explicit
 ' la variable vEntrée est déclarée dans la section Déclaration, pour qu'elle
 ' soit disponible pour toutes les procédures du module de la feuille. Elle
 ' positionnée dans la procédure événementielle LostFocus de la zone de texte
 ' à la valeur correspondante de la propriété Text
Dim vEntrée

Private Sub cbostyle0_lostfocus()
vEntrée = cbostyle0.Text
End Sub

Private Sub cbostyle1_LostFocus()
vEntrée = cbostyle1.Text
End Sub

Private Sub cbostyle2_lostfocus()
vEntrée = cbostyle2.Text
End Sub

Private Sub cmdajouter_Click()
If Trim(vEntrée) <> "" Then
lstresultat.AddItem vEntrée
vEntrée = ""
lblaffichage.Caption = lstresultat.ListCount
Else
Beep
End If
End Sub

Private Sub cmdeffacer_Click()
 'supprimer l'entrée, verrouiller le bouton
 'supprimer",afficher le nombre
 
 lstresultat.Clear
 cmdsupprimer.Enabled = False
 lblaffichage.Caption = lstresultat.ListCount
End Sub

Private Sub cmdquitter_Click()
End
End Sub

Private Sub cmdsupprimer_Click()
Dim vValeurIndex
vValeurIndex = lstresultat.ListIndex
 'si un élément est sélectionnné, le supprimer
 'et afficher le nombre
 
If vValeurIndex > -1 Then
lstresultat.RemoveItem vValeurIndex
lblaffichage.Caption = lstresultat.ListCount
Else
Beep
End If
'verrouiller le bouton si la liste est vide
If lstresultat.ListCount = 0 Then
cmdsupprimer.Enabled = False
End If
End Sub

Private Sub Form_Load()
cbostyle0.AddItem "Article 1"
cbostyle1.AddItem "Article 2"
cbostyle2.AddItem "Article 3"
cbostyle0.AddItem "Article 4"
cbostyle1.AddItem "Article 5"
cbostyle2.AddItem "Article 6"
cbostyle0.AddItem "Article 7"
cbostyle1.AddItem "Article 8"
cbostyle2.AddItem "Article 9"
cbostyle0.AddItem "Article 10"
cbostyle1.AddItem "Article 11"
cbostyle2.AddItem "Article 12"
cbostyle0.AddItem "Article 13"
cbostyle1.AddItem "Article 14"
cbostyle2.AddItem "Article 15"
cbostyle0.AddItem "Article 16"
cbostyle1.AddItem "Article 17"
cbostyle2.AddItem "Article 18"
cbostyle0.AddItem "Article 19"
cbostyle1.AddItem "Article 20"
cbostyle2.AddItem "Article 21"

vEntrée = ""
End Sub

Private Sub lstresultat_GotFocus()
'Déverrouiller le bouton "supprimer",
'si la liste n'est pas dite

If lstresultat.ListCount > 0 Then
cmdsupprimer.Enabled = True
End If
End Sub

Private Sub lstresultat_DblClick()
cmdsupprimer.Value = True
End Sub

Conclusion :


Un code qui vous explique 2 ou 3 fonction assez intéressante. Tous est expliquer dans le code http://www.steven007.fr.st

Codes Sources

A voir également

Ajouter un commentaire Commentaire
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003

je vois pas trop l'interet, je mettrais un niveau 1 car le code est tres simple, mais bonne continuation... au moins c pas un virus ou une connerie !
j'ai pas trouvé de bug lors des tests...

$hîv@n

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.