protected void Page_Load(object sender, EventArgs e)
{
if (IsPostBack) return;
FpSpread1.Sheets[0].RowCount = 4;
FpSpread1.Sheets[0].Cells[0, 0].Value = 2;
FpSpread1.Sheets[0].Cells[1, 0].Value = -1;
FpSpread1.Sheets[0].Cells[3, 0].Value = 3;
FarPoint.Web.Spread.DatabarConditionalFormattingRule dataBarRule = new FarPoint.Web.Spread.DatabarConditionalFormattingRule();
dataBarRule.AxisPosition = FarPoint.Web.Spread.DataBarAxisPosition.Automatic;
dataBarRule.BorderColor = System.Drawing.Color.Blue;
dataBarRule.NegativeFillColor = System.Drawing.Color.Red;
dataBarRule.Gradient = true;
dataBarRule.Maximum = new FarPoint.Web.Spread.ConditionalFormattingValue(FarPoint.Web.Spread.ConditionalFormattingValueType.AutoMax);
dataBarRule.Minimum = new FarPoint.Web.Spread.ConditionalFormattingValue(FarPoint.Web.Spread.ConditionalFormattingValueType.AutoMin);
dataBarRule.UseNegativeFillColor = true;
dataBarRule.UseNegativeBorderColor = false;
FarPoint.Web.Spread.ConditionalFormatting cf = new FarPoint.Web.Spread.ConditionalFormatting(new FarPoint.Web.Spread.Model.CellRange(0, 0, 4, 1));
cf.Add(dataBarRule);
FpSpread1.ActiveSheetView.ConditionalFormatting.Add(cf);
}
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If IsPostBack Then Return
FpSpread1.Sheets(0).RowCount = 4
FpSpread1.Sheets(0).Cells(0, 0).Value = 2
FpSpread1.Sheets(0).Cells(1, 0).Value = -1
FpSpread1.Sheets(0).Cells(3, 0).Value = 3
Dim dataBarRule As New FarPoint.Web.Spread.DatabarConditionalFormattingRule()
dataBarRule.AxisPosition = FarPoint.Web.Spread.DataBarAxisPosition.Automatic
dataBarRule.BorderColor = Drawing.Color.Blue
dataBarRule.NegativeFillColor = Drawing.Color.Red
dataBarRule.Gradient = True
dataBarRule.Maximum = New FarPoint.Web.Spread.ConditionalFormattingValue(FarPoint.Web.Spread.ConditionalFormattingValueType.AutoMax)
dataBarRule.Minimum = New FarPoint.Web.Spread.ConditionalFormattingValue(FarPoint.Web.Spread.ConditionalFormattingValueType.AutoMin)
dataBarRule.UseNegativeFillColor = True
dataBarRule.UseNegativeBorderColor = False
Dim cf As New FarPoint.Web.Spread.ConditionalFormatting(New FarPoint.Web.Spread.Model.CellRange(0, 0, 4, 1))
cf.Add(dataBarRule)
FpSpread1.ActiveSheetView.ConditionalFormatting.Add(cf)
End Sub