Steema Central

Code: Select all

		Dim myXMLfile As String = "tchart.xml"
		Dim ds As New DataSet()
		Dim fsReadXml As New System.IO.FileStream(myXMLfile, System.IO.FileMode.Open)
		Try
			ds.ReadXml(fsReadXml)
		Catch ex As Exception
			MessageBox.Show(ex.ToString())
		Finally
			fsReadXml.Close()
		End Try


		With TChart1
			.Dock = DockStyle.Fill
			Dim s As TeeChart.Styles.Line = New TeeChart.Styles.Line(.Chart)

			s.LinePen.Style = Drawing2D.DashStyle.Solid
			s.LinePen.Width = 1
			s.LinePen.EndCap = Drawing2D.LineCap.Round
			s.Color = Color.Black
			.Legend.CustomPosition = False
			.Legend.ResizeChart = True
			.Axes.Right.Grid.Visible = False
			s.Title = "sample chart"

			For Each row As DataRow In ds.Tables(2).Rows
				s.Add(CDbl(row(1).ToString()), row(0).ToString)
			Next

			.Axes.Bottom.Labels.Items.Clear()

			For i As Integer = 1 To s.Count - 1
				If s.Labels(i) <> "" Then
					.Axes.Bottom.Labels.Items.Add(s.XValues(i), s.Labels(i))
				End If
			Next

		End With