おやじプログラマー日記 : VB.NET:Spreadのチェックボックス型セルにはCheckChangedイベントを、ボタン型セルにはClickイベントの発生方法

以前のSPREADの以下の記事では、ボタンクリックのイベントとして FpSpread1.ButtonClicked で処理していたため、ボタンもチェックボックスもボタンイベントとして処理されてしまいました。

■VB.NET：Spreadのセルのボタンクリック時のイベント処理

それで、ボタンはクリックイベントで処理をし、チェックボックスは値が変化したイベントで処理する様にします。
チェックボックス型セルでは編集中のエディタとして FpCheckBox クラスが、ボタン型セルでは編集中のエディタとして FpButton クラスが使用されます。それで、それぞれのセルタイプのセルが編集モードに入った時点で、 FpCheckBox の CheckChanged イベントにハンドラを設定し、さらに FpButton の Click イベントにハンドラを設定します。

Imports FarPoint.Win Imports FarPoint.Win.Spread Imports FarPoint.Win.Spread.CellType 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 = 3 'SPREADの行クリア .RowCount = 0 End With End Sub 'ボタンクリックでカラム連結処理 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '仮に4行分のデータ Dim ArrData(,) As String = { _ {"001", "Test001", "True"}, _ {"002", "Test002", "False"}, _ {"003", "Test003", "True"}, _ {"004", "Test004", "False"}, _ {"005", "0000005", "False"} _ } 'ソースが長くなるのでWith宣言 With Me.FpSpread1.ActiveSheet 'データの行数分の処理 For i As Integer = 0 To ArrData.GetLength(0) - 1 '行数を増やす .RowCount += 1 '第1カラムはボタン(ButtonCellType) Dim buttonCell As New ButtonCellType buttonCell.Text = ArrData(i, 0) 'ボタンのキャプション .Cells(i, 0).CellType = buttonCell '第2カラムはテキスト(TextCellType) Dim textCell As New TextCellType .Cells(i, 1).CellType = textCell .Cells(i, 1).Text = ArrData(i, 1) '第3カラムはチェックボックス(CheckBoxCellType) Dim FpChk As New CheckBoxCellType .Cells(i, 2).CellType = FpChk .Cells(i, 2).HorizontalAlignment = CellHorizontalAlignment.Center .Cells(i, 2).Value = CBool(ArrData(i, 2)) '値はValueに設定 Next End With End Sub 'エディタとしてのクラスの退避 Dim FpChk As FpCheckBox Dim FpBtn As FpButton 'セルが編集モード移行イベント Private Sub FpSpread1_EditModeOn(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.EditModeOn With Me.FpSpread1.ActiveSheet 'チェックボックス型セルにはCheckChangedイベントハンドラ関連付け If TypeOf (.GetCellType(.ActiveRowIndex, .ActiveColumnIndex)) Is CheckBoxCellType Then FpChk = CType(FpSpread1.EditingControl, FpCheckBox) AddHandler FpChk.CheckChanged, AddressOf FpChk_CheckChanged End If 'ボタン型セルにはClickイベントハンドラ関連付け If TypeOf (.GetCellType(.ActiveRowIndex, .ActiveColumnIndex)) Is ButtonCellType Then FpBtn = CType(FpSpread1.EditingControl, FpButton) AddHandler FpBtn.Click, AddressOf FpBtn_Click End If End With End Sub 'セルが編集モード抜出しイベント Private Sub FpSpread1_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.EditModeOff With Me.FpSpread1.ActiveSheet 'チェックボックス型セルにはCheckChangedイベントハンドラ関連付け解除 If TypeOf (.GetCellType(.ActiveRowIndex, .ActiveColumnIndex)) Is CheckBoxCellType Then FpChk = CType(FpSpread1.EditingControl, FpCheckBox) RemoveHandler FpChk.CheckChanged, AddressOf FpChk_CheckChanged End If 'ボタン型セルにはClickイベントハンドラ関連付け解除 If TypeOf (.GetCellType(.ActiveRowIndex, .ActiveColumnIndex)) Is ButtonCellType Then FpBtn = CType(FpSpread1.EditingControl, FpButton) RemoveHandler FpBtn.Click, AddressOf FpBtn_Click End If End With End Sub Private Sub FpChk_CheckChanged(ByVal sender As Object, ByVal e As System.EventArgs) MsgBox("FpChk_CheckChanged = " & FpChk.CheckState.ToString(), , "CheckBox Test") End Sub Private Sub FpBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim str As String = "" With Me.FpSpread1.ActiveSheet str &= "アクティブ行 = " & .ActiveRowIndex & vbCrLf str &= "アクティブ列 = " & .ActiveColumnIndex & vbCrLf str &= "2カラム目 = " & .Cells(.ActiveRowIndex, 1).Text & vbCrLf str &= "3カラム目 = " & CBool(.Cells(.ActiveRowIndex, 2).Value).ToString & vbCrLf MsgBox(str, , "Button Test") End With End Sub End Class
下図は、最初、フォームが表示され[Button1]をクリックした時の様子です。