Hallo zusammen,
ich habe in meiner Windows-Form eine ComboBox zur Auswahl einer Station, zwei DateTimePicker zum festlegen eines Zeitraums, einen Button zum Anzeigen, einen Chart
und 3 CheckBoxes, mit deren Hilfe die Series im Chart ein und ausgeblendet werden sollen.
Leider habe ich genau damit ein Problem. Mit dem folgenden Code erhalte ich immer den Fehler
"Ein Diagrammelement mit dem Namen 'Temp' konnte in 'SeriesCollection' nicht gefunden werden."
Lasse ich den Else-Zweig der If-Bedingung weg, wird das Programm ausgeführt, jedoch kann ich die Series zwar ausblenden aber nicht wieder einblenden. Der Ausgangszustand der CheckBox ist 'Checked'.
Ich verstehe nicht, warum das Programm auf einen Fehler läuft, zu dem Zeitpunkt des Ausführens soll der Zustand der CheckBox doch noch gar nicht abgefragt werden, sondern nur wenn sich der Zustand ändert!?
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.tblwetterTableAdapter.Fill(Me.DataSet.tblwetter)
tblwetterBindingSource.Filter = String.Format("station Like '*" & CStr(ComboBox1.SelectedItem) & "*' and datum >= '" & DatumDateTimePicker.Value.ToShortDateString & "' and datum <= '" & DatumDateTimePicker1.Value.ToShortDateString & "'")
Chart1.Series("Temp").Color = Color.Green
Chart1.Series("Druck").Color = Color.Red
Chart1.Series("Feuchte").Color = Color.Blue
Chart1.DataBind()
Chart1.Visible = True
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
tblwetterBindingSource.Filter = String.Format("station Like '*" & CStr(ComboBox1.SelectedItem) & "*' and datum >= '" & DatumDateTimePicker.Value.ToShortDateString & "' and datum <= '" & DatumDateTimePicker1.Value.ToShortDateString & "'")
Chart1.DataBind()
Chart1.Visible = True
Try
Me.tblwetterTableAdapter.OrderByDatum(Me.DataSet.tblwetterDaily)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub CB_Temp_CheckedChanged(sender As Object, e As EventArgs) Handles CB_Temp.CheckStateChanged
If CB_Temp.Checked = False Then
Chart1.Series("Temp").Enabled = False
Else
Chart1.Series("Temp").Enabled = True
End If
End Sub
End Class
Und ein zweites Problem habe ich noch: Wenn ich die Series per CheckBox ausschalte, verschwinden auch die Bezeichnungen meiner X-Achse, schalte ich die Series wieder zu, werden die Bezeichnungen wieder eingeblendet - woran liegt das?
Vielen Dank für jede Hilfe!
Alex
