Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim ChartArea1 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
Dim Legend1 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
Dim Series1 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Sheet1BindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.SampleDB2DataSet = New WindowsApplication13.SampleDB2DataSet()
Me.Sheet1TableAdapter = New WindowsApplication13.SampleDB2DataSetTableAdapters.sheet1TableAdapter()
Me.Chart1 = New System.Windows.Forms.DataVisualization.Charting.Chart()
Me.Button1 = New System.Windows.Forms.Button()
CType(Me.Sheet1BindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SampleDB2DataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Chart1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ComboBox1
'
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Items.AddRange(New Object() {"Price", "Quantity"})
Me.ComboBox1.Location = New System.Drawing.Point(72, 39)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(540, 20)
Me.ComboBox1.TabIndex = 0
'
'Sheet1BindingSource
'
Me.Sheet1BindingSource.DataMember = "sheet1"
Me.Sheet1BindingSource.DataSource = Me.SampleDB2DataSet
'
'SampleDB2DataSet
'
Me.SampleDB2DataSet.DataSetName = "SampleDB2DataSet"
Me.SampleDB2DataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'Sheet1TableAdapter
'
Me.Sheet1TableAdapter.ClearBeforeFill = True
'
'Chart1
'
ChartArea1.Name = "ChartArea1"
Me.Chart1.ChartAreas.Add(ChartArea1)
Me.Chart1.DataSource = Me.Sheet1BindingSource
Legend1.Name = "Legend1"
Me.Chart1.Legends.Add(Legend1)
Me.Chart1.Location = New System.Drawing.Point(75, 129)
Me.Chart1.Name = "Chart1"
Series1.ChartArea = "ChartArea1"
Series1.Legend = "Legend1"
Series1.Name = "Series1"
Series1.XValueMember = "Name"
Series1.YValueMembers = ComboBox1.Text
Me.Chart1.Series.Add(Series1)
Me.Chart1.Size = New System.Drawing.Size(627, 384)
Me.Chart1.TabIndex = 1
Me.Chart1.Text = "Chart1"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(633, 24)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(102, 75)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(764, 571)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Chart1)
Me.Controls.Add(Me.ComboBox1)
Me.Name = "Form1"
Me.Text = "Form1"
CType(Me.Sheet1BindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SampleDB2DataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Chart1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents SampleDB2DataSet As WindowsApplication13.SampleDB2DataSet
Friend WithEvents Sheet1BindingSource As System.Windows.Forms.BindingSource
Friend WithEvents Sheet1TableAdapter As WindowsApplication13.SampleDB2DataSetTableAdapters.sheet1TableAdapter
Friend WithEvents Chart1 As System.Windows.Forms.DataVisualization.Charting.Chart
Friend WithEvents Button1 As System.Windows.Forms.Button
End Class
In short
I changed Yvaluemembers to like this.
Series1.YValueMembers = ComboBox1.Text
Although I changed combobox1, chart doesn't updated.
So I added this code to combobox1
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Chart1.Update()
End Sub