[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2007/07/20(Fri) 13:09
投稿者名：だいこん
Ｅメール：
ＵＲＬ　：
タイトル：チェックボタンについて・・・
オプションボタンは使わずにチェックボタンで
二つコントロール配列にしたとき　  
If Check1(1).Value = 1 Then Check1(2).Value = 0
If Check1(2).Value = 1 Then Check1(1).Value = 0
とすると、チェック2からチェック1のときは一回のクリックでチェック1を押せるのですが、チェック1からチェック2の時は押せなくなるのですが、チェック1を押している時はチェック2を押していない状態、チェック2を押している時はチェック1を押していない状態にするにはどうしたらよいでしょうか？？？
アドバイスお願いします。

投稿時間：2007/07/20(Fri) 13:29
投稿者名：魔界の仮面弁士
Ｅメール：
ＵＲＬ　：
タイトル：Re: チェックボタンについて・・・
> If Check1(1).Value = 1 Then Check1(2).Value = 0
> If Check1(2).Value = 1 Then Check1(1).Value = 0

Then 句で Value を変更した時点で、相手側のイベントが再発生することを考慮しないと。

> どうしたらよいでしょうか？？？

元のコードが単一行形式の If なので、回答も単一行形式で。

Private Sub Check1_Click(Index As Integer)
    If Not (Index = 1 Or Index = 2) Then Exit Sub
    If Check1(Index).Value = vbChecked Then Check1(Choose(Index, 2, 1)).Value = vbUnchecked
End Sub

投稿時間：2007/07/20(Fri) 14:08
投稿者名：だいこん
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: チェックボタンについて・・・
魔界の仮面弁士さんわかりやすい説明と、
コードを書いていただきありがとうございました！！
無事解決いたしました。

投稿時間：2007/07/20(Fri) 14:15
投稿者名：(報告)
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: チェックボタンについて・・・
掲示板利用の際には、その掲示板のルールを守るようにお願いいたします。
マルチポストについて
http://hanatyan.sakura.ne.jp/hazimeni.htm#keijiban

http://hpcgi1.nifty.com/rucio/mb1/mb1.cgi