probleme de save et load des combobox

Version imprimable

Bonsoir,

j'ai un petit problème pour sauvegarder le nom dans combobox1 par rapport une couleur de mon choix dans combobox2.

dans mon combobox1 4 list de mot :
circle
line
text
form1

dans combobox2 une list de couleur( voir image)
https://i.stack.imgur.com/fqFcw.png

mon code load from1 :

Code:

1
2
3
4
5
6
7
 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
If My.Settings.MyColor Is Nothing Then My.Settings.MyColor = New Specialized.StringCollection
            Dim CBOX = Me.Controls.OfType(Of ComboBox)().ToArray
            For i = 0 To CBOX.Length - 1
                CBOX(i).SelectedIndex = My.Settings.MyColor(i)
            Next
End Sub

mon code clos form1 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        For Each TCBOX As ComboBox In Me.Controls.OfType(Of ComboBox)().ToArray
            If Not String.IsNullOrEmpty(TCBOX.Text) Then
                My.Settings.MyColor = New Specialized.StringCollection()
                My.Settings.MyColor.Clear()
                Dim CBOX = Me.Controls.OfType(Of ComboBox)().ToArray
                For i = 0 To CBOX.Length - 1
                    My.Settings.MyColor.Add(CBOX(i).SelectedIndex)
                Next
            End If
        Next
    End Sub

pouvez-vous m'aider à enregistrer chaque nom dans list combobox1 une couleur dans combobox2? merci d'avance

Merci de faire attention à la clarté de la demande.
Pour moi tes phrases n'ont aucun sens.

La seule chose clair pour moi, c'est le code.
Et de ce coté là, il y a quelques incohérences.
MyColor contient des chaînes et tu t'en sert pour affecter CBOX(i).SelectedIndexPourquoi deux boules imbriquées qui vont chercher rigoureusement les mêmes combo ?
Pourquoi vider une collection déjà vide puisque toute neuve ?
Code:

1 2 3 4 5 6 7 8 9 10 For Each TCBOX As ComboBox In Me.Controls.OfType(Of ComboBox)().ToArray If Not String.IsNullOrEmpty(TCBOX.Text) Then My.Settings.MyColor = New Specialized.StringCollection() My.Settings.MyColor.Clear() Dim CBOX = Me.Controls.OfType(Of ComboBox)().ToArray For i = 0 To CBOX.Length - 1 My.Settings.MyColor.Add(CBOX(i).SelectedIndex) Next End If Next

Bonjour Popo,

je vous répliquer correctement mon problème, c'est dans combobox1 j'ai 5 liste de mot par rapport à une classe et dans combobox2, il y a une liste de couleurs.
mon but c'est enregistrer la liste de couleur que j'ai choisi par rapport a liste de mon dans combobox1.

exemple :

combobox1 : Cercle et dans combobox2 : color.red
Combobox1 : Line et dans combobox2 : color.LimeGreen
..etc

dans combobox 2 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ComboBox2_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox2.SelectedIndex >= 0 Then
            Select Case ComboBox1.SelectedIndex
                Case 0
                    Myclasse.ColorCircle = Color.FromName(ComboBox2.Items(ComboBox2.SelectedIndex))
                Case 1
                    Myclasse.ColorLine = Color.FromName(ComboBox2.Items(ComboBox2.SelectedIndex))
                Case 2
                    Myclasse.ColorText = Color.FromName(ComboBox2.Items(ComboBox2.SelectedIndex))
                Case 3
                    Myclasse.ForeColor = Color.FromName(ComboBox2.Items(ComboBox2.SelectedIndex))
                Case 4
                    Me.BackColor = Color.FromName(ComboBox2.Items(ComboBox2.SelectedIndex))
            End Select
        End If
    End Sub

je voudrais en enregistrer une couleur chaque mot dans combobox1 et charger la couleur par rapport la list de mot dans combobox1. avez-vous idée comment puis-je fait cela? Merci d'avance

22/05/2023, 10h35
popo

De ce que je vois par rapport à ce code, c'est que
- tu as un Object MyClass avec des propriétés.
- les noms de ces propriétés sont les textes des items de ComboBox1
- ces propriété sont de type Color
- ComboBox2 contient des nom de couleur.

Et tu cherches à mettre la couleur correspondant au texte de ComboBox2 dans la propriété de MyClass dont le nom correspond au texte de ComboBox1.

Si c'est bien ça alors le code que tu as posté devrait fonctionner.
L'inconvénient, c'est que cela devient lourd si tu as beaucoup de propriétés.
Il est toutefois possible de passer par la reflexion.

De mémoire, un truc comme ceci devrait faire le job :

Code:

MyClass.GetType().GetProperty(ComboBox1.Text).SetValue(MyClass, Color.FromName(ComboBox2.Text);