MESCIUS SPREAD for Windows Forms 15.0J > 開発者ガイド > ヘッダ > シートコーナー > テキスト表示 |
シートコーナーのセルに、次の図のようにテキストを表示できます。
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; } |
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 |