PROWAREtech
ASP.NET: Bar Graph Control
A custom server control example (.NET Framework).
Example custom ASP.NET server control -- this can be used as a learning tool for creating custom server controls. Copy this code into a source file named C:\Bargraph.vb (or Bargraph.cs). Make sure it is located in the ASP.NET server's C:\ directory or if not wanting to compile this source, dowload the compiled library here: BARGRAPH.zip
See the example at the bottom of this page.
//Bargraph.cs
using System;
using System.ComponentModel;
using System.Security.Permissions;
using System.Web;
using System.Web.UI;
using System.Web.UI.HtmlControls;
[assembly: TagPrefix("prowaretech.Bargraph.Controls", "abc")]
namespace prowaretech.Bargraph.Controls
{
[AspNetHostingPermission(SecurityAction.Demand, Level = AspNetHostingPermissionLevel.Minimal), AspNetHostingPermission(SecurityAction.InheritanceDemand, Level = AspNetHostingPermissionLevel.Minimal), DefaultProperty("Text"), ToolboxData("<{0}:BargraphVertical ID=\"BargraphID\" ForeColor=\"Black\" MaxBarHeight=\"100\" " + "BarWidth=\"50\" runat=\"server\"></{0}:BargraphVertical>")]
public class BargraphVertical : Control
{
private class Bar
{
public double Value;
public string Text;
public string Color;
public string Format;
public Bar NextBar;
public Bar(double Value, string Text, string Color, string Format)
{
this.Value = Value;
this.Text = Text;
this.Color = Color;
this.Format = Format;
}
}
private Bar _bar;
private Bar _last;
private double _max;
private HtmlTable _table;
private string _forecolor;
private string _backcolor;
private string _headerforecolor;
private string _headerbackcolor;
private string _border;
private int _barheight = 100;
private int _barwidth = 50;
private string _text;
[Bindable(true), Category("Appearance"), Description("The bargraph header text."), Localizable(true)]
public string Text
{
get { return _text; }
set { _text = value; }
}
[Browsable(true), Category("Appearance"), Description("The bargraph border.")]
public string Border
{
get { return _border; }
set { _border = value; }
}
[Browsable(true), Category("Appearance"), Description("The bargraph header back color.")]
public string HeaderBackColor
{
get { return _headerbackcolor; }
set { _headerbackcolor = value; }
}
[Browsable(true), Category("Appearance"), Description("The bargraph header fore color.")]
public string HeaderForeColor
{
get { return _headerforecolor; }
set { _headerforecolor = value; }
}
[Browsable(true), Category("Appearance"), Description("The bargraph text color.")]
public string ForeColor
{
get { return _forecolor; }
set { _forecolor = value; }
}
[Browsable(true), Category("Appearance"), Description("The bargraph back color.")]
public string BackColor
{
get { return _backcolor; }
set { _backcolor = value; }
}
[Browsable(true), Category("Appearance"), DefaultValue(100), Description("The maximum possible bar height.")]
public int MaxBarHeight
{
get { return _barheight; }
set { _barheight = value; }
}
[Browsable(true), Category("Appearance"), DefaultValue(50), Description("The width of each bar.")]
public int BarWidth
{
get { return _barwidth; }
set { _barwidth = value; }
}
public void Add(double Value, string Text, string Color, string Format)
{
if (_bar == null)
{
_bar = new Bar(Value, Text, Color, Format);
_last = _bar;
_max = Value;
}
else
{
_last.NextBar = new Bar(Value, Text, Color, Format);
_last = _last.NextBar;
if (Value > _max)
{
_max = Value;
}
}
}
protected override void CreateChildControls()
{
base.CreateChildControls();
double FACTOR = (_max == 0 ? 0 : (_barheight / _max));
HtmlTableRow row = default(HtmlTableRow);
HtmlTableCell cell = default(HtmlTableCell);
_table = new HtmlTable();
base.Controls.Add(_table);
_table.CellPadding = 0;
_table.CellSpacing = 1;
if ((_backcolor != null))
_table.Style.Add("background-color", _backcolor);
if ((_border != null))
_table.Style.Add("border", _border);
row = new HtmlTableRow();
_table.Rows.Add(row);
cell = new HtmlTableCell();
row.Cells.Add(cell);
if ((_text != null))
{
cell.Style.Add("text-align", "center");
cell.Style.Add("color", _headerforecolor);
cell.Style.Add("background-color", _headerbackcolor);
cell.InnerHtml = _text;
}
row = new HtmlTableRow();
_table.Rows.Add(row);
cell = new HtmlTableCell();
row.Cells.Add(cell);
_table = new HtmlTable();
cell.Controls.Add(_table);
_table.CellPadding = 0;
_table.CellSpacing = 1;
row = new HtmlTableRow();
_table.Rows.Add(row);
Bar nextb = _bar;
while ((nextb != null))
{
cell = new HtmlTableCell();
cell.Style.Add("vertical-align", "bottom");
HtmlTable tbl = new HtmlTable();
HtmlTableRow tr = default(HtmlTableRow);
HtmlTableCell td = default(HtmlTableCell);
tbl.CellPadding = 0;
tbl.CellSpacing = 0;
tr = new HtmlTableRow();
tbl.Rows.Add(tr);
td = new HtmlTableCell();
td.Style.Add("text-align", "center");
td.Style.Add("color", _forecolor);
td.InnerHtml = string.Format(nextb.Format, nextb.Value);
tr.Cells.Add(td);
tr = new HtmlTableRow();
tbl.Rows.Add(tr);
td = new HtmlTableCell();
tr.Cells.Add(td);
HtmlTable tbl2 = new HtmlTable();
tbl2.CellPadding = 0;
tbl2.CellSpacing = 0;
tbl2.Style.Add("height", Math.Round(nextb.Value * FACTOR) + "px");
tbl2.Style.Add("width", _barwidth + "px");
tbl2.Style.Add("border", "solid 1px " + nextb.Color);
tbl2.Style.Add("background-color", nextb.Color);
tr = new HtmlTableRow();
tr.Cells.Add(new HtmlTableCell());
tbl2.Rows.Add(tr);
td.Controls.Add(tbl2);
tr = new HtmlTableRow();
tbl.Rows.Add(tr);
td = new HtmlTableCell();
tr.Cells.Add(td);
td.Style.Add("text-align", "center");
td.Style.Add("color", _forecolor);
td.InnerHtml = nextb.Text;
cell.Controls.Add(tbl);
row.Cells.Add(cell);
nextb = nextb.NextBar;
}
}
}
[AspNetHostingPermission(SecurityAction.Demand, Level = AspNetHostingPermissionLevel.Minimal), AspNetHostingPermission(SecurityAction.InheritanceDemand, Level = AspNetHostingPermissionLevel.Minimal), DefaultProperty("Text"), ToolboxData("<{0}:BargraphHorizontal ID=\"BargraphID\" ForeColor=\"Black\" BarHeight=\"25\" " + "MaxBarWidth=\"100\" runat=\"server\"></{0}:BargraphHorizontal>")]
public class BargraphHorizontal : Control
{
private class Bar
{
public double Value;
public string Text;
public string Color;
public string Format;
public Bar NextBar;
public Bar(double Value, string Text, string Color, string Format)
{
this.Value = Value;
this.Text = Text;
this.Color = Color;
this.Format = Format;
}
}
private Bar _bar;
private Bar _last;
private double _max;
private HtmlTable _table;
private string _forecolor;
private string _backcolor;
private string _headerforecolor;
private string _headerbackcolor;
private string _border;
private int _barheight = 25;
private int _barwidth = 100;
private string _text;
[Bindable(true), Category("Appearance"), Description("The bargraph header."), Localizable(true)]
public string Text
{
get { return _text; }
set { _text = value; }
}
[Browsable(true), Category("Appearance"), Description("The bargraph border.")]
public string Border
{
get { return _border; }
set { _border = value; }
}
[Browsable(true), Category("Appearance"), Description("The bargraph header back color.")]
public string HeaderBackColor
{
get { return _headerbackcolor; }
set { _headerbackcolor = value; }
}
[Browsable(true), Category("Appearance"), Description("The bargraph header fore color.")]
public string HeaderForeColor
{
get { return _headerforecolor; }
set { _headerforecolor = value; }
}
[Browsable(true), Category("Appearance"), Description("The bargraph text color.")]
public string ForeColor
{
get { return _forecolor; }
set { _forecolor = value; }
}
[Browsable(true), Category("Appearance"), Description("The bargraph back color.")]
public string BackColor
{
get { return _backcolor; }
set { _backcolor = value; }
}
[Browsable(true), Category("Appearance"), DefaultValue(25), Description("The height of each bar.")]
public int BarHeight
{
get { return _barheight; }
set { _barheight = value; }
}
[Browsable(true), Category("Appearance"), DefaultValue(100), Description("The maximum possible bar width.")]
public int MaxBarWidth
{
get { return _barwidth; }
set { _barwidth = value; }
}
public void Add(double Value, string Text, string Color, string Format)
{
if (_bar == null)
{
_bar = new Bar(Value, Text, Color, Format);
_last = _bar;
_max = Value;
}
else
{
_last.NextBar = new Bar(Value, Text, Color, Format);
_last = _last.NextBar;
if (Value > _max)
{
_max = Value;
}
}
}
protected override void CreateChildControls()
{
base.CreateChildControls();
double FACTOR = (_max == 0 ? 0 : (_barwidth / _max));
HtmlTableRow row = default(HtmlTableRow);
HtmlTableCell cell = default(HtmlTableCell);
_table = new HtmlTable();
base.Controls.Add(_table);
_table.CellPadding = 0;
_table.CellSpacing = 1;
if ((_backcolor != null))
_table.Style.Add("background-color", _backcolor);
if ((_border != null))
_table.Style.Add("border", _border);
row = new HtmlTableRow();
_table.Rows.Add(row);
cell = new HtmlTableCell();
row.Cells.Add(cell);
if ((_text != null))
{
cell.Style.Add("text-align", "center");
cell.Style.Add("color", _headerforecolor);
cell.Style.Add("background-color", _headerbackcolor);
cell.InnerHtml = _text;
}
row = new HtmlTableRow();
_table.Rows.Add(row);
cell = new HtmlTableCell();
row.Cells.Add(cell);
_table = new HtmlTable();
cell.Controls.Add(_table);
_table.CellPadding = 0;
_table.CellSpacing = 1;
Bar nextb = _bar;
while ((nextb != null))
{
HtmlTable tbl = default(HtmlTable);
HtmlTableRow tr = default(HtmlTableRow);
HtmlTableCell td = default(HtmlTableCell);
row = new HtmlTableRow();
_table.Rows.Add(row);
cell = new HtmlTableCell();
row.Cells.Add(cell);
cell.Style.Add("text-align", "right");
cell.Style.Add("vertical-align", "middle");
cell.Style.Add("white-space", "nowrap");
cell.Style.Add("color", _forecolor);
cell.InnerHtml = nextb.Text;
cell = new HtmlTableCell();
row.Cells.Add(cell);
cell.Style.Add("text-align", "left");
cell.Style.Add("vertical-align", "middle");
tbl = new HtmlTable();
cell.Controls.Add(tbl);
tbl.CellPadding = 0;
tbl.CellSpacing = 0;
row = new HtmlTableRow();
tbl.Rows.Add(row);
td = new HtmlTableCell();
row.Cells.Add(td);
td.Style.Add("text-align", "left");
td.Style.Add("vertical-align", "middle");
HtmlTable tbl2 = new HtmlTable();
td.Controls.Add(tbl2);
tbl2.CellPadding = 0;
tbl2.CellSpacing = 0;
tbl2.Style.Add("width", Math.Round(nextb.Value * FACTOR) + "px");
tbl2.Style.Add("height", _barheight + "px");
tbl2.Style.Add("border", "solid 1px " + nextb.Color);
tbl2.Style.Add("background-color", nextb.Color);
tr = new HtmlTableRow();
tbl2.Rows.Add(tr);
tr.Cells.Add(new HtmlTableCell());
td = new HtmlTableCell();
row.Cells.Add(td);
td.Style.Add("text-align", "left");
td.Style.Add("vertical-align", "middle");
td.Style.Add("white-space", "nowrap");
td.Style.Add("color", _forecolor);
td.InnerHtml = " " + string.Format(nextb.Format, nextb.Value);
nextb = nextb.NextBar;
}
}
}
}
'Bargraph.vb
Imports System
Imports System.ComponentModel
Imports System.Security.Permissions
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
<Assembly: TagPrefix("prowaretech.Bargraph.Controls", "abc")>
Namespace prowaretech.Bargraph.Controls
< _
AspNetHostingPermission(SecurityAction.Demand, _
Level:=AspNetHostingPermissionLevel.Minimal), _
AspNetHostingPermission(SecurityAction.InheritanceDemand, _
Level:=AspNetHostingPermissionLevel.Minimal), _
DefaultProperty("Text"), _
ToolboxData("<{0}:BargraphVertical ID=""BargraphID"" ForeColor=""Black"" MaxBarHeight=""100"" " & _
"BarWidth=""50"" runat=""server""></{0}:BargraphVertical>") _
> _
Public Class BargraphVertical
Inherits Control
Private Class Bar
Public Value As Double
Public Text As String
Public Color As String
Public Format As String
Public NextBar As Bar
Public Sub New(ByVal Value As Double, ByVal Text As String, ByVal Color As String, _
ByVal Format As String)
Me.Value = Value
Me.Text = Text
Me.Color = Color
Me.Format = Format
End Sub
End Class
Private _bar As Bar
Private _last As Bar
Private _max As Double
Private _table As HtmlTable
Private _forecolor As String
Private _backcolor As String
Private _headerforecolor As String
Private _headerbackcolor As String
Private _border As String
Private _barheight As Integer = 100
Private _barwidth As Integer = 50
Private _text As String
<Bindable(True), Category("Appearance"), _
Description("The bargraph header text."), _
Localizable(True) _
> _
Public Property Text() As String
Get
Return _text
End Get
Set(ByVal Value As String)
_text = Value
End Set
End Property
<Browsable(True), Category("Appearance"), _
Description("The bargraph border.")> _
Public Property Border() As String
Get
Return _border
End Get
Set(ByVal Value As String)
_border = Value
End Set
End Property
<Browsable(True), Category("Appearance"), _
Description("The bargraph header back color.")> _
Public Property HeaderBackColor() As String
Get
Return _headerbackcolor
End Get
Set(ByVal Value As String)
_headerbackcolor = Value
End Set
End Property
<Browsable(True), Category("Appearance"), _
Description("The bargraph header fore color.")> _
Public Property HeaderForeColor() As String
Get
Return _headerforecolor
End Get
Set(ByVal Value As String)
_headerforecolor = Value
End Set
End Property
<Browsable(True), Category("Appearance"), _
Description("The bargraph text color.")> _
Public Property ForeColor() As String
Get
Return _forecolor
End Get
Set(ByVal Value As String)
_forecolor = Value
End Set
End Property
<Browsable(True), Category("Appearance"), _
Description("The bargraph back color.")> _
Public Property BackColor() As String
Get
Return _backcolor
End Get
Set(ByVal Value As String)
_backcolor = Value
End Set
End Property
<Browsable(True), Category("Appearance"), _
DefaultValue(100), _
Description("The maximum possible bar height.")> _
Public Property MaxBarHeight() As Integer
Get
Return _barheight
End Get
Set(ByVal Value As Integer)
_barheight = Value
End Set
End Property
<Browsable(True), Category("Appearance"), _
DefaultValue(50), _
Description("The width of each bar.")> _
Public Property BarWidth() As Integer
Get
Return _barwidth
End Get
Set(ByVal Value As Integer)
_barwidth = Value
End Set
End Property
Public Sub Add(ByVal Value As Double, ByVal Text As String, ByVal Color As String, _
ByVal Format As String)
If _bar Is Nothing Then
_bar = New Bar(Value, Text, Color, Format)
_last = _bar
_max = Value
Else
_last.NextBar = New Bar(Value, Text, Color, Format)
_last = _last.NextBar
If Value > _max Then
_max = Value
End If
End If
End Sub
Protected Overrides Sub CreateChildControls()
MyBase.CreateChildControls()
Dim FACTOR As Double = IIf(_max = 0, 0, (_barheight / _max))
Dim row As HtmlTableRow
Dim cell As HtmlTableCell
_table = New HtmlTable
Controls.Add(_table)
_table.CellPadding = 0
_table.CellSpacing = 1
If Not _backcolor Is Nothing Then _table.Style.Add("background-color", _backcolor)
If Not _border Is Nothing Then _table.Style.Add("border", _border)
row = New HtmlTableRow
_table.Rows.Add(row)
cell = New HtmlTableCell
row.Cells.Add(cell)
If Not _text Is Nothing Then
cell.Style.Add("text-align", "center")
cell.Style.Add("color", _headerforecolor)
cell.Style.Add("background-color", _headerbackcolor)
cell.InnerHtml = _text
End If
row = New HtmlTableRow
_table.Rows.Add(row)
cell = New HtmlTableCell
row.Cells.Add(cell)
_table = New HtmlTable
cell.Controls.Add(_table)
_table.CellPadding = 0
_table.CellSpacing = 1
row = New HtmlTableRow
_table.Rows.Add(row)
Dim nextb As Bar = _bar
While Not nextb Is Nothing
cell = New HtmlTableCell
cell.Style.Add("vertical-align", "bottom")
Dim tbl As New HtmlTable
Dim tr As HtmlTableRow
Dim td As HtmlTableCell
tbl.CellPadding = 0
tbl.CellSpacing = 0
tr = New HtmlTableRow
tbl.Rows.Add(tr)
td = New HtmlTableCell
td.Style.Add("text-align", "center")
td.Style.Add("color", _forecolor)
td.InnerHtml = String.Format(nextb.Format, nextb.Value)
tr.Cells.Add(td)
tr = New HtmlTableRow
tbl.Rows.Add(tr)
td = New HtmlTableCell
tr.Cells.Add(td)
Dim tbl2 As New HtmlTable
tbl2.CellPadding = 0
tbl2.CellSpacing = 0
tbl2.Style.Add("height", Math.Round(nextb.Value * FACTOR) & "px")
tbl2.Style.Add("width", _barwidth & "px")
tbl2.Style.Add("border", "solid 1px " & nextb.Color)
tbl2.Style.Add("background-color", nextb.Color)
tr = New HtmlTableRow
tr.Cells.Add(New HtmlTableCell)
tbl2.Rows.Add(tr)
td.Controls.Add(tbl2)
tr = New HtmlTableRow
tbl.Rows.Add(tr)
td = New HtmlTableCell
tr.Cells.Add(td)
td.Style.Add("text-align", "center")
td.Style.Add("color", _forecolor)
td.InnerHtml = nextb.Text
cell.Controls.Add(tbl)
row.Cells.Add(cell)
nextb = nextb.NextBar
End While
End Sub
End Class
< _
AspNetHostingPermission(SecurityAction.Demand, _
Level:=AspNetHostingPermissionLevel.Minimal), _
AspNetHostingPermission(SecurityAction.InheritanceDemand, _
Level:=AspNetHostingPermissionLevel.Minimal), _
DefaultProperty("Text"), _
ToolboxData("<{0}:BargraphHorizontal ID=""BargraphID"" ForeColor=""Black"" BarHeight=""25"" " & _
"MaxBarWidth=""100"" runat=""server""></{0}:BargraphHorizontal>") _
> _
Public Class BargraphHorizontal
Inherits Control
Private Class Bar
Public Value As Double
Public Text As String
Public Color As String
Public Format As String
Public NextBar As Bar
Public Sub New(ByVal Value As Double, ByVal Text As String, ByVal Color As String, _
ByVal Format As String)
Me.Value = Value
Me.Text = Text
Me.Color = Color
Me.Format = Format
End Sub
End Class
Private _bar As Bar
Private _last As Bar
Private _max As Double
Private _table As HtmlTable
Private _forecolor As String
Private _backcolor As String
Private _headerforecolor As String
Private _headerbackcolor As String
Private _border As String
Private _barheight As Integer = 25
Private _barwidth As Integer = 100
Private _text As String
<Bindable(True), Category("Appearance"), _
Description("The bargraph header."), _
Localizable(True) _
> _
Public Property Text() As String
Get
Return _text
End Get
Set(ByVal Value As String)
_text = Value
End Set
End Property
<Browsable(True), Category("Appearance"), _
Description("The bargraph border.")> _
Public Property Border() As String
Get
Return _border
End Get
Set(ByVal Value As String)
_border = Value
End Set
End Property
<Browsable(True), Category("Appearance"), _
Description("The bargraph header back color.")> _
Public Property HeaderBackColor() As String
Get
Return _headerbackcolor
End Get
Set(ByVal Value As String)
_headerbackcolor = Value
End Set
End Property
<Browsable(True), Category("Appearance"), _
Description("The bargraph header fore color.")> _
Public Property HeaderForeColor() As String
Get
Return _headerforecolor
End Get
Set(ByVal Value As String)
_headerforecolor = Value
End Set
End Property
<Browsable(True), Category("Appearance"), _
Description("The bargraph text color.")> _
Public Property ForeColor() As String
Get
Return _forecolor
End Get
Set(ByVal Value As String)
_forecolor = Value
End Set
End Property
<Browsable(True), Category("Appearance"), _
Description("The bargraph back color.")> _
Public Property BackColor() As String
Get
Return _backcolor
End Get
Set(ByVal Value As String)
_backcolor = Value
End Set
End Property
<Browsable(True), Category("Appearance"), _
DefaultValue(25), _
Description("The height of each bar.")> _
Public Property BarHeight() As Integer
Get
Return _barheight
End Get
Set(ByVal Value As Integer)
_barheight = Value
End Set
End Property
<Browsable(True), Category("Appearance"), _
DefaultValue(100), _
Description("The maximum possible bar width.")> _
Public Property MaxBarWidth() As Integer
Get
Return _barwidth
End Get
Set(ByVal Value As Integer)
_barwidth = Value
End Set
End Property
Public Sub Add(ByVal Value As Double, ByVal Text As String, ByVal Color As String, _
ByVal Format As String)
If _bar Is Nothing Then
_bar = New Bar(Value, Text, Color, Format)
_last = _bar
_max = Value
Else
_last.NextBar = New Bar(Value, Text, Color, Format)
_last = _last.NextBar
If Value > _max Then
_max = Value
End If
End If
End Sub
Protected Overrides Sub CreateChildControls()
MyBase.CreateChildControls()
Dim FACTOR As Double = IIf(_max = 0, 0, (_barwidth / _max))
Dim row As HtmlTableRow
Dim cell As HtmlTableCell
_table = New HtmlTable
Controls.Add(_table)
_table.CellPadding = 0
_table.CellSpacing = 1
If Not _backcolor Is Nothing Then _table.Style.Add("background-color", _backcolor)
If Not _border Is Nothing Then _table.Style.Add("border", _border)
row = New HtmlTableRow
_table.Rows.Add(row)
cell = New HtmlTableCell
row.Cells.Add(cell)
If Not _text Is Nothing Then
cell.Style.Add("text-align", "center")
cell.Style.Add("color", _headerforecolor)
cell.Style.Add("background-color", _headerbackcolor)
cell.InnerHtml = _text
End If
row = New HtmlTableRow
_table.Rows.Add(row)
cell = New HtmlTableCell
row.Cells.Add(cell)
_table = New HtmlTable
cell.Controls.Add(_table)
_table.CellPadding = 0
_table.CellSpacing = 1
Dim nextb As Bar = _bar
While Not nextb Is Nothing
Dim tbl As HtmlTable
Dim tr As HtmlTableRow
Dim td As HtmlTableCell
row = New HtmlTableRow
_table.Rows.Add(row)
cell = New HtmlTableCell
row.Cells.Add(cell)
cell.Style.Add("text-align", "right")
cell.Style.Add("vertical-align", "middle")
cell.Style.Add("white-space", "nowrap")
cell.Style.Add("color", _forecolor)
cell.InnerHtml = nextb.Text
cell = New HtmlTableCell
row.Cells.Add(cell)
cell.Style.Add("text-align", "left")
cell.Style.Add("vertical-align", "middle")
tbl = New HtmlTable
cell.Controls.Add(tbl)
tbl.CellPadding = 0
tbl.CellSpacing = 0
row = New HtmlTableRow
tbl.Rows.Add(row)
td = New HtmlTableCell
row.Cells.Add(td)
td.Style.Add("text-align", "left")
td.Style.Add("vertical-align", "middle")
Dim tbl2 As New HtmlTable
td.Controls.Add(tbl2)
tbl2.CellPadding = 0
tbl2.CellSpacing = 0
tbl2.Style.Add("width", Math.Round(nextb.Value * FACTOR) & "px")
tbl2.Style.Add("height", _barheight & "px")
tbl2.Style.Add("border", "solid 1px " & nextb.Color)
tbl2.Style.Add("background-color", nextb.Color)
tr = New HtmlTableRow
tbl2.Rows.Add(tr)
tr.Cells.Add(New HtmlTableCell)
td = New HtmlTableCell
row.Cells.Add(td)
td.Style.Add("text-align", "left")
td.Style.Add("vertical-align", "middle")
td.Style.Add("white-space", "nowrap")
td.Style.Add("color", _forecolor)
td.InnerHtml = " " & String.Format(nextb.Format, nextb.Value)
nextb = nextb.NextBar
End While
End Sub
End Class
End NamespaceFrom the server, open a command window and change directory to
C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727
then execute
vbc.exe /t:library /out:C:\Bargraph.dll /r:System.dll,System.Web.dll C:\Bargraph.vb
Make sure you have proper rights in C:\. Copy the compiled assembly, C:\Bargraph.dll, to the website's \bin folder. Create a bin folder if needed. Create a new .aspx file in the website's directory and paste the following code into it:
<%@ Page Language="VB" %>
<%@ Register TagPrefix="abc" Namespace="prowaretech.Bargraph.Controls" Assembly="Bargraph" %>
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
BargraphVertical1.Add(2500, "Aug", "Green", "{0}")
BargraphVertical1.Add(5000, "Sept", "Green", "{0}")
BargraphVertical1.Add(10000, "Nov", "Green", "{0}")
BargraphVertical1.Add(100, "Dec", "Green", "{0}")
BargraphVertical2.Add(5435.99, "Newport", "#990000", "{0:c}")
BargraphVertical2.Add(9005.45, "NYC", "#990000", "{0:c}")
BargraphVertical2.Add(6060.55, "Springfield", "#990000", "{0:c}")
BargraphVertical2.Add(707.12, "Austin", "#990000", "{0:c}")
BargraphVertical2.Add(250.2, "San Diego", "#990000", "{0:c}")
BargraphVertical3.Add(0.101, "2008", "#6666FF", "{0}")
BargraphVertical3.Add(0.998, "2008", "Navy", "{0}")
BargraphVertical3.Add(0.137, "2009", "#6666FF", "{0}")
BargraphVertical3.Add(0.877, "2009", "Navy", "{0}")
BargraphVertical3.Add(0.259, "2010", "#6666FF", "{0}")
BargraphVertical3.Add(0.709, "2010", "Navy", "{0}")
BargraphHorizontal1.Add(0.101, "2008", "#6666FF", "{0}")
BargraphHorizontal1.Add(0.998, "2008", "Navy", "{0}")
BargraphHorizontal1.Add(0.137, "2009", "#6666FF", "{0}")
BargraphHorizontal1.Add(0.877, "2009", "Navy", "{0}")
BargraphHorizontal1.Add(0.259, "2010", "#6666FF", "{0}")
BargraphHorizontal1.Add(0.709, "2010", "Navy", "{0}")
BargraphHorizontal2.Add(1360160000, "China", "#FF77FF", "{0:0,0}")
BargraphHorizontal2.Add(1234390000, "India", "#EE66EE", "{0:0,0}")
BargraphHorizontal2.Add(316743000, "United States", "#DD55DD", "{0:0,0}")
BargraphHorizontal2.Add(237641326, "Indonesia", "#CC44CC", "{0:0,0}")
BargraphHorizontal2.Add(201032714, "Brazil", "#BB33BB", "{0:0,0}")
BargraphHorizontal2.Add(184351000, "Pakistan", "#AA22AA", "{0:0,0}")
BargraphHorizontal2.Add(173615000, "Nigeria", "#991199", "{0:0,0}")
BargraphHorizontal2.Add(152518015, "Bangladesh", "#880088", "{0:0,0}")
BargraphHorizontal2.Border = "Solid 1px Black"
End Sub
</script>
<html>
<head>
<title>Bargraph Custom Server Control</title>
</head>
<body>
<abc:BargraphVertical ID="BargraphVertical1" BarWidth="50" MaxBarHeight="100"
ForeColor="Blue" HeaderForeColor="White" HeaderBackColor="Navy" Text="Bargraph"
runat="server" BackColor="Wheat" Border="Solid 1px Maroon"></abc:BargraphVertical>
<hr />
<abc:BargraphVertical ID="BargraphVertical2" BarWidth="100" MaxBarHeight="300"
ForeColor="Black" runat="server" />
<hr />
<abc:BargraphVertical ID="BargraphVertical3" BarWidth="50" MaxBarHeight="200"
ForeColor="Maroon" runat="server" />
<hr />
<abc:BargraphHorizontal ID="BargraphHorizontal1" BarHeight="25" MaxBarWidth="200"
ForeColor="Maroon" runat="server" />
<hr />
<abc:BargraphHorizontal ID="BargraphHorizontal2" BarHeight="10" MaxBarWidth="400"
ForeColor="Gray" Text="Population By Country" HeaderForeColor="#333333" HeaderBackColor="Gray"
runat="server" />
</body>
</html><%@ Page Language="C#" %>
<%@ Register TagPrefix="abc" Namespace="prowaretech.Bargraph.Controls" Assembly="Bargraph" %>
<script runat="server">
void Page_Load(object sender, System.EventArgs e)
{
BargraphVertical1.Add(2500, "Aug", "Green", "{0}");
BargraphVertical1.Add(5000, "Sept", "Green", "{0}");
BargraphVertical1.Add(10000, "Nov", "Green", "{0}");
BargraphVertical1.Add(100, "Dec", "Green", "{0}");
BargraphVertical2.Add(5435.99, "Newport", "#990000", "{0:c}");
BargraphVertical2.Add(9005.45, "NYC", "#990000", "{0:c}");
BargraphVertical2.Add(6060.55, "Springfield", "#990000", "{0:c}");
BargraphVertical2.Add(707.12, "Austin", "#990000", "{0:c}");
BargraphVertical2.Add(250.2, "San Diego", "#990000", "{0:c}");
BargraphVertical3.Add(0.101, "2008", "#6666FF", "{0}");
BargraphVertical3.Add(0.998, "2008", "Navy", "{0}");
BargraphVertical3.Add(0.137, "2009", "#6666FF", "{0}");
BargraphVertical3.Add(0.877, "2009", "Navy", "{0}");
BargraphVertical3.Add(0.259, "2010", "#6666FF", "{0}");
BargraphVertical3.Add(0.709, "2010", "Navy", "{0}");
BargraphHorizontal1.Add(0.101, "2008", "#6666FF", "{0}");
BargraphHorizontal1.Add(0.998, "2008", "Navy", "{0}");
BargraphHorizontal1.Add(0.137, "2009", "#6666FF", "{0}");
BargraphHorizontal1.Add(0.877, "2009", "Navy", "{0}");
BargraphHorizontal1.Add(0.259, "2010", "#6666FF", "{0}");
BargraphHorizontal1.Add(0.709, "2010", "Navy", "{0}");
BargraphHorizontal2.Add(1360160000, "China", "#FF77FF", "{0:0,0}");
BargraphHorizontal2.Add(1234390000, "India", "#EE66EE", "{0:0,0}");
BargraphHorizontal2.Add(316743000, "United States", "#DD55DD", "{0:0,0}");
BargraphHorizontal2.Add(237641326, "Indonesia", "#CC44CC", "{0:0,0}");
BargraphHorizontal2.Add(201032714, "Brazil", "#BB33BB", "{0:0,0}");
BargraphHorizontal2.Add(184351000, "Pakistan", "#AA22AA", "{0:0,0}");
BargraphHorizontal2.Add(173615000, "Nigeria", "#991199", "{0:0,0}");
BargraphHorizontal2.Add(152518015, "Bangladesh", "#880088", "{0:0,0}");
BargraphHorizontal2.Border = "Solid 1px Black";
}
</script>
<html>
<head>
<title>Bargraph Custom Server Control</title>
</head>
<body>
<abc:BargraphVertical ID="BargraphVertical1" BarWidth="50" MaxBarHeight="100"
ForeColor="Blue" HeaderForeColor="White" HeaderBackColor="Navy" Text="Bargraph"
runat="server" BackColor="Wheat" Border="Solid 1px Maroon"></abc:BargraphVertical>
<hr />
<abc:BargraphVertical ID="BargraphVertical2" BarWidth="100" MaxBarHeight="300"
ForeColor="Black" runat="server" />
<hr />
<abc:BargraphVertical ID="BargraphVertical3" BarWidth="50" MaxBarHeight="200"
ForeColor="Maroon" runat="server" />
<hr />
<abc:BargraphHorizontal ID="BargraphHorizontal1" BarHeight="25" MaxBarWidth="200"
ForeColor="Maroon" runat="server" />
<hr />
<abc:BargraphHorizontal ID="BargraphHorizontal2" BarHeight="10" MaxBarWidth="400"
ForeColor="Gray" Text="Population By Country" HeaderForeColor="#333333" HeaderBackColor="Gray"
runat="server" />
</body>
</html>Comment
