Goth25
Messages postés75Date d'inscriptionsamedi 26 juillet 2003StatutMembreDernière intervention21 mai 2014
-
Modifié par Goth25 le 20/05/2014 à 22:42
cs_ShayW
Messages postés3253Date d'inscriptionjeudi 26 novembre 2009StatutMembreDerniè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.
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
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
cs_ShayW
Messages postés3253Date d'inscriptionjeudi 26 novembre 2009StatutMembreDernière intervention 3 décembre 201957 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)