tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑


どうもありがとです。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。