Changer le style de graphique depuis combobox

Bonjour

J'ai besoin de quelques conseils pour compléter ma petite expérience. Mon but est de changer de type de graphique en utilisant un combobox. j'ai toujours l'option d'utilisé un "select case" pour coder mon choix, mais je sais qu'il existe une meilleur méthode pour y arriver

Pour charger mon combobox je fais comme suis

Code:

---

1 2 3 4

Dim wd As Type = GetType(SeriesChartType) For Each s In [Enum].GetNames(wd) ToolStripComboBox1.Items.Add(s) Next

---

maintenant j'aimerais récupérer la valeur selectionné

Code:

---

1 2 3 4 5

Private Sub ToolStripComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ToolStripComboBox1.SelectedIndexChanged Dim str As String = ToolStripComboBox1.SelectedItem.ToString   Chart1.Series("Prix").ChartType = DataVisualization.Charting.SeriesChartType.Spline End Sub

---

merci de votre aide

https://docs.microsoft.com/fr-fr/dot...tframework-4.8

En fait, j'essai de regrouper la ligne suivante

Code:

---

1 2 3

Dim str As String = ToolStripComboBox1.SelectedItem.ToString   Chart1.Series("Prix").ChartType = DataVisualization.Charting.SeriesChartType. & str

---

j'ai essayé quelque chose du genre:

Code:

---

1 2 3 4

Dim str As String = ToolStripComboBox1.SelectedItem.ToString   Dim str2 As String = String.Format("{0}.{1}", "DataVisualization.Charting.SeriesChartType", str) Chart1.Series("Prix").ChartType = CType(str2, SeriesChartType)

---

bon j'avance, hehe!!

Code:

---

Chart1.Series("Prix").ChartType = CType(ToolStripComboBox1.SelectedIndex, DataVisualization.Charting.SeriesChartType)

---

fonctionne mais la question que je me pose comment je m'assure que l'index du "combobox" est le même que l'index du "SeriesChartType" ?

ce que j'ai fait

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function ReturnIndChartType(ByVal Str As String) As Integer Dim Rep As Integer = -1 Dim wd As Type = GetType(SeriesChartType)   For y As Integer = 0 To [Enum].GetNames(wd).Count - 1 Console.WriteLine([Enum].GetNames(wd)(y)) If [Enum].GetNames(wd)(y) = Str Then Rep = y End If Next   Return Rep   End Function

---

Code:

---

Chart1.Series("Prix").ChartType = CType(ReturnIndChartType(str), DataVisualization.Charting.SeriesChartType)

---

de cette façon j'imagine que si je tri mon combobox avec les types que j'utilise le plus ça devrait fonctionner
si quelqu'un à une meilleur solution, merci de partager.

Merci Popo, peu de mot mais fort utile hehe!:D

Tu n'est pas obligé de mettre des chaînes dans une ComboBox.
Et ton principal problème vient de là.

Commence par y mettre les valeurs de ton type Enum et ce sera beaucoup plus simple.
Et ensuite tu n'auras plus qu'à utiliser la valeur de SelectedItem.

Exemple :
Sur ma fiche j'ai une combo, un bouton et une groupbox qui contient un panel
Mon objectif est de docker le panel dans la groupbox en fonction des valeur de l'enum DockStyle.
Sur le clic du bouton je remplis la combo.
Et ensuite sur le changement de sélection de ma combo j'applique simplement la valeur qui est déjà dans le bon type.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ComboBox1.Items.Clear() Dim style As Type = GetType(DockStyle) For Each value In [Enum].GetValues(style) ComboBox1.Items.Add(value) Next End Sub   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged Panel1.Dock = ComboBox1.SelectedItem End Sub End Class

---

Tu devrais pouvoir facilement adapter mon code à ton cas.

je sais pas si j'ai mal compris, en résumé voilà ce que je fais:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Frm_Graph1_Load(sender As Object, e As EventArgs) Handles MyBase.Load   Dim wd As Type = GetType(SeriesChartType) For Each s In [Enum].GetValues(wd) ToolStripComboBox1.Items.Add(s) Next   End Sub   Private Sub ToolStripComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ToolStripComboBox1.SelectedIndexChanged 'la valeur attendu est un integer Chart1.Series("Prix").ChartType = CType(ToolStripComboBox1.SelectedIndex, DataVisualization.Charting.SeriesChartType)   End Sub

---

Idem pour Chart1.Series("Prix").ChartType, tu pars sur une idée fausse.
La valeur attendue n'est pas entier mais une valeur d'énumération.
Et à moins de convertir les Items en entier pour les trier tu n'auras pas de correspondance entre les deux.

C'est la raison pour laquelle le lien que je t'ai envoyé concerne SelectedItem
C'est la raison pour laquelle le code que je t'ai présenté utilise également SelectedItem
Malgré cela, tu continues d'utiliser SelectedIndex :mur:
Donc forcément tu galères...


Avec la bonne routine, cela donne ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Frm_Graph1_Load(sender As Object, e As EventArgs) Handles MyBase.Load   Dim wd As Type = GetType(SeriesChartType) For Each s In [Enum].GetValues(wd) ToolStripComboBox1.Items.Add(s) Next   End Sub   Private Sub ToolStripComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ToolStripComboBox1.SelectedIndexChanged 'la valeur attendu N'est PAS un integer 'C'est une valeur de l'énumération SeriesChartType Chart1.Series("Prix").ChartType = ToolStripComboBox1.SelectedItem   End Sub

---

Quand j'essai ton exemple ça dit:

Citation:

---

l'option strict on interdit les conversirons implicites de l'Object en SerieChartType

---

finalement j'ai essayé

Code:

---

Chart1.Series("Prix").ChartType = CType(ToolStripComboBox1.SelectedItem, DataVisualization.Charting.SeriesChartType)

---

et ça fonctionne
:calim2:
Je viens de voir mon erreur, dans mon premier essai j'avais codé comme suis

Code:

---

1 2 3

ToolStripComboBox1.SelectedItem.tostring au lieu de ToolStripComboBox1.SelectedItem

---

Si c'est une bonne démarche pour codé je vais gardé ça comme ça

Merci beaucoup Popo c'est bien apprécié :D