タイトル : 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 ------------ここまでコード------------ |