Error using ChartFx in Web parts

[User (Legacy)]

Hi!

I am using Chart FX chart control in the web part. I am also getting the

same error when trying to add the web part in the Sharepoint portal server's

web page.

"Web Part Error: One of the properties of the Web Part has an incorrect

format. Windows SharePoint Services cannot deserialize the Web Part. Check

the format of the properties and try again."

If I remove the Chart FX related code then this is working fine. I am

getting proper output when applied the same code in a ASP.NET web

application. I am trying the same code in the web part, but i am getting

this error. I am submitting the code for your reference.

Imports System

Imports System.ComponentModel

Imports System.Web.UI

Imports System.Web.UI.WebControls

Imports System.Xml.Serialization

Imports Microsoft.SharePoint

Imports Microsoft.SharePoint.Utilities

Imports Microsoft.SharePoint.WebPartPages

Imports SoftwareFX.ChartFX.Internet.Server

'Description for wpChartFX.

Public Class wpChartFX

Inherits Microsoft.SharePoint.WebPartPages.WebPart

Private chSample As New SoftwareFX.ChartFX.Internet.Server.Chart

Private lblError As Label

'Render this Web Part to the output parameter specified.

Protected Overrides Sub RenderWebPart(ByVal output As

System.Web.UI.HtmlTextWriter)

EnsureChildControls()

RenderChildren(output)

End Sub

Protected Overrides Sub CreateChildControls()

'lblError

lblError = New Label

lblError.Text = "Sample Label"

lblError.ForeColor = Drawing.Color.Red

lblError.Font.Bold = True

Me.Controls.Add(lblError)

'Chart FX

Try

'chSample = New SoftwareFX.ChartFX.Internet.Server.Chart

chSample.BackColor = System.Drawing.Color.FromArgb(220, 240, 240)

chSample.Gallery = SoftwareFX.ChartFX.Gallery.Cube

chSample.Chart3D = True

chSample.Titles(0).Text = "Chart FX WebPart Chart!"

Dim r As New Random, i As Integer, j As Integer

chSample.OpenData(SoftwareFX.ChartFX.COD.Values, 3, 10)

For i = 1 To 3

For j = 1 To 10

chSample.Value(i, j) = r.NextDouble() * 100

Next

Next

chSample.CloseData(SoftwareFX.ChartFX.COD.Values)

Controls.Add(chSample)

Catch err As Exception

lblError.Text = err.Message

End Try

End Sub

Protected Overrides Sub RenderChildren(ByVal output As

System.Web.UI.HtmlTextWriter)

output.RenderBeginTag("table bgcolor=whitesmoke cellpadding=5 cellspacing=1

width=100%")

output.RenderBeginTag("tr")

output.RenderBeginTag("td bgcolor=orange colspan=2")

output.Write("Web part with ChartFX")

output.RenderEndTag()

output.RenderEndTag()

output.RenderBeginTag("tr")

output.RenderBeginTag("td bgcolor=orange colspan=2")

chSample.RenderControl(output)

output.RenderEndTag()

output.RenderEndTag()

output.RenderBeginTag("tr")

output.RenderBeginTag("td bgcolor=witecolspan=2")

lblError.RenderControl(output)

output.RenderEndTag()

output.RenderEndTag()

output.RenderEndTag()

End Sub

End Class

Can you guys help me to solve this problem?

-karthik