タイトル : 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 |