おやじプログラマー日記

花粉予報が気になる時期になってきました。「花粉」という言葉に春を感じますが、みなさんは如何でしょうか。

春と言えばフレッシュな社会人や学生さんを連想しますが、VB.NETを始めたころも春だった様な...

そこでこのブログのVB.NET関連の記事ですが、データ変換などと基本的なものを取り上げました。 オブジェクト型から各種のデータ型への変換関数を以下のソースに示します。 オブジェクト型から変換する場合、いろいろな方法がありますが、 各データ型への変換メソッド「Parse」を使うのが一番簡単です。 この「Parse」ですが、変換に失敗を Try ... Catch で捉えられるのでエラー発生時にデフォルト値を返します。

これらの関数を利用する場面ですが、 データベースからの数値データを取得する場合にNULLデータを０に変換したい時によく使っています。

''' -------------------------------------------------------- ''' <summary>Object型からInteger型変換</summary> ''' <param name="obj">変換元Object型データ</param> ''' <returns>変換後Integer型データ(変換不可の場合は0)</returns> ''' -------------------------------------------------------- Public Function ObjectToInt(ByVal obj As Object) As Integer Try Return Integer.Parse(obj) Catch ex As Exception Return 0 End Try End Function ''' -------------------------------------------------------- ''' <summary>Object型からDecimal型変換</summary> ''' <param name="obj">変換元Object型データ</param> ''' <returns>変換後Decimal型データ(変換不可の場合は0)</returns> ''' -------------------------------------------------------- Public Function ObjectToDec(ByVal obj As Object) As Decimal Try Return Decimal.Parse(obj) Catch ex As Exception Return 0 End Try End Function ''' -------------------------------------------------------- ''' <summary>Object型からLong型変換</summary> ''' <param name="obj">変換元Object型データ</param> ''' <returns>変換後Long型データ(変換不可の場合は0)</returns> ''' -------------------------------------------------------- Public Function ObjectToLng(ByVal obj As Object) As Long Try Return Decimal.Parse(obj) Catch ex As Exception Return 0 End Try End Function ''' -------------------------------------------------------- ''' <summary>Object型からDouble型変換</summary> ''' <param name="obj">変換元Object型データ</param> ''' <returns>変換後Double型データ(変換不可の場合は0)</returns> ''' -------------------------------------------------------- Public Function ObjectToDbl(ByVal obj As Object) As Double Try Return Decimal.Parse(obj) Catch ex As Exception Return 0.0 End Try End Function ''' -------------------------------------------------------- ''' <summary>Object型からString型変換</summary> ''' <param name="obj">変換元Object型データ</param> ''' <returns>変換後String型データ(変換不可の場合は"")</returns> ''' -------------------------------------------------------- Public Function ObjToStr(ByVal obj As Object) As String Try Return obj.ToString Catch ex As Exception Return "" End Try End Function
このソースは単に「Public Function」と宣言していますので、 静的なModuleかSharedなクラスで宣言してどこからでも参照出来る様にすればいいと思います。

2個のSPREADコントロールをフォームに貼って、それぞれ2列×5行のシートを同じ様に設定します。
基本的な設定はSPREADコントロールのデザイナで設定していますが、以下の様な表示になります。

今回の動作の想定は以下の様に考えます。
・セルは全てテキスト入力で「←」「→」はセル内での左右移動
・「Tab」、「Enter」、「Ctrl」＋「←」、「Ctrl」＋「→」はアクティブセルの移動
　但し、左SPREADのDATA2の最下行セルの場合、右SPREADのDATA1の先頭セルに移動
　また、右SPREADのDATA1の先頭セルの場合、左SPREADのDATA2の最下行セルに移動

今回の処理では以下の処理が肝になります。

■初期処理でのSPREADのキー動作設定

そのままですと、矢印キーなどでアクティブセルの移動ができないのでキー制御をフォームロード時に行います。
・入力マップの変更で編集中セルでの「Enter」キー動作を指定します。 ・各セルをTextCellTypeにしますが、「矢印キー」の動作を、「矢印キー」のみはカーソルのセル内のみ左・右移動で、 「Ctrl」＋「矢印キー」はセル編集を終了し、アクティブセルのカーソル方向移動に設定します。

■Advanceイベントでの処理

AdvanceイベントはSPREADコントロールからフォーカスが移動する場合に発生します。 今回の場合は以下のキー入力でイベントが発生します。
・DATA1カラムで「Shift」＋「←」、「Tab」、「Enter」
・DATA2カラムで「Shift」＋「→」、「Tab」、「Enter」
・DATA1カラム及びDATA2カラムの先頭行で「↑」
・DATA1カラム及びDATA2カラムの最下行で「↓」

左SPREADでのAdvanceイベントで、DATA2カラムで最下行の場合、イベントの「e」引数の「Cancel」プロパティを Falseにすることでデフォルト処理をさせることで、右SPREADにフォーカスが移動します。

右SPREADでのAdvanceイベントで、DATA1カラムで先頭行の場合、イベントの「e」引数の「Cancel」プロパティを Falseにすることでデフォルト処理をさせることで、左SPREADにフォーカスが移動します。
Imports FarPoint.Win.Spread Public Class Form1 'フォームの初期化 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'SpreadのSPREADの「Enter」キー設定,各セルの「Ctrl」＋「矢印」でアクティブセル移動への設定 SetSpreadAttr(Me.FpSpread1) SetSpreadAttr(Me.FpSpread2) 'Spreadのフォーカス枠非表示 ClearSpreadActiveFrame(Me.FpSpread1) ClearSpreadActiveFrame(Me.FpSpread2) End Sub 'Spread編集開始時処理 Private Sub FpSpread1_EditModeOn(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles FpSpread1.EditModeOn, FpSpread2.EditModeOn '編集中セルの背景色を変更する CType(sender.EditingControl, CellType.GeneralEditor).BackColor = Drawing.Color.Moccasin End Sub '左のSpreadでの最下行での右Spreadへの移動制御 Private Sub FpSpread1_Advance(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.AdvanceEventArgs) _ Handles FpSpread1.Advance With CType(sender, FpSpread).ActiveSheet '最終セル?? If .ActiveRowIndex = .RowCount - 1 And .ActiveColumnIndex = .ColumnCount - 1 Then e.Cancel = False FpSpread2.ActiveSheet.SetActiveCell(0, 0) End If End With End Sub '右のSpreadでの最上行での左Spreadへの移動制御 Private Sub FpSpread2_Advance(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.AdvanceEventArgs) Handles _ FpSpread2.Advance With CType(sender, FpSpread).ActiveSheet '先頭セル?? If .ActiveRowIndex = 0 And .ActiveColumnIndex = 0 Then e.Cancel = False FpSpread1.ActiveSheet.SetActiveCell(4, 1) End If End With End Sub 'Spreadフォーカス取得時イベント Private Sub FpSpread1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles FpSpread1.Enter, FpSpread2.Enter Dim spd As FpSpread = CType(sender, FpSpread) If spd.Name = "FpSpread1" Then '左のSpreadのフォーカス取得 ResetSpreadActiveFrame(Me.FpSpread1) '左Spreadフォーカス枠表示 ClearSpreadActiveFrame(Me.FpSpread2) '右Spreadフォーカス枠非表示 Else '右のSpreadのフォーカス取得 ClearSpreadActiveFrame(Me.FpSpread1) '左Spreadフォーカス枠非表示 ResetSpreadActiveFrame(Me.FpSpread2) '右Spreadフォーカス枠表示 End If End Sub 'Spreadのフォーカス枠を表示 Private Sub ResetSpreadActiveFrame(ByVal spd As FpSpread) ' フォーカスインジケータをリセット spd.ResetFocusRenderer() End Sub 'Spreadのフォーカス枠を非表示 Private Sub ClearSpreadActiveFrame(ByVal spd As FpSpread) ' フォーカスインジケータを非表示 spd.FocusRenderer = New FarPoint.Win.Spread.DefaultFocusIndicatorRenderer(0) End Sub 'SPREADの「Enter」キー設定,各セルの「Ctrl」＋「矢印」でアクティブセル移動 Private Sub SetSpreadAttr(ByVal spd As FpSpread) '編集セルでの［Enter］キーを「次列へ移動」 Dim im As New InputMap im = spd.GetInputMap(InputMapMode.WhenAncestorOfFocused) im.Put(New Keystroke(Keys.Enter, Keys.None), SpreadActions.MoveToNextColumn) For Row = 0 To spd.ActiveSheet.RowCount - 1 '[矢印キー]のみ :カーソルのセル内のみ左・右移動 '[Ctrl]＋[矢印キー]:セルは編集を終了し、アクティブセルのカーソル方向移動 Dim tc As New FarPoint.Win.Spread.CellType.TextCellType tc.AcceptsArrowKeys = FarPoint.Win.SuperEdit.AcceptsArrowKeys.Arrows spd.ActiveSheet.Rows(Row).CellType = tc Next End Sub End Class
■EditModeOnイベントでの処理

尚、現在のセルを分かりやすくするために、EditModeOnイベント（編集開始時処理）で編集中セルの背景色を変更しています。

■関連記事
⇒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でデータ一覧表示を簡単に行う方法について
⇒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：Spreadの数値セルタイプを使ってデータメンテナンスのプログラムに使う方法
⇒VB.NET:Spreadのテキストセルでバイト数入力制限を掛ける方法
⇒VB.NET:Spreadのチェックボックス型セルにはCheckChangedイベントを、ボタン型セルにはClickイベントの発生方法

ラベルプリンタメーカ「SATO」のラベル発行コンポーネント(MLComponent.dll)を使ったラベル印刷の紹介ですが、 レイアウトファイルとプリンタドライバを利用して行います。 USBへの直接出力もできるようですが、制御が難しい様なので、プリンタドライバへの出力で印刷します。

■印刷用レイアウトファイル

ラベル印刷を簡単に行うにはレイアウトファイルが必要になります。 このレイアウトファイルですがSATOが提供する「SATO Multi LABELIST V5 [MLデザイン]」で作成します。 Trail（試用）のままでも1個のファイルは生成が可能ですので、以下のURLからダウンロードしてみてください。

・Multi LABELIST V5

今回使用するレイアウトファイルの編集中の画面を以下に示します。 連番(NO)、日付、品番、ＱＲコードのみを印刷する簡単なレイアウトで、デザインを作成したところです。

また、下図は印刷の定義順の設定の画面です。
定義順は1:連番(NO)、2:日付、3:品番、4:ＱＲコード　となっています。
実際のプログラムでのデータ設定の順番は、定義順に行います。

■プリンタ状態チェック関数

関数内の処理は以下の手順で行います。

(1)「MLComponent」のインスタンスを生成します。

(2)レイアウトファイルの設定
　「MLComponent」の「LayoutFile」プロパティに、[MLデザイン]で作成されたレイアウトファイルを設定します。

(3)印刷データの設定
　「MLComponent」の「PrnData」プロパティに、印刷データを設定します。
　印刷データは印刷定義順に従って、各データを「タブ」文字を挟んで文字列で連結します。
　最後に「印刷枚数」をさらに「タブ」文字を挟んで追加連結します。（今回は1枚なので"1"を連結）

(4)出力先の設定
　「MLComponent」の「Setting」プロパティに、プリンタドライバ名を指定します。 （今回は「Lesprit412v」プリンタなので"DRV:SATO Lesprit412v"）

(5)接続処理
　「MLComponent」の「OpenPort」メソッドで接続します。

(6)発行処理
　「MLComponent」の「Output」メソッドでラベル印刷の発行を行います。

(7)切断処理
　「MLComponent」の「ClosePort」メソッドで切断します。

Module Module1 'SATOプリンタの印刷テスト Public Sub Main() Dim str As String = "" Dim fChk As Boolean = PrintLabel(1, "10001", str) MsgBox(str) End Sub ''' <summary>ラベル印刷</summary> ''' <param name="nNo">NO</param> ''' <param name="strHinban">品番</param> ''' <returns>印刷結果(True:OK, False:NG)</returns> Private Function PrintLabel(ByVal nNo As Integer, _ ByVal strHinban As String, ByRef strErr As String) As Boolean '戻り値初期化 PrintLabel = False 'MLComponentの宣言 Dim MLComponent As SATO.MLComponent.MLComponent = New SATO.MLComponent.MLComponent Try 'レイアウトファイルの設定 MLComponent.LayoutFile = "Layout.mllayx" '設定データ生成 Dim strData As String = "" 'ヘッダ strData &= nNo.ToString("00000000") 'NO strData &= vbTab & Now.ToString("yyyy/MM/dd") '日付 strData &= vbTab & strHinban '品番 'QRバーコードデータ(NO,日付,日付を設定) Dim strQR As String = "" strQR = "NO=" & nNo.ToString("00000000") 'NO strQR &= ",DATE=" & Now.ToString("yyyy/MM/dd") '日付 strQR &= ",HIN=" & strHinban '日付 'QRバーコードデータを設定データに付加 strData &= vbTab & strQR '発行枚数を設定データに付加 strData &= vbTab & "1" 'データの設定 MLComponent.PrnData = strData '出力先の設定(プリンタドライバ名を指定します。) MLComponent.Setting = "DRV:SATO Lesprit412v" '接続 Dim Result As Integer Result = MLComponent.OpenPort(1) If Result <> 0 Then strErr = "接続エラー No." & Result.ToString Exit Function End If '発行 Result = MLComponent.Output If Result <> 0 Then strErr = "発行エラー No." & Result.ToString Exit Function End If '切断 Result = MLComponent.ClosePort If Result <> 0 Then strErr = "切断エラー No." & Result.ToString Exit Function End If '戻り値OK PrintLabel = True Catch ex As Exception strErr = "その他エラー :" & ex.ToString Finally MLComponent = Nothing End Try End Function End Module

■プリンタドライバ

プリンタドライバのプロパティでUSBでの接続にしてあります。
プリンタドライバは以下のURLでダウンロードできます。

・プリンタドライバ・マニュアル

■関連記事
⇒SATOラベルプリンタ・Multi LABELIST Component(MLComponent.dll)を使った印刷：接続確認

Visual Basic 2013逆引き大全 555の極意【電子書籍】[ 増田智明 ] 価格： 2,527円 （2016/09/29 14:32時点 ） 感想：0件

ラベルプリンタメーカ「SATO」のラベル発行コンポーネント(MLComponent.dll)を使ったラベル印刷の 紹介ですが、まず最初にラベルプリンタの接続確認を行います。今回仕事で使ったプリンタがUSB接続でしたので 例としてUSBのみとなります。

■MLComponent.dllのインストール

以下のURLのページの真ん中あたりに「Multi LABELIST Component」のダウンロードファイルが在りますので、 必要なものをダウンロードし、インストールします。

・Multi LABELIST Component / Component Plus

デフォルトでインストールすると「MLComponent.dll」が「C:\Program Files\SATO\ML Component」に在るはずです。
VB.NETの参照設定で「MLComponent.dll」を追加します。
このコンポーネントですが、.NET Framework 4.0または4.5または4.6に対応している開発環境でしか使えないので Visual Studio 2010以降限定です。Visual Studio 2005/2008では使用できません。



■プリンタ状態チェック関数

関数内ではまず「MLComponent」のインスタンスを生成します。
その後「Setting」プロパティによって通信パラメータを設定します。 プリンタとの接続方法が、LAN、USB、RS232C、Bluetooth、プリンタドライバなどがありますが 今回はUSBですので、"USB:"の設定値となります。その他の設定はマニアルを見てください。
「Protocol」プロパティはUSBですので、「Protocols.Status4」となります。

その後、「OpenPort」メソッドにより接続を開始しますが、 結果が０ではない場合は、電源が入っていないかケーブルが抜けているかの原因になります。

接続後は、プリンタの状態を「GetStatus」メソッドにより行います。 返されるStatus文字列の3文字目にエラー判別文字がありますので、それによってメッセージを付けています。 尚、このメソッドが０以外を返す場合は、メソッドエラーになります。

Module Module1 'SATOプリンタの接続テスト Public Sub Main() Dim str As String = "" Dim fChk As Boolean = CheckPrinter(str) MsgBox(str) End Sub ''' <summary>プリンタ状態チェック</summary> ''' <param name="strErr">エラーメッセージ</param> ''' <returns>状態結果(True:OK, False:NG)</returns> Private Function CheckPrinter(ByRef strErr As String) As Boolean '戻り値初期化 CheckPrinter = False 'MLComponentの宣言 Dim MLComponent As SATO.MLComponent.MLComponent = New SATO.MLComponent.MLComponent Try '出⼒先の設定(USBを指定します。) MLComponent.Setting = "USB:" MLComponent.Protocol = SATO.MLComponent.Protocols.Status4 '接続 Dim Result As Integer = MLComponent.OpenPort(1) If Result <> 0 Then strErr = "プリンタの電源等(ケーブル)を確認してください。(" & Result.ToString & ")" Exit Function End If 'プリンタの状態確認 Dim Status As String = "" Result = MLComponent.GetStatus(Status) ' ステータス取得 If Result <> 0 Then strErr = "プリンタ状態取得エラー No." & Result.ToString Exit Function End If 'エラーコードの確認 Dim strCode As String = Mid$(Status, 3, 1) Select Case strCode Case "0", "1", "2", "3" strErr = "オフライン状態" Case "A", "B", "G", "H", "M", "N", "S", "T" 'オンライン状態・送信可 strErr = "" Case "C", "D" strErr = "オンライン状態・受信待ち" Case "I", "J" strErr = "オンライン状態・印字中" Case "O", "P" strErr = "オンライン状態・待機中" Case "U", "V" strErr = "オンライン状態・解析・編集中" Case "a" strErr = "エラー検出・受信バッファフル" Case "b" strErr = "エラー検出・ヘッドオープン" Case "c" strErr = "エラー検出・ペーパーエンド" Case "d" strErr = "エラー検出・リボンエンド" Case "e" strErr = "エラー検出・メディアエラー" Case "f" strErr = "エラー検出・センサーエラー" Case "g" strErr = "エラー検出・ヘッドエラー" Case "h" strErr = "エラー検出・カバーオープン" Case "i" strErr = "エラー検出・カードエラー" Case "j" strErr = "エラー検出・カッタエラー" Case "k" strErr = "エラー検出・その他のエラー" Case "l" strErr = "エラー検出・カッタセンサーエラー" Case "m" strErr = "エラー検出・スタッカフル＆リファインダフル" Case "o" strErr = "エラー検出・IC タグエラー" Case Else strErr = "その他" End Select If strErr = "" Then strErr = "接続正常" CheckPrinter = True Else 'エラー strErr = "プリンタエラー：(" & strCode & ") " & strErr End If '切断 Result = MLComponent.ClosePort If Result <> 0 Then strErr = "切断エラー No." & Result.ToString CheckPrinter = False End If Catch ex As Exception strErr = "PGエラー:" & ex.ToString Finally MLComponent = Nothing End Try End Function End Module

■関連記事
⇒SATOラベルプリンタ・Multi LABELIST Component(MLComponent.dll)を使った印刷：レイアウトファイル・プリンタドライバを使用

Visual Basic 2013逆引き大全 555の極意【電子書籍】[ 増田智明 ] 価格： 2,527円 （2016/09/29 14:32時点 ） 感想：0件

SPREADには、シートのそのままをPDFに出力する機能が備わっています。 「SheetView」クラスの「PrintInfo」のPDF出力の指示を行えば、「SheetView」の印刷メソッドでPDF出力ができます。

以下のソースですが、「Button1_Click」の前までは以前のソースを踏襲していまして、 単に単一行選択表示で1000行3カラムのテストデータを表示しています。

「Button1_Click」の中で、PDFファイルへの出力処理を行っています。 「ActiveSheet.PrintInfo」の「PrintToPdf」をTrueに設定し、「PdfFileName」にPDF出力ファイル名を設定しています。 その後、SPREADコントロールの「PrintSheet」メソッドで「ActiveSheet」の印刷処理を行います。

ここで注意点があります。「PrintSheet」メソッドの直後でのPDFファイルの表示処理がコメントになっていますが、 コメント部分を実行に戻して処理すると、「AcrobatReader」は起動するのですがPDFファイルが見つからないとエラーになります。 「PrintSheet」メソッドの直後ではタイミング的に、まだPDFファイルの出力が終了していないので、エラーになる様です。

そこで解決方法として、「PrintSheet」メソッドの終了時点で「AcrobatReader」を起動することになります。 ちょうど「PrintMessageBox」イベントがそれに当たります。引数の「e」の「BeginPrinting」が「False」になった時が 「PrintSheet」が終わったことを通知してくれますので、そのタイミングで「AcrobatReader」起動の関数をコールします。

Imports FarPoint.Win.Spread Public Class Form1 'フォームロード時にSPREADの初期化 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'SPREADの初期化 Call InitilayzeSpread(Me.FpSpread1) '一覧データ表示 Call Me.DisplayData() End Sub 'SPREADの初期化 Private Sub InitilayzeSpread(ByVal spd As FpSpread) 'SPREADの設定 With spd 'スクロールバーの設定 .HorizontalScrollBarPolicy = ScrollBarPolicy.AsNeeded .VerticalScrollBarPolicy = ScrollBarPolicy.AsNeeded '分割ボックスの設定 .ColumnSplitBoxPolicy = SplitBoxPolicy.Never .RowSplitBoxPolicy = SplitBoxPolicy.Never 'カーソル設定 .SetCursor(CursorType.Normal, Windows.Forms.Cursors.Arrow) .SetCursor(CursorType.LockedCell, Windows.Forms.Cursors.Arrow) 'セルがアクティブ時に編集モードにしない .EditModePermanent = False 'セルがアクティブ時に既存の内容を選択しない .EditModeReplace = False End With 'アクティブシートの設定 With spd.ActiveSheet '選択状態 .SelectionStyle = SelectionStyles.SelectionRenderer '編集モードの設定 .OperationMode = OperationMode.SingleSelect '列のサイズ変更可、行のサイズ変更不可に設定する。 .Columns.Default.Resizable = True .Rows.Default.Resizable = False 'SPREADのアクティブシートのカラム数を３に設定 .ColumnCount = 3 'SPREADの行クリア .RowCount = 0 End With 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 Mod 100).ToString("000")) '100で割った余り .SetText(i, 2, "C" & (i Mod 10).ToString("000")) '10で割った余り Next End With '描画を再開させる Me.FpSpread1.ResumeLayout(True) '先頭行を選択設定(1行目が選択色になる) Me.FpSpread1.ActiveSheet.AddSelection(0, 0, 1, 1) End Sub 'PDF出力ボタン Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'アクティブシートをPDFとして出力 Me.FpSpread1.ActiveSheet.PrintInfo.PrintToPdf = True 'PDFファイル名 Me.FpSpread1.ActiveSheet.PrintInfo.PdfFileName = "test.pdf" 'アクティブシートをPDFとして印刷 Me.FpSpread1.PrintSheet(Me.FpSpread1.ActiveSheet) ''PDF表示 'Call DispPdf("test.pdf") End Sub Private Sub FpSpread1_PrintMessageBox(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.PrintMessageBoxEventArgs) Handles FpSpread1.PrintMessageBox '印刷終了タイミングか?? If e.BeginPrinting = False Then 'PDF表示 Call DispPdf("test.pdf") End If End Sub '拡張子PDFに関連付けられているAcrobatReader起動 Private Sub DispPdf(ByVal strFileName As String) Dim pStartInfo As New ProcessStartInfo Dim p As New Process With pStartInfo .FileName = strFileName .CreateNoWindow = False .WindowStyle = ProcessWindowStyle.Normal End With 'プロセスのStartInfoプロパティに設定 p.StartInfo = pStartInfo If p.Start() = True Then 'AcrobatReaderの終了を待つ p.WaitForExit() Else MsgBox("起動に失敗しました。") End If End Sub End Class
下図は、プログラムが起動しした時の表示です。

下図は、「Button1」をクリックした時の表示です。

■関連記事
⇒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でデータ一覧表示を簡単に行う方法について
⇒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：2個のSpread間での[Enter]キー、矢印キーなどでフォーカス移動を行う方法
⇒VB.NET：Spreadの数値セルタイプを使ってデータメンテナンスのプログラムに使う方法
⇒VB.NET:Spreadのテキストセルでバイト数入力制限を掛ける方法
⇒VB.NET:Spreadのチェックボックス型セルにはCheckChangedイベントを、ボタン型セルにはClickイベントの発生方法

Visual Basic 2013逆引き大全 555の極意【電子書籍】[ 増田智明 ] 価格： 2,527円 （2016/09/29 14:32時点 ） 感想：0件

前回は、異なるSPREADのシート間でのコピーを、クリップボードを使う方法と、XML文字列を使う方法で行いましたが、 今回はCSVファイルへの出力と入力を使って行います。

ソースのほとんどは「異なるSPREADのシート間でのコピー」のものと同じなので、 「Button1」クリックでの処理が異なる部分のみ以下に示します。

コピー元のActiveSheetの「SaveTextFile」メソッドを使うことで”test.csv”にCSV出力します。 その後、コピー先のActiveSheetの「LoadTextFile」メソッドで”test.csv”をCSV入力します。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'SPREAD1の全部を[test.csv]ファイルに出力 Me.FpSpread1.ActiveSheet.SaveTextFile("test.csv", _ TextFileFlags.ForceCellDelimiter, _ Model.IncludeHeaders.None, _ Chr(13) & Chr(10), _ ",", "") 'SPREAD2に[test.csv]ファイルから入力 Me.FpSpread2.ActiveSheet.LoadTextFile("test.csv", _ TextFileFlags.ForceCellDelimiter, _ Model.IncludeHeaders.None, _ Chr(13) & Chr(10), _ ",", "") End Sub
下図は、「Button1」クリック後の表示です。



■関連記事
⇒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でデータ一覧表示を簡単に行う方法について
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)その２
⇒VB.NET：Spreadデータ一覧表示での自動ソート実行時に複数のソート条件を指定する方法について
⇒VB.NET：Spreadで異なるSPREADコントロール間でシートデータのコピーを行う方法
⇒VB.NET：SpreadシートのPDF出力と表示を行う方法
⇒VB.NET：2個のSpread間での[Enter]キー、矢印キーなどでフォーカス移動を行う方法
⇒VB.NET：Spreadの数値セルタイプを使ってデータメンテナンスのプログラムに使う方法
⇒VB.NET:Spreadのテキストセルでバイト数入力制限を掛ける方法
⇒VB.NET:Spreadのチェックボックス型セルにはCheckChangedイベントを、ボタン型セルにはClickイベントの発生方法

異なるSPREADのシート間でのコピーを行う方法が2種類あります。 一つはクリップボードを使う方法と、XML文字列を使う方法です。

■クリップボードを使う方法
コピー元のActiveSheetの「ClipboardCopy」メソッドを使うことで、指定された範囲のセルをクリップボードにコピーします。 その後、コピー先のActiveSheetの行・列の数を合わせておいて、「ClipboardPaste」メソッドで貼付を行います。 以下のソースでは、「Button1_Click」の処理です。

■XML文字列を使う方法
コピー元のシートを「GetObjectXml」メソッドにてシリアライズ化しXML文字列化します。 その後、コピー先のシートに「SetObjectXml」メソッドにてXML文字列を逆シリアライズ化してやります。 以下のソースでは、「Button2_Click」の処理です。
尚、ここではやっていませんが、数式を含むシートの場合には、シートの追加後にLoadFormulasメソッドを呼び出すことで数式が有効になるそうです。

Imports FarPoint.Win.Spread Public Class Form1 'フォームロード時にSPREADの初期化 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'SPREADの初期化 Call InitilayzeSpread(Me.FpSpread1) Call InitilayzeSpread(Me.FpSpread2) '一覧データ表示 Call Me.DisplayData() End Sub 'SPREADの初期化 Private Sub InitilayzeSpread(ByVal spd As FpSpread) 'SPREADの設定 With spd 'スクロールバーの設定 .HorizontalScrollBarPolicy = ScrollBarPolicy.AsNeeded .VerticalScrollBarPolicy = ScrollBarPolicy.AsNeeded '分割ボックスの設定 .ColumnSplitBoxPolicy = SplitBoxPolicy.Never .RowSplitBoxPolicy = SplitBoxPolicy.Never 'カーソル設定 .SetCursor(CursorType.Normal, Windows.Forms.Cursors.Arrow) .SetCursor(CursorType.LockedCell, Windows.Forms.Cursors.Arrow) 'セルがアクティブ時に編集モードにしない .EditModePermanent = False 'セルがアクティブ時に既存の内容を選択しない .EditModeReplace = False End With 'アクティブシートの設定 With spd.ActiveSheet '選択状態 .SelectionStyle = SelectionStyles.SelectionRenderer '編集モードの設定 .OperationMode = OperationMode.SingleSelect '列のサイズ変更可、行のサイズ変更不可に設定する。 .Columns.Default.Resizable = True .Rows.Default.Resizable = False 'SPREADのアクティブシートのカラム数を３に設定 .ColumnCount = 3 'SPREADの行クリア .RowCount = 0 End With 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 Mod 100).ToString("000")) '100で割った余り .SetText(i, 2, "C" & (i Mod 10).ToString("000")) '10で割った余り Next End With '描画を再開させる Me.FpSpread1.ResumeLayout(True) '先頭行を選択設定(1行目が選択色になる) Me.FpSpread1.ActiveSheet.AddSelection(0, 0, 1, 1) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'SPREAD1の全部をクリップボードにコピー With Me.FpSpread1.ActiveSheet .ClipboardCopy(New Model.CellRange(0, 0, .RowCount, .ColumnCount)) End With 'SPREAD2 With Me.FpSpread2.ActiveSheet 'SPREAD2の行列数を設定 .RowCount = Me.FpSpread1.ActiveSheet.RowCount .ColumnCount = Me.FpSpread1.ActiveSheet.ColumnCount 'SPREAD2にペースト .SetActiveCell(0, 0) .ClipboardPaste(FarPoint.Win.Spread.ClipboardPasteOptions.All) 'SPREAD2の選択状態を解除 .ClearSelection() End With End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim pstrXML As String 'Sheet情報をxml形式で取得 pstrXML = FarPoint.Win.Serializer.GetObjectXml(CType(Me.FpSpread1.ActiveSheet, FarPoint.Win.ISerializeSupport), "Sheet") '取得した情報を設定 FarPoint.Win.Serializer.SetObjectXml(CType(Me.FpSpread2.ActiveSheet, FarPoint.Win.ISerializeSupport), pstrXML, "Sheet") End Sub End Class
下図は、プログラムが起動した時の表示です。

下図は、「Button2」をクリック後の表示です。「Button1」と「Button2」では若干結果が異なります。 「Button1」では行選択状態はコピーされず、左上のセルがアクティブになります。 「Button2」は行選択状態もコピーされる様です。

■関連記事
⇒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でデータ一覧表示を簡単に行う方法について
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)その２
⇒VB.NET：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イベントの発生方法

SPREADを使ってデータの一覧を表示し、ソート処理を追加するのは比較的簡単に行えます。

アクティブシートの設定で各カラムの「AllowAutoSort」プロパティを「True」にすればソートが可能になります。 以下のソースを動作させた最初の表示が以下の図になります。

各カラムのヘッダにソートのインジケータが表示されるので、 そのマークをクリックすることで自動でソート処理がなされます。

Imports FarPoint.Win.Spread 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 = ScrollBarPolicy.AsNeeded .VerticalScrollBarPolicy = ScrollBarPolicy.AsNeeded '分割ボックスの設定 .ColumnSplitBoxPolicy = SplitBoxPolicy.Never .RowSplitBoxPolicy = SplitBoxPolicy.Never 'カーソル設定 .SetCursor(CursorType.Normal, Windows.Forms.Cursors.Arrow) .SetCursor(CursorType.LockedCell, Windows.Forms.Cursors.Arrow) 'セルがアクティブ時に編集モードにしない .EditModePermanent = False 'セルがアクティブ時に既存の内容を選択しない .EditModeReplace = False End With 'アクティブシートの設定 With Me.FpSpread1.ActiveSheet '選択状態 .SelectionStyle = SelectionStyles.SelectionRenderer '編集モードの設定 .OperationMode = OperationMode.SingleSelect '列のサイズ変更可、行のサイズ変更不可に設定する。 .Columns.Default.Resizable = True .Rows.Default.Resizable = False 'SPREADのアクティブシートのカラム数を３に設定 .ColumnCount = 3 'SPREADの行クリア .RowCount = 0 '列の自動ソートを許可します .Columns(0).AllowAutoSort = True .Columns(1).AllowAutoSort = True .Columns(2).AllowAutoSort = True 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")) Dim j As Integer = i Mod 100 '100で割った余り .SetText(i, 1, "B" & j.ToString("000")) Dim k As Integer = i Mod 10 '10で割った余り .SetText(i, 2, "C" & k.ToString("000")) Next End With '描画を再開させる Me.FpSpread1.ResumeLayout(True) '先頭行を選択設定(1行目が選択色になる) Me.FpSpread1.ActiveSheet.AddSelection(0, 0, 1, 1) End Sub End Class
但し、このままでは少し不満な点が残ります。 下図は、2カラム目でソートをさせた時の結果の表示です。

2カラム目のみがソート条件になっているので、1カラム目と3カラム目がうまいこと順番にならない様です。 この現象を解消するために、列ヘッダクリックによるソート開始時イベントで以下の様にし、ソート条件を複数に指定します。
'ソート開始時イベント Private Sub FpSpread1_AutoSortingColumn(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.AutoSortingColumnEventArgs) Handles FpSpread1.AutoSortingColumn 'デフォルト動作をキャンセル e.Cancel = True '現在のカラムのソートインジケーターを取得 Dim Indicator As Model.SortIndicator = FpSpread1.ActiveSheet.Columns(e.Column).SortIndicator 'ソート条件クラス Dim si(2) As FarPoint.Win.Spread.SortInfo 'ソートの指示値 Dim fSortInfo As Boolean 'ソートキーを「指定列」「指定列以外の左から2番目の列」「指定列以外の左から3番目の列」の順で設定します If Indicator = Model.SortIndicator.None Or Indicator = Model.SortIndicator.Descending Then 'インジケータ：昇順 FpSpread1.ActiveSheet.Columns(e.Column).SortIndicator = Model.SortIndicator.Ascending fSortInfo = True Else 'インジケータ：降順 FpSpread1.ActiveSheet.Columns(e.Column).SortIndicator = Model.SortIndicator.Descending fSortInfo = False End If 'ソート条件の最初は現在のカラム si(0) = New FarPoint.Win.Spread.SortInfo(e.Column, fSortInfo) Dim j As Integer = 1 For i As Integer = 0 To 2 '現在のカラム以外?? If i <> e.Column Then '現在のカラム以外のソート条件を設定 si(j) = New FarPoint.Win.Spread.SortInfo(i, fSortInfo) j += 1 End If Next 'ソート実行 FpSpread1.ActiveSheet.SortRows(0, FpSpread1.ActiveSheet.RowCount, si) End Sub
このイベント処理をソースに追加すると下図の様な表示になります。

■関連記事
⇒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でデータ一覧表示を簡単に行う方法について
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)その２
⇒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イベントの発生方法

前回は、SPREADを使ってデータの一覧を表示し、セルダブルクリック(CellDoubleClick)もしくはキーダウン(KeyDown)イベント時に メッセージボックスを表示するという簡単な処理を行いました。

今回は少し進んで、セルダブルクリック及びキーダウンイベント時に、別フォームを作成し表示させてみます。 別フォームには3個のラベルを貼って、データ一覧の各カラムの内容を表示します。

フォームロード時にSPREADの初期化などは前回までと同様ですが、データ表示用の関数(DisplayOneData)を新規に作成し 行番号を引数で渡すことで別フォーム(Form2)を生成後、その行番号の各カラム値を3個のラベルに設定しています。 別フォームは「Show」メソッドで表示しています。

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) 'セルがアクティブ時に編集モードにしない .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")) .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 'Spreadダブルクリック時処理 Private Sub FpSpread1_CellDoubleClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles FpSpread1.CellDoubleClick 'ヘッダーダブルクリックの場合抜ける If e.ColumnHeader = True Then Return End If 'シートにデータ行が在るか?? If FpSpread1.ActiveSheet.RowCount > 0 Then 'データ表示 Call DisplayOneData(e.Row) End If End Sub 'Spread KeyDown時処理 Private Sub FpSpread1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles FpSpread1.KeyDown 'Enterキー押下したとき If e.KeyCode = Windows.Forms.Keys.Enter Then 'データ表示 Call DisplayOneData(Me.FpSpread1.ActiveSheet.ActiveRowIndex) End If End Sub 'データ表示 Private Sub DisplayOneData(ByVal nRow As Integer) Dim form2 As New Form2 With form2 .Label1.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 0) .Label2.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 1) .Label3.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 2) .Show() End With End Sub End Class
下図は、フォーム表示後、2行目をダブルクリックしてForm2を表示した時の表示です。
しかし、実際の動作としては、Form1でダブルクリック後、Form2が表示されるのですが、 フォーカスは依然としてForm1にあり、Form2はForm1の下に表示されます。 （キーダウン時の方は、Form2はForm1の上に表示されます）

この現象を避けるには、ダブルクリック時処理を以下の様にし、データ表示のフォーム表示メソッドを「ShowDialog」に変更することです。
'Spreadダブルクリック時処理 Private Sub FpSpread1_CellDoubleClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles FpSpread1.CellDoubleClick 'ヘッダーダブルクリックの場合抜ける If e.ColumnHeader = True Then Return End If 'シートにデータ行が在るか?? If FpSpread1.ActiveSheet.RowCount > 0 Then 'デフォルト処理のキャンセル e.Cancel = True 'データ表示 Call DisplayOneData(e.Row) End If End Sub 'データ表示 Private Sub DisplayOneData(ByVal nRow As Integer) Dim form2 As New Form2 With form2 .Label1.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 0) .Label2.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 1) .Label3.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 2) .ShowDialog() End With End Sub

もう一つ解決策がありまして、フォームの表示メソッドを「Show」のままで行う方法です。
ダブルクリック時にダブルクリックが在った証拠フラグをONし、 マウスアップ時にダブルクリックフラグがONならば、データ表示を行う様にすることです。 （マウスアップ時には、Form1からフォーカスが無くなる様です。）

一覧データ表示移行の部分を、以下のソースの様にします。
'ダブルクリックフラグ Private isSpdCellDoubleClick As Boolean = False 'Spreadダブルクリック時処理 Private Sub FpSpread1_CellDoubleClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles FpSpread1.CellDoubleClick 'ヘッダーダブルクリックの場合抜ける If e.ColumnHeader = True Then Return End If 'シートにデータ行が在るか?? If FpSpread1.ActiveSheet.RowCount > 0 Then 'デフォルト処理のキャンセル e.Cancel = True 'ダブルクリックフラグON isSpdCellDoubleClick = True End If End Sub 'Spreadマウスアップ時処理 Private Sub FpSpread1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FpSpread1.MouseUp If Me.isSpdCellDoubleClick = True Then 'データ表示 Call DisplayOneData(Me.FpSpread1.ActiveSheet.ActiveRowIndex) End If 'ダブルクリックフラグOFF Me.isSpdCellDoubleClick = False End Sub 'Spread KeyDown時処理 Private Sub FpSpread1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles FpSpread1.KeyDown 'Enterキー押下したとき If e.KeyCode = Windows.Forms.Keys.Enter Then 'データ表示 Call DisplayOneData(Me.FpSpread1.ActiveSheet.ActiveRowIndex) End If End Sub 'データ表示 Private Sub DisplayOneData(ByVal nRow As Integer) Dim form2 As New Form2 With form2 .Label1.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 0) .Label2.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 1) .Label3.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 2) .Show() End With End Sub

■関連記事
⇒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でデータ一覧表示を簡単に行う方法について
⇒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イベントの発生方法

SPREADを使ってマスタメンテナンスのマスタデータの一覧を表示した時に、行選択して何かを行いたい場合があります。 この場合には、セルダブルクリック(CellDoubleClick)もしくはキーダウン(KeyDown)イベント時にその処理を書きます。

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

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

一覧表示の最後で、「AddSelection」により行選択を強制的に行っていますが、 この処理が無いと、最初に一覧を表示した時に選択状態の表示にならないので注意が必要です。
セルダブルクリック及び、キーダウンイベントでアクティブな行の第1カラム目のデータを単にメッセージボックスで表示させるだけの簡単な処理を行います。
尚、セルダブルクリック時にはヘッダーダブルクリックの場合には処理を行わない様にします。

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) 'セルがアクティブ時に編集モードにしない .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")) .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 'セルダブルクリック時処理 Private Sub FpSpread1_CellDoubleClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles FpSpread1.CellDoubleClick 'ヘッダーダブルクリックの場合抜ける If e.ColumnHeader = True Then Return End If 'シートにデータ行が在るか?? If FpSpread1.ActiveSheet.RowCount > 0 Then 'Spreadからコードの取得 Dim str As String = "第1カラムデータ = " & _ Me.FpSpread1.ActiveSheet.GetValue(e.Row, 0) MsgBox(str) End If End Sub 'キーダウン時処理 Private Sub FpSpread1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles FpSpread1.KeyDown 'Enterキー押下したとき If e.KeyCode = Windows.Forms.Keys.Enter Then 'Spreadからコードの取得 Dim str As String = "第1カラムデータ = " & _ Me.FpSpread1.ActiveSheet.GetValue(Me.FpSpread1.ActiveSheet.ActiveRowIndex, 0) MsgBox(str) End If End Sub End Class
下図は、フォーム表示後、2行目をダブルクリックしてメッセージボックスを表示した時の表示です。


■関連記事
⇒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でデータ一覧表示を簡単に行う方法について
⇒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イベントの発生方法