Aide dans mon projet en vb
chiraz
-
nbonnet Messages postés 478 Date d'inscription Statut Membre Dernière intervention -
nbonnet Messages postés 478 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Aide dans mon projet en vb
- Vb - Télécharger - Langages
- Filigrane projet - Guide
- Gant projet - Télécharger - Gestion de projets
- Vb cable - Télécharger - Audio & Musique
- Musique projet x - Forum Musique / Radio / Clip
2 réponses
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
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
chiraz
merci c ca que je cherche A+
Bonjour,
Ca marchera pas...
faut faire...
A+
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+