Change shapestyle using VB.Net

[newbie]

Is there an VB.net equivalent for the following C# post? Using CType causes a runtime crash.

private void Button1_Click(object sender, System.EventArgs e)
{
(WebChart1.Chart.Series[0] as Steema.TeeChart.Styles.Shape).Style = Steema.TeeChart.Styles.ShapeStyles.Rectangle;
}

[Narcís]

Hello,

It works fine for me here using:

Code: Select all

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        CType(WebChart1.Chart.Series(0), Steema.TeeChart.Styles.Shape).Style = Steema.TeeChart.Styles.ShapeStyles.Rectangle
    End Sub

[newbie]

Thanks for the quick reply. I tried that, but the error I'm getting at run time is:

Unable to to cast object of type 'Steema.TeeChart.Styles.Points' to type 'Steema.TeeChart.Styles.Shape'

I'm adding the points like this:

defectPoints(i) = New Steema.TeeChart.Styles.Points(tchart.Chart)

[Narcís]

Hi newbie,

What you are doing here is adding point series. If you want to change its pointer style you need to do something like:

Code: Select all

CType(WebChart1.Chart.Series(1), Steema.TeeChart.Styles.Points).Pointer.Style = Steema.TeeChart.Styles.PointerStyles.Circle

[newbie]

Works great. Thanks!