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

タイトル (解決)複数チェックボックスの連動について
投稿日: 2008/08/12(Tue) 18:59
投稿者ダリア
るしぇ様へ

早速のアドバイスありがとうございます。
フラグを使うことは全く頭になくて、目から鱗の思いです。
おかげさまで上手く動くことが出来ました。
ありがとうございます。

フラグを2つ使ったプログラムを以下に載せます。
(A_CHECKにもフラグが要りますよね?)

Private Sub A_CHECK_ALL_Click()

    Dim i As Integer
    
    Flag_A_ALL = True
    
    If Flag_A = False Then
    
    With frmDiagSelect
        If .A_CHECK_ALL.Value = 1 Then
            For i = 0 To 7
            
                If .A_CHECK(i).Enabled = True Then
                    .A_CHECK(i).Value = 1
                End If
                
            Next i
        Else
            For i = 0 To 7
                .A_CHECK(i).Value = 0
            Next i
        End If
    
    End With
    
    End If
    
    
    Flag_A_ALL = False
    

End Sub

Private Sub A_CHECK_Click(Index As Integer)
    
    Flag_A = True
    
    If Flag_A_ALL = False Then
  
    With frmDiagSelect
        For Index = 0 To 7
            If .A_CHECK(Index).Value = 0 And .A_CHECK(Index).Enabled = True Then
                .A_CHECK_ALL.Value = 0
                Flag_A = False
                Exit Sub
            End If
        Next Index
        
        .A_CHECK_ALL.Value = 1
    
    End With
    
    End If
    
    Flag_A = False
    
End Sub

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

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