オプションボタンについて

質問

２個のオプションボタンがあってどちらか１個を選んでコマンドボタンを押すと選んだほうのフォームが開くようにするにはどうしたらいのですか？。

初歩的なことで本当に申し訳ないのですがどこを探してもサンプルがなかったので質問させていただきました。

回答No.2

imogasi · ベストアンサー

Private Sub Option1_Click()
Form2.Visible = False
Form3.Visible = True
Form3.Show
End Sub

Private Sub Option2_Click()
Form3.Visible = False
Form2.Visible = True
Form2.Show
End Sub
これではだめでしょうか。

補足

それでもよいといえばよいのですが＾＾；
コマンドボタンを使いたかったのですがコマンドボタンにどちらが選択されたかという値を取得させてからつぎのフォームを表示させることは可能でしょうか？

回答No.6

TAGOSAKU7

×　Form2.Load
○　Load Form2

×　Show.Form2
○　Form2.Show

がんばれ

お礼

おかげさまで解決しました！
ありがとうございました。感動です＾＾

回答No.5

TAGOSAKU7

＃1の回答への「補足」と「お礼」がどっちが先に書かれた物かがわからないので、VBかVBAかがわかりませんが、質問者のこれまでの質問履歴からVBと判断して書きます。

私の場合は、まずオプションボタンをコントロール配列にします。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=413867
クリックイベント時に、先頭のオプションボタンコントロールなどのTagか、あるいは共通変数にIndex値を記憶させて、コマンドボタンクリック時にIndex値を読み取ることで、処理を分岐させてあげたらよいと思います。

もし、どのオプションボタンが有効かをコマンドボタンクリック時に探しに行くとしたら、オプションボタンの数だけループするロジックが必要になります。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=395834
最悪なケースとしては、ループの一番最後がTrueの時、全てのコントロールの値をチェックしなければなりません。
チェックボックスなどの、複数選択が可能なコントロールに対して行うべき処理であって、確実に一個しか選択されないオプションボタンでは無用な処理となります。

ですので、オプションボタンクリック時に、Indexを保持することをおすすめします。

>２個のオプションボタンがあって
２個から増えないなら、どっちでもよい話ですが・・・・

お礼

ありがとうございます。ＩＮＤＥＸをつかって挑戦してみます＾＾

回答No.4

taknt

ＶＢの場合は、バージョンも明記したほうがいいですよ。
あと、今までの回答でわからないところは、あるのでしょうか？
ＶＢとＶＢＡで似てる部分は、多いので 参考には なると思うのですが。

補足

使ってるのは
ＶＢ６．０　windows developmentでした

自分なりにtaｋｎtさんのものをさんこうにして作ってみましたがデータまたはメソッドが見つかりませんとでましたがこれは何が原因でしょうか＾＾；
なんどもすみませんm( _ _ )m
Private Sub Command1_Click()
If Option1.Value = True Then
Form2.Load
Show.Form2
Else
Form3.Load
Show.Form3
End If
End Sub

回答No.3

taknt

＞どちらが選択されたかという値を取得させてからつぎの

二つのオプションボタンを同じグループにしとけば
片方のみのチェックでいいですよ。
片方が Value=true ならば、もう片方は みなくても Value=false ですからね。

回答No.1

taknt

プロパティのGroupNameを同じにすればそのオプションボタンは、同じグループににります。

それで どちらかのＦｏｒｍが開くかというこですが、
片方のオプションボタンのプロパティのValueが Trueか そうでないかで
判断して Ｆｏｒｍを開いたらいいと思いますよ。

if OptionButton1.Value=true then Form1を開く処理

とかいうふうにすればいいでしょう。

ちなみに ＶＢＡでいいのかな？

お礼

はい！ＶＢＡでいいです！！たすかりました＾＾ありがとうございます
m( _ _ )m

補足

ごめんなさい＞＜
ＶＢでした・・ほんとうにごめんなさい。