Changer le texte de combo box avec des variables
Bonjour le Forum,
je souhaite changer le texte de Combobox avec des données qui sont stockées dans des variables.
En gros je souhaite un peu faire comme Excel," je change de page en cliquant sur un RadioButton", en mettant les données de chaque Combobox dans des variables.
Le code fonctionne mais que pour une seule des combobox à la fois, il faut qu'une des combobox reste avec sa première entrée, c'est vraiment étrange.
Voici mon code.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| If RadioButtonG1.Checked = True Then 'Page 1
S1COMBOG1 = S1COMBO.Text
S1COMBOG1 = S2COMBO.Text
End If
If RadioButtonG2.Checked = True Then 'Page 2
S1COMBOG2 = S1COMBO.Text
S2COMBOG2 = S2COMBO.Text
End If
Private Sub RadioButtonG1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButtonG1.CheckedChanged
If RadioButtonG1.Checked = True And RadioButtonG2.Checked = False Then
S1COMBO.Text = S1COMBOG1
S2COMBO.Text = S2COMBOG1
End If
If RadioButtonG2.Checked = True And RadioButtonG1.Checked = False Then
S1COMBO.Text = S1COMBOG2
S2COMBO.Text = S2COMBOG2
End If
End Sub
Private Sub RadioButtonG2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButtonG2.CheckedChanged
If RadioButtonG1.Checked = True Then
S1COMBO.Text = S1COMBOG1
S2COMBO.Text = S2COMBOG1
End If
If RadioButtonG2.Checked = True Then
S1COMBO.Text = S1COMBOG2
S2COMBO.Text = S2COMBOG2
End If
End Sub |
Merci pour votre aide.