投稿時間: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
|