Add Series - Bubble

[AGF]

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

brings this error:

Error 29 Overload resolution failed because no accessible 'Add' accepts this number of arguments.....

But in your Doc is described

Code: Select all

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

???

Thanks and Best Regards

[Sandra]

Hello AGF,

I have made next simple code where is using the method add that is described in documentation: public Int32 Add(System.Double, System.Double, System.Double, System.String, System.Drawing.Color) and this works fine for me.

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

Could you please, check if previous code works as you expected?

Thanks,

[AGF]

It works well