|
▼もっち さん:
お早うございます。
以下を条件にして、作成しました。
1.チェックボックスはフォーム上に配置
2.チェックボックスの配置並びは以下である
異常 正常
1 2
3 4
5 6
3.チェックボックスの名前は『CheckBox』&1〜
Private Sub CheckBox1_Click()
Call chk_ChkBoxValue(0)
End Sub
Private Sub CheckBox2_Click()
Call chk_ChkBoxValue(1)
End Sub
以下続く
・
・
Sub chk_ChkBoxValue(ctlID As Integer)
' 呼び出し元のチェックボックスはチェックされている
If (Me.Controls(ctlID).Value = True) Then
' 呼び出し元は異常である
If (CInt(Mid(Me.Controls(ctlID).Name, 9)) Mod 2 = 1) Then
Me.Controls(ctlID + 1).Value = False
' 呼び出し元は正常である
Else
Me.Controls(ctlID - 1).Value = False
End If
End If
End Sub
上記で、異常がチェックされた時に対応する正常のチェックが外されます。
私の知識では上記が限界で、どうしてもそれぞれのチェックボックスに
Call chk_ChkBoxValue(1)と設定しなければなりません。
デリゲートが使えればもっと美しいかとは思うんだけど;
|
|