| タイトル | ： Re^2: スプレッドの左上の空間 |
| 記事No | ： 4935 |
| 投稿日 | ： 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
↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
どうもありがとです。
|