痔になりやすい生活習慣とは?

よろしくお願いします。
 フォーム上の問1、問2・・・とフレームを作り各フレームの中にyes、noのオプションボタンを起きます。そして、回答を入力し、チッェクのためにyesの問の番号をフォーム上の空白部に表示させる方法を検討しています。何か簡単でいい方法はないでしょうか。
 現在は、ラベルを配置して一つのラベルに問い3つの状況を表示させるような関数を書いて行っていますが面倒なのでどうにか簡単にしたいのです。

A 回答 (1件)

ぜんぜん面倒じゃないと思います。


問1のオプションボタンのIndexはすべて「1」になります
問2のは2、問3のは3、......

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
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング