tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルスプレッドの左上の空間
記事No4792
投稿日: 2007/01/12(Fri) 11:44
投稿者フウセンウナギ
WindowsXP SP2  VB2005  スプレッドシート.net 2.5

スプレッドシートを使ってデータを表示するのですが、行ヘッダと列ヘッダが交わる
一番左上の部分に文字を表示させることができません。
以前のVB6ならば、

sp.Col = 0
sp.Row = 0
sp.Text = "あたた"

という風にできました。

VB2005ではヘッダのテキストは
sp.Activesheet.SetColumnLabel(0,0,"列1")
sp.Activesheet.SetRowLabel(0,0,"行1")
で指定するのですが、上記の空間のみうまくできません。


正直どうでもいいようなことなのかもしれませんが、ご存知の方ご教授お願いします。

[ツリー表示へ]
タイトルRe: スプレッドの左上の空間
記事No4861
投稿日: 2007/01/19(Fri) 15:16
投稿者花ちゃん
> 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 で検索してもこの質問しかヒットしないが?

[ツリー表示へ]
タイトルRe^2: スプレッドの左上の空間
記事No4935
投稿日: 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

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


どうもありがとです。

[ツリー表示へ]