tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re: チェックボックスのONOFFの判定
投稿日： 2009/08/28(Fri) 14:28
投稿者： 太郎冠者
とりあえず各県のイベント処理をまとめてみました
hukuoka_CheckedChanged〜okinawa_CheckedChangedがPrefecturesInKyusyuRegion_CheckedChangedに
まとまっています。

------------ここからコード------------

Private flg As Integer  'チェックフラグ(0：すべて／1：九州のみ)

Private Sub main()
    flg = 0
    AllChange(False)
End Sub

'九州のCheckedChangedイベント
Private Sub kyushu_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kyushu.CheckedChanged
    If flg = 0 Then
        If kyushu.Checked = True Then
            AllChange(True)
        Else
            AllChange(False)
        End If
    End If
End Sub

'九州地方の各県のCheckedChangedイベント
Private Sub PrefecturesInKyusyuRegion_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hukuoka.CheckedChanged
    If AllChecked Then
        '全部ONならON
        kyushu.Checked = True
    Else
        '一つでもOFFならOFF
        flg = 1
        kyushu.Checked = False
        flg = 0
    End If
End Sub

Private Sub AllChange(ByVal val As Boolean)
    hukuoka.Checked = val
    saga.Checked = val
    nagasaki.Checked = val
    ooita.Checked = val
    miyazaki.Checked = val
    kumamoto.Checked = val
    kagosima.Checked = val
    okinawa.Checked = val
End Sub

'各県のチェックボックスのチェック状態をチェック
Private Function AllChecked(ByVal val As Boolean) As Boolean
    If hukuoka.Checked = True And _
       kumamoto.Checked = True And _
       saga.Checked = True And _
       ooita.Checked = True And _
       nagasaki.Checked = True And _
       miyazaki.Checked = True And _
       kagosima.Checked = True And _
       okinawa.Checked = True Then
      
       Return True
    Else
       Return False
    End IF
End Sub

------------ここまでコード------------
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。