aide dans mon projet en vb

Question

Bonjour,voila mon projet  vidéotheque que je commence à le préparer pouvez vous m'aider de faire la 2 EME form
je veux choisir une catégorie de film occidental ou oriental puis selon cette categorie j'affiche une liste 

j'ai mis dans la form une zone texte ou je taperai la catégorie de film et j'ai mis une liste et un bouton nommé afficher la liste 
j'ai mis ds ce bouton ce code source=>

Private Sub afficher_Click()
If (Text1.Text = "occidental") Then
List1.AddItem "américain"
List1.AddItem "hind"
List1.AddItem "italien"
List1.AddItem "francais"
End If
If (Text1.Text = "oriental") Then
List1.AddItem "égyptien"
List1.AddItem "tunisien"
List1.AddItem "marocain"
List1.AddItem "algérien"
End If
End Sub
la probleme ici est quand je change la catégorie (de occidental à oriental  par exp) la liste ne s'efface pas ,j'ai utiliser list1.refrech mais tjs faux
je vous attends merci

nbonnet · Answer

En vb je ne serait pas te dire la syntaxe exacte mais en algo ca serai du genre

Private Sub afficher_Click()
If (Text1.Text = "occidental") Then 
    If list1 =! "" Then
       list.refresh
   Else
       List1.AddItem "américain"
       List1.AddItem "hind"
       List1.AddItem "italien"
       List1.AddItem "francais" 
   End IF
...

tu voit le genre

lermite222 · Answer

Bonjour,
Ca marchera pas...
faut faire...
Private Sub afficher_Click() 
    List1.Clear
    If (Text1.Text = "occidental") Then 
        List1.AddItem "américain" 
        List1.AddItem "hind" 
        List1.AddItem "italien" 
        List1.AddItem "francais" 
    elseIf (Text1.Text = "oriental") Then 
        List1.AddItem "égyptien" 
        List1.AddItem "tunisien" 
        List1.AddItem "marocain" 
        List1.AddItem "algérien"
    End If 
End Sub

A+

Aide dans mon projet en vb

2 réponses

Discussions similaires

Newsletters