|
分類:[VB.NET/VB2005 以降]
Private Sub cmdCheck_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles _cmdCheck_0.Click, _cmdCheck_1.Click, _cmdCheck_2.Click Dim Index As Short = GetIndex(eventSender) ' ■変数定義 Dim wLP_CNT As Integer = 0 For Each dgr As DataGridViewRow In DataGridView1.Rows
' ■押下されたボタンにより処理 Select Case Index Case 0 ' 全てチェック DataGridView1(0, wLP_CNT).Value = True Case 1 ' 全て取消 DataGridView1(0, wLP_CNT).Value = False Case 2 ' チェック反転 If CType(dgr.Cells("cCheck").Value, Boolean) Then DataGridView1(0, wLP_CNT).Value = False Else DataGridView1(0, wLP_CNT).Value = True End If End Select wLP_CNT += 1 Next End Sub
上記のコードで、全てチェック、全て取消はうまくいくのですが、 チェック反転(チェックがある時は「False」チェックなしの時は「True」)の 処理だけがうまく反転せず、全てにチェックが入ります。
お解りの方、よろしくお願いします。
前提条件 ・環境:VB2008 OS:Win7
|