|
Server : Apache/2.2.17 (Unix) mod_ssl/2.2.17 OpenSSL/0.9.8e-fips-rhel5 DAV/2 PHP/5.2.17 System : Linux localhost 2.6.18-419.el5 #1 SMP Fri Feb 24 22:47:42 UTC 2017 x86_64 User : nobody ( 99) PHP Version : 5.2.17 Disable Function : NONE Directory : /home/queenjbs/www/FusionChart/Code/VB_NET/FormBased/ |
Upload File : |
Imports InfoSoftGlobal
Imports System.Text
Partial Class FormBased_Chart
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strXML As StringBuilder = New StringBuilder()
Dim intSoups As String = Request.Form("TextBoxSoups")
Dim intSalads As String = Request("TextboxSalads")
Dim intSandwiches As String = Request("TextboxSandwiches")
Dim intBeverages As String = Request("TextboxBeverages")
Dim intDesserts As String = Request("TextboxDesserts")
strXML.Append("<chart caption='Sales by Product Category' subCaption='For this week' showPercentValues='1' pieSliceDepth='30' showBorder='1'>")
strXML.Append("<set label='Soups' value='" & intSoups & "' />")
strXML.Append("<set label='Salads' value='" & intSalads & "' />")
strXML.Append("<set label='Sandwiches' value='" & intSandwiches & "' />")
strXML.Append("<set label='Beverages' value='" & intBeverages & "' />")
strXML.Append("<set label='Desserts' value='" & intDesserts & "' />")
strXML.Append("</chart>")
Literal1.Text = FusionCharts.RenderChart("../FusionCharts/Pie3D.swf", "", strXML.ToString(), "chart1", "600", "400", False, True, False)
End Sub
End Class