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

タイトル Re^2: 複数チェックボックスの連動について
投稿日: 2008/08/12(Tue) 18:19
投稿者るしぇ
> 一旦、質問を下げて後日、改めた方がよろしいでしょうか。
花ちゃんに『返事が遅い!』って怒られるだけで、来週ちゃんと対応してくれる
ならボクはこのままでいいと思うけど?w

>ClickイベントはChangeイベントと同義なので、とうぜんながらA_CHECKの値が変わった途端に
>A_CHECKのイベントが発生してしまいます。
つまりコードから変更した時にフラグで判別できればいいのでは?

[VB6.0]
Option Explicit

Private m_CodeCommand As Boolean

'A_CHECK_ALLのイベント
Private Sub A_CHECK_ALL_Click()
    Dim i As Integer
    
    m_CodeCommand = True
    With Me
        If .A_CHECK_ALL.Value = 1 Then
            For i = 0 To 7
                .A_CHECK(i).Value = 1
            Next i
        Else
            For i = 0 To 7
                .A_CHECK(i).Value = 0
            Next i
        End If
    End With
    m_CodeCommand = False
    
End Sub

'A_CHECKのイベント
Private Sub A_CHECK_Click(Index As Integer)
    If m_CodeCommand = False Then
        Debug.Print "A_CHECK_Click" & Index
    End If
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

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