Discussion :

[toutemes1]

J'ai un petit bemol avec les Combo:j'ai crée Trois Combos dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
private Sub Form_Load()
Combo1.AddItem "Occupation"
Combo1.AddItem "Voiture"
Combo1.AddItem "Avion"
 
Combo2.AddItem "Poisson"
Combo2.AddItem "Viande"
Combo2.AddItem "Saule"
 
Combo3.AddItem "Oui"
Combo3.AddItem "Non"

Tout ça fonctionne correctement mais qd je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Combo1.Text="Occupation" And Combo2.Text="Poisson" Then Combo3.Enable=False
End If

ça ne marche pas, je ve cre des événements c'est à dire selectionné une valeur dans une liste et désactiver une autre liste au meme moment.
Aider moi s'il vous plait.

[phfle1]

Salut,

Ce que tu peux faire pour cela est de te créer un évènement pour chacun de tes combos qui devront "Handler" le changement d'Index de tes combos.

bonne chance!

[Danyel]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Combo1.Text="Occupation" And Combo2.Text="Poisson" Then Combo3.Enable=False
End If

Dans ce code, le End If est en trop car tu donnes la definition du Then sur la meme ligne.

[Tusbar]

Dans ce code, le End If est en trop car tu donnes la definition du Then sur la meme ligne.

Certes, mais ce n'est pas avec ceci qu'un tel code fonctionnera. Il faut, comme le suggère phfle1, effectuer les contrôles sur les éléments des comboboxes sélectionnés au moment ou ceux ci sont sélectionnés.

Dans des méthodes du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub mySub(Byval sender as object, Byval e as EventArgs) Handles myCombobox.SelectedIndexChanged

Si tu utilises les combobox du framework, pour ajouter un élément, c'est comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox1.Items.Add("Occupation")

Et la propriété pour désactiver un champ, c'est Enabled et non Enable

Voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("Occupation")
        ComboBox1.Items.Add("Voiture")
        ComboBox1.Items.Add("Avion")
 
        ComboBox2.Items.Add("Poisson")
        ComboBox2.Items.Add("Viande")
        ComboBox2.Items.Add("Saule")
 
        ComboBox3.Items.Add("Oui")
        ComboBox3.Items.Add("Non")
    End Sub
 
    Private Sub DisableFields()
        If ComboBox1.Text = "Occupation" And ComboBox2.Text = "Poisson" Then ComboBox3.Enabled = False
    End Sub
 
    Private Sub ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged, ComboBox1.SelectedIndexChanged
        DisableFields()
    End Sub
End Class