投稿日 | : 2007/04/04(Wed) 14:49 |
投稿者 | : いな |
Eメール | : |
URL | : |
タイトル | : Re: チェックボックスについて |
> フォームに10個のチェックボックスを配置(配列)
フォームへチェックボックスの配置の仕方でだいぶやり方が
変わってくると思いますが、
コントロール配列(Indexプロパティに値0や1など)が入っている場合
Private Sub Check1_Click(Index As Integer)
Dim nCnt As Integer
If Check1(Index).Value = vbChecked Then
'チェックされたときの処理
For nCnt = 0 To 9
If Index <> nCnt Then
'その他のチェックボックスは非活性
Check1(nCnt).Enabled = False
'同時にチェックをはずしたい場合は下記コメントを有効に
' Check1(nCnt).Value = False
End If
Next nCnt
ElseIf Check1(Index).Value = vbUnchecked Then
'チェックはずしたときの処理
For nCnt = 0 To 9
Check1(nCnt).Enabled = True
Next nCnt
End If
End Sub