VBのチェックボックス、オプションボタン、テキストボックス

質問

以前にたような質問したのですがうまくいかなかったので改めて質問します。
チェックボックスを使ってテキストに文字を表示させる。
オプションボタンを使ってテキストに文字を表示させる。この２つは簡単にできるのですが、これを組み合わせて、チェックをしたときはオプションボタンで表示されたものと違う表示をしたいのですがうまくいきません。
構成はチェックボックスが２つ、オプションボタン4つ。テキストボックスが４つです。テキストボックスはチェックボックスとオプションボタンそれぞれ同じものをつかっています。わかる方教えてください。説明がわかりにくいかもしれませんが・・

回答No.3

kmor · ベストアンサー

すみません、質問の内容が良くわかりません。
要するに
・チェックだけの場合は”チェック”
・オプションだけの場合は”オプション”
・チェックとオプションの場合は”両方”
と言った感じでしょうか。

'チェックボックスがクリックされた
Private Sub Check1_Click()
Call textcheck
End Sub

'オプションボタン1がクリックされた
Private Sub Option1_Click()
Call textcheck
End Sub

'オプションボタン2がクリックされた
Private Sub Option2_Click()
Call textcheck
End Sub

'表示文字判定
Sub textcheck()
If Check1.Value = 0 Then 'CheckBox Off ?
If Option1.Value = True Then 'Option1 ?
Text1.Text = "オプション1"
Else 'Option2
Text1.Text = "オプション2"
End If
Else 'CheckBox On
Text1.Text = "両方"
End If
End Sub

で出来ると思います。

お礼

回答ありがとうございました。だいたい教えていただいたのでできそうなきがします。

回答No.2

BlueRay

以前と同じ書き方では、回答者側はあなたの望む回答は出来ませんよ。

文章自体わかりづらいのですから、図で表現するか
「何をどうすればどうなるか」みたいな流れを書くとかしないと・・・

とても問題を読み取れるような質問では無い気がします。

回答No.1

imogasi

＞説明がわかりにくいかもしれませんが・
わかりにくいです。
＞組み合わせて、チェックをしたときはオプションボタンで表示されたものと違う表示をしたいのですがうまくいきません。
どんな必要性があって、何を考えているのか。
＞テキストボックスはチェックボックスとオプションボタンそれぞれ同じものをつかっています。
○チェックボックス＝ONの影響はテキスト０－３までの
どこまで及ぶのか。
ONであればText0="a1",Text1="a2",Text2="a3",Text3="a4"
Offなら
Text0="b1",Text1="b2",Text2="b3",Text3="b4"
と表示を変えるのですか。