Thank you for help!
I'm trying to use, but I'm receiving this message below when I try to execute the code following all the steps for the link you sent me.
"Could not find library support for JSON parsing."
Here is the code:
Imports System.Text
Imports FusionCharts.Charts
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim Data As String
Data = "<chart caption='Sales of Liquor' subcaption='Last week' xaxisname='Day' yaxisname='Sales (In USD)' numberprefix='$' palettecolors='#0075c2' bgcolor='#ffffff' showborder='0' showcanvasborder='0' plotborderalpha='10' useplotgradientcolor='0' plotfillalpha='50' showxaxisline='1' axislinealpha='25' divlinealpha='10' showvalues='1' showalternatehgridcolor='0' captionfontsize='14' subcaptionfontsize='14' subcaptionfontbold='0' tooltipcolor='#ffffff' tooltipborderthickness='0' tooltipbgcolor='#000000' tooltipbgalpha='80' tooltipborderradius='2' tooltippadding='5'><set label='Mon' value='4123' /><set label='Tue' value='4633' /><set label='Wed' value='5507' /><set label='Thu' value='4910' /><set label='Fri' value='5529' /><set label='Sat' value='5803' /><set label='Sun' value='6202' /></chart>"
Dim factoryOutput As New Chart("area2d", "myChart", "600", "350", "xml", Data)
Dim Total As New StringBuilder
Total.Append("<html xmlns='http://www.w3.org/1999/xhtml'>")
Total.Append("<head>")
Total.Append("<meta http-equiv='Content-Type' content='text/html; charset=UTF-8' />")
Total.AppendFormat("<script type='text/javascript' src='http://static.fusioncharts.com/code/latest/fusioncharts.js?cacheBust=8232'></script>", Application.StartupPath.Replace("\\", "/"))
'Total.AppendFormat("<script type='text/javascript' src='jquery/jquery.1.4.2.min.js'></script>", Application.StartupPath.Replace("\\", "/"))
'Total.AppendFormat("<script type='text/javascript' src='jquery/jquery.gallerax-0.2.js'></script>", Application.StartupPath.Replace("\\", "/"))
Total.Append("<body>")
Dim chartdata As String
chartdata = factoryOutput.Render()
Total.Append(chartdata)
Total.Append("</body>")
Total.Append("</html>")
WebBrowser1.DocumentText = Total.ToString()
End Sub
End Class
