[Débutant] probleme recupération valeur d'une combobox

Version imprimable

Bonjour a tous et a toutes!
Je me suis lancé il y a une quinzaine de jour dans le monde du VB, car je compte réaliser un petit logiciel pour mon boulot.

J'ai déjà bien avancé, débugger quelques lignes, mais je bute sur un problème:

J'ai une combobox, dans laquelle j'ai rentré des paramètres manuellement, et que l'utilisateur ne pourra pas modifier (comme une listbox, en fait, mais avec un menu déroulant!)

je souhaite que suivant le choix fait dans la combobox, des bouton radio disparaissent. Mais ça ne fonctionne pas. lors de la compilation, j'ai une erreur. J'ai testé plusieurs solutions, mais a chaque fois, j'ai une erreur. Je suis sur que cela n'est pas compliqué, mais je bute lamentablement!!! J'ai lu le cours, très bien fait par ailleurs,et je suis en train de le "digérer", mais je n'ai pas trouvé d'indication qui puisse m'aider.

Voici mon bout de code avec CMB_ChoixVéhicule comme combobox et RBT pour les boutons radio. D'après mon code, je veux qui si le texte de la combobox = M1 ou M2, les boutons radio RBT_FroidDomestique et RBT_Remorque soient invisible.
Code:

1 2 3 4 5 6 7 8 9 Private Sub CMB_ChoixVéhicule_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMB_ChoixVéhicule.SelectedIndexChanged If CMB_ChoixVéhicule.Text = "M1" Or "M2" Then RBT_FroidDomestique.Visible = False And RBT_Remoque.Visible = False Else : RBT_FroidDomestique.Visible = True And RBT_Remoque.Visible = True End If End Sub

J'ai trouvé une solution qui fonctionne.
en fait, c'est le "OR" qui posait problème.
j'ai donc contourné mon problème de la manière suivante:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CMB_ChoixVéhicule_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMB_ChoixVéhicule.SelectedIndexChanged
        Dim M1, M2 As Boolean
        If CMB_ChoixVéhicule.Text = "M1" Then
            M1 = True
        End If
        If CMB_ChoixVéhicule.Text = "M2" Then
            M2 = True
        End If
        If M1 Or M2 = True Then
            RBT_FroidDomestique.Visible = False
            RBT_Remoque.Visible = False
        Else
            RBT_FroidDomestique.Visible = True
            RBT_Remoque.Visible = True
        End If
    End Sub

23/05/2011, 10h20
getule
au lieu de faire =M1 or M2, ce qui est faux

Code:

If CMB_ChoixVéhicule.Text = "M1" Or "M2" Then

tu devras faire CMB_ChoixVéhicule.Text = "M1" or CMB_ChoixVéhicule.Text = "M2"
ça sera comme suit:
Code:

1 2 3 4 If CMB_ChoixVéhicule.Text = "M1" Or CMB_ChoixVéhicule.Text = "M2" then instruction end if