Steema Central

Code: Select all

 Dim Line_Bubble As New Steema.TeeChart.Styles.Bubble
            frm.TChart1.Series.Add(Line_Bubble)
            tx = frm.TChart1.Series.Count - 1
            frm.TChart1.Series(tx).Tag = CvO.ImportPath
            For i = 0 To DataSet.Tables(0).Columns.Count - 1
                LabelValue = CStr(DataSet.Tables(0).Rows(ValueField1).Item(i))
                XValue = CDbl(DataSet.Tables(0).Rows(ValueField2).Item(i))
                YValue = CDbl(DataSet.Tables(0).Rows(ValueField3).Item(i))
                RadiusValue = CDbl(DataSet.Tables(0).Rows(ValueField4).Item(i))
                frm.TChart1.Series(tx).Add(XValue, YValue, RadiusValue, LabelValue, Color.Aqua)
            Next i

Code: Select all

public Int32 Add(System.Double, System.Double, System.Double, System.String, System.Drawing.Color)

Code: Select all

Private Sub InitializeChart()
	Dim Bubble As New Steema.TeeChart.Styles.Bubble(tChart1.Chart)
	Dim rnd As New Random()
	Dim Xvalues As Double, Yvalues As Double, RadiusValue As Double
	Dim LabelValue As [String]
	For i As Integer = 0 To 9
		Xvalues = i
		Yvalues = rnd.[Next](10)
		RadiusValue = 3
		LabelValue = i.ToString()
		Bubble.Add(Xvalues, Yvalues, RadiusValue, LabelValue, Color.Aqua)
	Next

End Sub