FarPoint.Web.Spread.Appearance appr = new FarPoint.Web.Spread.Appearance();
FarPoint.Web.Spread.Appearance appr1 = new FarPoint.Web.Spread.Appearance();
FarPoint.Web.Spread.Cell acell;
appr.BackColor=Color.Red;
appr.ForeColor=Color.White;
appr.Font.Bold=True;
appr.HorizontalAlign=HorizontalAlign.Right;
appr.VerticalAlign=VerticalAlign.Top;
appr1.Copy(appr);
acell=FpSpread1.Cells[0,0];
acell.BackColor=appr1.BackColor;
acell.ForeColor=appr1.ForeColor;
acell.Font.Bold=appr1.Font.Bold;
acell.HorizontalAlign=appr1.HorizontalAlign;
acell.VerticalAlign=appr1.VerticalAlign;
FpSpread1.ActiveSheetView.SetValue(0,0,"AppearanceTest");
FpSpread1.Columns[0].Width=150;
FpSpread1.Rows[0].Height=60;
bool bl;
bl=appr.IsDefined(FarPoint.Web.Spread.AppearanceProperty.BackColor);
TextBox1.Text=Convert.ToString(bl);
Dim appr As New FarPoint.Web.Spread.Appearance()
Dim appr1 As New FarPoint.Web.Spread.Appearance()
appr.BackColor=Color.Red
appr.ForeColor=Color.White
appr.Font.Bold=True
appr.HorizontalAlign=HorizontalAlign.Right
appr.VerticalAlign=VerticalAlign.Top
appr1.Copy(appr)
Dim acell As FarPoint.Web.Spread.Cell
acell=FpSpread1.Cells(0,0)
acell.BackColor=appr1.BackColor
acell.ForeColor=appr1.ForeColor
acell.Font.Bold=appr1.Font.Bold
acell.HorizontalAlign=appr1.HorizontalAlign
acell.VerticalAlign=appr1.VerticalAlign
FpSpread1.ActiveSheetView.SetValue(0,0,"AppearanceTest")
FpSpread1.Columns(0).Width=150
FpSpread1.Rows(0).Height=60
Dim prop As FarPoint.Web.Spread.AppearanceProperty
Dim bl As Boolean
bl=appr.IsDefined(prop.BackColor)
TextBox1.Text=bl