おやじプログラマー日記

SPREADのアクティブシートへのデータを設定する場合は一般的にアクティブシートのセルへ直接行います。
以下のソースは、フォームロード時にSPREADの初期化を行っています。 アクティブシートのカラム数を６に設定し、ヘッダ行数を０でクリア設定しています。

フォーム表示後、ボタンをクリックすると、 クリックイベント内で宣言された固定的なテストデータをSPREADに設定し表示させます。
データの1行分毎の処理で、「RowCount」プロパティを＋１して行を追加します。 行の追加した後で、６個のセルに対して別々の値を設定しています。

SPREADへの描画を早くする為に、行データを全て処理する前後で、「FpSpread1.SuspendLayout()」と 「FpSpread1.ResumeLayout(True)」を行います。これらではさまれた処理は描画がリアルタイムでは 反映されないので、描画が早くなります。
今回の例では１００００行のデータを設定しています。 この処理の時間はだいたい１４秒前後掛かりました。 （私のPCのOSはWindows7SP1で、CPUはCorei5の3.2GHzです）
Public Class Form1 'フォームロード時にSPREADの初期化 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Me.FpSpread1.ActiveSheet 'SPREADのアクティブシートのカラム数を３に設定 .ColumnCount = 6 'SPREADの行クリア .RowCount = 0 End With End Sub 'ボタンクリックでカラム連結処理 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '時間計測用 Dim dt As DateTime = Now 'ボタン不可設定 sender.Enabled = False 'ソースが長くなるのでWith宣言 With Me.FpSpread1.ActiveSheet 'SPREADの行クリア .RowCount = 0 '描画を停止させる Me.FpSpread1.SuspendLayout() 'データの行数分の処理 For i As Integer = 0 To 9999 '行数を増やす .RowCount += 1 '各セルへのデータ設定 .SetText(i, 0, "C1-" & i.ToString("0000")) .SetText(i, 1, "C2-" & i.ToString("0000")) .SetText(i, 2, "C3-" & i.ToString("0000")) .SetText(i, 3, "C4-" & i.ToString("0000")) .SetText(i, 4, "C5-" & i.ToString("0000")) .SetText(i, 5, "C6-" & i.ToString("0000")) Next End With '描画を再開させる Me.FpSpread1.ResumeLayout(True) '経過時間の表示 MsgBox("経過時間 = " & (Now - dt).TotalSeconds & "秒") 'ボタン許可設定 sender.Enabled = True End Sub End Class
下図は、最初、フォームが表示後、「Button1」をクリックした結果が以下の図です。

データが10000件も描画することは稀なので、このままでもいいのですが、 １４秒はさすがに掛かり過ぎなので、他の方法で行ってみます。

以下のソースは、SPREADのアクティブシートのデータモデルを取得し、 そのデータモデルを使ってデータを設定しています。 ソース的にはほとんど変わりが無いのですが、 アクティブシートへの直接セル設定のところをデータモデル経由に変更しています。
この方法で行うと、0.2秒以下で処理が終わります。14秒から0.2秒への劇的な速度アップが見られました。
Public Class Form1 'フォームロード時にSPREADの初期化 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Me.FpSpread1.ActiveSheet 'SPREADのアクティブシートのカラム数を３に設定 .ColumnCount = 6 'SPREADの行クリア .RowCount = 0 End With End Sub 'ボタンクリックでカラム連結処理 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '時間計測用 Dim dt As DateTime = Now 'ボタン不可設定 sender.Enabled = False 'データモデルを取得する Dim datamodel As FarPoint.Win.Spread.Model.DefaultSheetDataModel = _ CType(FpSpread1.ActiveSheet.Models.Data, FarPoint.Win.Spread.Model.DefaultSheetDataModel) 'SPREADの行クリア Me.FpSpread1.ActiveSheet.RowCount = 0 '描画を停止させる Me.FpSpread1.SuspendLayout() '10000行のデータの処理 For i As Integer = 0 To 9999 '行数を増やす Me.FpSpread1.ActiveSheet.RowCount += 1 'データモデルでのデータ設定 datamodel.SetValue(i, 0, "C1-" & i.ToString("0000")) datamodel.SetValue(i, 1, "C2-" & i.ToString("0000")) datamodel.SetValue(i, 2, "C3-" & i.ToString("0000")) datamodel.SetValue(i, 3, "C4-" & i.ToString("0000")) datamodel.SetValue(i, 4, "C5-" & i.ToString("0000")) datamodel.SetValue(i, 5, "C6-" & i.ToString("0000")) Next '描画を再開させる Me.FpSpread1.ResumeLayout(True) '経過時間の表示 MsgBox("経過時間 = " & (Now - dt).TotalSeconds & "秒") 'ボタン許可設定 sender.Enabled = True End Sub End Class

■関連記事
⇒VB.NET：SpreadでのEnter時にセルを右移動させる方法
⇒VB.NET：Spreadでフォーカスを持っていない時にセル枠を表示しない設定
⇒VB.NET：Spreadのヘッダカラム及び、通常のカラムの連結
⇒VB.NET：Spreadのシートへの簡単な一覧データの設定について
⇒VB.NET：Spreadのシートのセルにボタン、テキスト、チェックボックスのセルタイプの設定
⇒VB.NET：Spreadのセルのボタンクリック時のイベント処理
⇒VB.NET：Spreadのセルのチップウインドウで別に設定された文字列を表示する
⇒VB.NET：Spreadでデータ一覧表示を簡単に行う方法について
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)その２
⇒VB.NET：Spreadデータ一覧表示での自動ソート実行時に複数のソート条件を指定する方法について
⇒VB.NET：Spreadで異なるSPREADコントロール間でシートデータのコピーを行う方法
⇒VB.NET：SpreadでのCSV出力とCSV入力を使って、異なるSPREADコントロール間でシートデータのコピーを行う方法
⇒VB.NET：SpreadシートのPDF出力と表示を行う方法
⇒VB.NET：2個のSpread間での[Enter]キー、矢印キーなどでフォーカス移動を行う方法
⇒VB.NET：Spreadの数値セルタイプを使ってデータメンテナンスのプログラムに使う方法
⇒VB.NET:Spreadのテキストセルでバイト数入力制限を掛ける方法
⇒VB.NET:Spreadのチェックボックス型セルにはCheckChangedイベントを、ボタン型セルにはClickイベントの発生方法