FarPoint.Web.Spread Assembly > FarPoint.Web.Spread Namespace > Appearance Class : Clone Method |
'Declaration Public Overridable Function Clone() As Object
'Usage Dim instance As Appearance Dim value As Object value = instance.Clone()
public virtual object Clone()
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 = appr.Clone(); 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, "Appearance Test"); FpSpread1.Columns[0].Width = 150; FpSpread1.Rows[0].Height = 60;
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 = appr.Clone() 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, "Appearance Test") FpSpread1.Columns(0).Width = 150 FpSpread1.Rows(0).Height = 60
Target Platforms: Windows 7, Windows 8, Windows Vista, Windows Server 2000, Windows 2000 Professional, Windows XP Professional, Windows NT 4.0 Workstation, SP6, Windows NT 4.0 Server, SP6