Copy メソッド (Appearance)

指定したAppearanceオブジェクトのプロパティを現在のオブジェクトにコピーします。

構文

Visual Basic
C#

'Declaration
 
Public Overridable Sub Copy( _
   ByVal obj As Object _
)

public virtual void Copy( 
   object obj
)

パラメータ

obj: コピーするAppearanceオブジェクト

例

この例では、２つのAppearanceオブジェクトと１つのCellオブジェクトを作成します。１番目のAppearanceオブジェクトにいくつかのプロパティを設定し、それらを２番目のインスタンスにコピーします。次に、２番目のAppearanceオブジェクトのプロパティをCellオブジェクトの対応するプロパティに適用します。その後、AppearanceオブジェクトのBackColorプロパティが定義されているかどうかを問い合わせ、結果をテキストボックスに返します。

C#
Visual Basic

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.SetCellValue(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.SetCellValue(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

参照

Appearance クラス
 Appearance メンバ