private void ChangeCellColor(FarPoint.Web.Spread.FpSpread s, FarPoint.Web.Spread.Cell c, FarPoint.Web.Spread.Appearance a) { s.ActiveSheetView.Cells[c.Row.Index, c.Column.Index].BackColor = a.BackColor; } FarPoint.Web.Spread.Appearance appr = new FarPoint.Web.Spread.Appearance(); appr.BackColor = Color.Red; FarPoint.Web.Spread.Cell c; c = FpSpread1.ActiveSheetView.Cells[1, 1]; ChangeCellColor(FpSpread1, c, appr);
Private Sub ChangeCellColor(ByVal s As FarPoint.Web.Spread.FpSpread, ByVal c As FarPoint.Web.Spread.Cell, ByVal a As FarPoint.Web.Spread.Appearance) s.ActiveSheetView.Cells(c.Row.Index, c.Column.Index).BackColor = a.BackColor End Sub Dim appr As New FarPoint.Web.Spread.Appearance appr.BackColor = Color.Red Dim c As FarPoint.Web.Spread.Cell c = FpSpread1.ActiveSheetView.Cells(1, 1) ChangeCellColor(FpSpread1, c, appr)