テキスト表示

シートコーナーのセルに、次の図のようにテキストを表示できます。

テキストの表示

SheetCornerクラスのCellsプロパティを使用する方法、またはセル型を継承するクラスを作成し、PaintCellメソッドをオーバーライドする方法があります。

SheetCornerクラスを使用する方法については「シートコーナーのスタイル」を参照してください。

ここでは、標準型セルを表すGeneralCellTypeクラスを継承し、PaintCellメソッドをオーバーライドする方法について説明します。

設定方法

セル型を継承するクラスを作成し、セルの描画をオーバーライドします。テキストを設定して描画します。

サンプルコード

次のサンプルコードは、シートコーナーに「Text」と表示します。

C#	コードのコピー
public class CornerCell : FarPoint.Win.Spread.CellType.GeneralCellType { public override void PaintCell(Graphics g, Rectangle r, FarPoint.Win.Spread.Appearance appearance, object value, bool isSelected, bool isLocked, float zoomFactor) { base.PaintCell(g, r, appearance, "Text", isSelected, isLocked, zoomFactor); } } private void Form1_Load(object sender, System.EventArgs e) { CornerCell sctextcell = new CornerCell(); fpSpread1.Sheets[0].SheetCornerStyle.CellType = sctextcell; }

コードのコピー

public class CornerCell : FarPoint.Win.Spread.CellType.GeneralCellType
{
    public override void PaintCell(Graphics g, Rectangle r, FarPoint.Win.Spread.Appearance appearance, object value, bool isSelected, bool isLocked, float zoomFactor)
    {
        base.PaintCell(g, r, appearance, "Text", isSelected, isLocked, zoomFactor);
    }
}
private void Form1_Load(object sender, System.EventArgs e)
{
    CornerCell sctextcell = new CornerCell();
    fpSpread1.Sheets[0].SheetCornerStyle.CellType = sctextcell;
}

Visual Basic	コードのコピー
Public Class SheetCorner Inherits FarPoint.Win.Spread.CellType.GeneralCellType Public Overrides Sub PaintCell(ByVal g As System.Drawing.Graphics, ByVal r As System.Drawing.Rectangle, ByVal appearance As FarPoint.Win.Spread.Appearance, ByVal value As Object, ByVal isSelected As Boolean, ByVal isLocked As Boolean, ByVal zoomFactor As Single) MyBase.PaintCell(g, r, appearance, "Text", isSelected, isLocked, zoomFactor) End Sub End Class Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim sctextcell As New SheetCorner() FpSpread1.Sheets(0).SheetCornerStyle.CellType = sctextcell End Sub

Visual Basic

コードのコピー

Public Class SheetCorner
Inherits FarPoint.Win.Spread.CellType.GeneralCellType
    Public Overrides Sub PaintCell(ByVal g As System.Drawing.Graphics, ByVal r As System.Drawing.Rectangle, ByVal appearance As FarPoint.Win.Spread.Appearance, ByVal value As Object, ByVal isSelected As Boolean, ByVal isLocked As Boolean, ByVal zoomFactor As Single)
        MyBase.PaintCell(g, r, appearance, "Text", isSelected, isLocked, zoomFactor)
    End Sub
End Class
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim sctextcell As New SheetCorner()
    FpSpread1.Sheets(0).SheetCornerStyle.CellType = sctextcell
End Sub

参照