- 締切済み
YESのオプションボタンがONになっているフレーム番号をフォーム上に表示する方法
よろしくお願いします。 フォーム上の問１、問２・・・とフレームを作り各フレームの中にyes、noのオプションボタンを起きます。そして、回答を入力し、チッェクのためにyesの問の番号をフォーム上の空白部に表示させる方法を検討しています。何か簡単でいい方法はないでしょうか。 現在は、ラベルを配置して一つのラベルに問い３つの状況を表示させるような関数を書いて行っていますが面倒なのでどうにか簡単にしたいのです。
- mike001
- お礼率64% (9/14)
- Visual Basic
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- kikujack
- ベストアンサー率47% (17/36)
回答No.1
ぜんぜん面倒じゃないと思います。 問１のオプションボタンのIndexはすべて「1」になります 問２のは２、問３のは３、...... Private Sub Command1_Click() Dim result As String For Each Control In Me.Controls If TypeOf Control Is OptionButton Then If Control.Value Then result = result & vbCrLf & "問" & Control.Index & ":" & Control.Caption End If End If Next Label1.Caption = result End Sub
