タイトル : Re^2: スプレッドの左上の空間 投稿日 : 2007/02/02(Fri) 08:53 投稿者 : フウセンウナギ
> > VB2005ではヘッダのテキストは > > sp.Activesheet.SetColumnLabel(0,0,"列1") > > sp.Activesheet.SetRowLabel(0,0,"行1") > > で指定するのですが、上記の空間のみうまくできません。 > > 私は、もっていないので知りませんが、下記はご覧になられましたか? > http://www.grapecity.com/Japan/Support/Search/FaqContent.asp?id=22612 > > Activesheet.SetRowLabel で検索してもこの質問しかヒットしないが? ヘルプの見方がよく分からなかったのですが、「よくある質問」という項目で なんとか見つかりました。 以下が内容です。 ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓ 左上ヘッダのスタイル情報はSheetViewクラスのSheetCornerStyleプロパティにて取得/設定することが出来ます。この場合は標準型セルを継承したカスタムセルクラスを作成し、PaintCellメソッドをオーバーライドしてセルの描画を独自に行う必要があります。 ◎サンプルコード(VB) '【フォーム上の記述】 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim myCorner As New cornerCell myCorner.Value = "No" FpSpread1.ActiveSheet.SheetCornerStyle.CellType = myCorner End Sub '【カスタムセルクラスの記述】 <Serializable()> Public Class cornerCell Inherits FarPoint.Win.Spread.CellType.GeneralCellType Private m_value As String 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, m_value, isSelected, isLocked, zoomFactor) End Sub Public Property Value() As String Get Return m_value End Get Set(ByVal Value As String) m_value = Value End Set End Property End Class ↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑ どうもありがとです。 |