Combobox multiple, changement du text automatique

Goth25 Messages postés 75 Date d'inscription samedi 26 juillet 2003 Statut Membre Dernière intervention 21 mai 2014 - Modifié par Goth25 le 20/05/2014 à 22:42
cs_ShayW Messages postés 3253 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 - 21 mai 2014 à 08:30
Bonjour à tous,

J'ai une petite question si jamais quelqu'un connais ou aurais une petite piste de solution.

Voici donc :

Je possède 7 Combobox nommé comme suis : ab1, ab2, ab3, ab4, bb1, ac1, ac2 qui contiennent chacun les mêmes items (Nom1, Nom2, Nom3, Nom4, Nom5, Nom6, Nom7).

Le texte de chacune des Combobox doit être unique et ce même si je change le nom.

Exemple.

ab1.text = Nom1
ab2.text = Nom2
ab3.text = Nom3
ab4.text = Nom4
bb1.text = Nom5
ac1.text = Nom6
ac2.text = Nom7


Ma question est donc la suivante : si je change l'item de ab1.text pour le passer de Nom1 à Nom7, je voudrais que ac2.text devienne également Nom1.

Si quelqu'un avait un début de piste ou un exemple de code que je pourrais m'y référer, ça serait génial.

Merci à vous tous.


Configuration : Visual Basic 2010

3 réponses

cs_ShayW Messages postés 3253 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 57
Modifié par cs_ShayW le 20/05/2014 à 23:42
Salut
Peut etre ainsi
Private Sub Swap(ByVal item2 As String, ByVal combo As 
ComboBox)
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is ComboBox Then
If ctrl.Text = item2 Then
ctrl.Text = combo.Text
combo.Text = item2
End If
End If
Next
End Sub

et selon ton exemple tu utilises la sub ainsi
 Swap("nom7", ab1)
Tu n'as pas à écrire ab1.text = "nom7" la sub s'en occupe
0
Goth25 Messages postés 75 Date d'inscription samedi 26 juillet 2003 Statut Membre Dernière intervention 21 mai 2014
Modifié par Goth25 le 21/05/2014 à 01:33
Bonjour et merci pour ta réponse rapide,

Je tente de l'adapter à mon projet mais pour le moment sa ne fonctionne pas. Je tente de faire appel a ta sub à chaque fois que l'index d'un de mes combobox change comme suis :



 Private Sub ab1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ab1.SelectedIndexChanged
        Swap(ab1.Text, ab1)
    End Sub


Mais sa ne change pas l'autre combobox associé.

Je vais y travailler. Merci encore.
0
cs_ShayW Messages postés 3253 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 57
21 mai 2014 à 08:30
Je n'ai pas expliqué les parametres
item2 est la nouvelle valeur que tu veux assigner au combobox dont tu changes l'item dans ton ex c'est nom7
combo est l'autre combobox dans ton ex c'est ac2
ce qui donne swap("nom7",ac2)
0
Rejoignez-nous