おやじプログラマー日記 : VB.NET：Spreadでデータ一覧表示を簡単に行う方法について

私自身、SPREADを使ってマスタメンテナンスのマスタデータの一覧を表示したり、各種データの一覧を行ったりしています。

SPREADコントロールのアクティブシートの「OperationMode」プロパティを「SingleSelect」に設定することで、 1行の選択が出来る様になります。選択された行はデフォルトでは薄い青色になり、選択されている状態がわかります。

SPREADコントロールの各種のプロパティの設定し、アクティブシートの設定を行った後でテストデータの一覧表示を行っています。

一覧表示の最後で、「AddSelection」により行選択を強制的に行っていますが、この処理が無いと、最初に一覧を表示した時に選択状態の表示にならないので注意が必要です。

尚、今回のソースでも「TextTipPolicy」プロパティを「Floating」に設定し、「TextTipFetch」イベントでチップテキストに任意のデータを表示される様にしています。

Imports FarPoint.Win Public Class Form1 'フォームロード時にSPREADの初期化 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'SPREADの設定 With Me.FpSpread1 'スクロールバーの設定 .HorizontalScrollBarPolicy = Spread.ScrollBarPolicy.AsNeeded .VerticalScrollBarPolicy = Spread.ScrollBarPolicy.AsNeeded '分割ボックスの設定 .ColumnSplitBoxPolicy = Spread.SplitBoxPolicy.Never .RowSplitBoxPolicy = Spread.SplitBoxPolicy.Never 'カーソル設定 .SetCursor(Spread.CursorType.Normal, Windows.Forms.Cursors.Arrow) .SetCursor(Spread.CursorType.LockedCell, Windows.Forms.Cursors.Arrow) 'TextTip表示指定 .TextTipPolicy = Spread.TextTipPolicy.Floating .TextTipDelay = 1 'セルがアクティブ時に編集モードにしない .EditModePermanent = False 'セルがアクティブ時に既存の内容を選択しない .EditModeReplace = False End With 'アクティブシートの設定 With Me.FpSpread1.ActiveSheet '選択状態 .SelectionStyle = Spread.SelectionStyles.SelectionRenderer '編集モードの設定 .OperationMode = Spread.OperationMode.SingleSelect '列のサイズ変更可、行のサイズ変更不可に設定する。 .Columns.Default.Resizable = True .Rows.Default.Resizable = False 'SPREADのアクティブシートのカラム数を３に設定 .ColumnCount = 3 'SPREADの行クリア .RowCount = 0 End With '一覧データ表示 Call Me.DisplayData() End Sub '一覧データ表示 Private Sub DisplayData() 'ソースが長くなるのでWith宣言 With Me.FpSpread1.ActiveSheet '描画を停止させる Me.FpSpread1.SuspendLayout() 'データの行数分の処理 For i As Integer = 0 To 999 '行数を増やす .RowCount += 1 '各セルへのデータ設定 .SetText(i, 0, "A" & i.ToString("000")) .SetText(i, 1, "B" & i.ToString("000")) 'Tagにチップテキストの設定 .SetTag(i, 1, "ZZZZZZZZZZZZZZZZZ" & i.ToString("000")) .SetText(i, 2, "C" & i.ToString("000")) Next End With '描画を再開させる Me.FpSpread1.ResumeLayout(True) '先頭行を選択設定(1行目が選択色になる) Me.FpSpread1.ActiveSheet.AddSelection(0, 0, 1, 1) End Sub 'TextTipFetchイベント Private Sub FpSpread1_TextTipFetch(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.TextTipFetchEventArgs) Handles FpSpread1.TextTipFetch 'カラムフッタ、カラムヘッダ、行ヘッダは処理しない If e.ColumnFooter Or e.ColumnHeader Or e.RowHeader Then Exit Sub End If If Not e.FetchCellNote Then '2番目のカラム?? If e.Column = 1 Then 'Tagに退避してある文字列 Dim text As String = e.View.GetSheetView().GetTag(e.Row, e.Column) 'チップウィンドウとして表示 e.ShowTip = True 'ポップアップヒントのテキスト設定 e.TipText = text End If End If End Sub End Class
下図は、フォーム表示後、2行目をクリックしてマウスをそのまま2カラム目に持っていった時の表示です。