button1をクリックすると、選択されたラジオボタンとmsgboxのチェックボックスが表示されます。VB

Question

これで、選択したラジオボタンとチェックボックスでButton1をクリックするとMessageBoxが作成されます。ここで

はデザインだ：

そして私は、出力はこのような何かになりたい：

は、これを行うの

Answer 1

良い方法であることがありがとうグループボックスのコントロールをループし、チェックボックスがチェックされているかどうかをチェックし、そうであればそれをいくつかのstrに追加するそれは解決策にいくつかのより多くの光を提供is.Toとして、すべてのチェックがmessagebox.Simpleを使用して文字列を完全に表示された後ing.Andコントロール

 Dim strfinal As String 
     For Each gb As Control In Me.Controls 
      If gb.GetType() Is GetType(GroupBox) Then 
       Dim str As String 
       str = gb.Text 
       For Each c As CheckBox In gb.Controls 
        If c.Checked = True Then 
         str = str + vbNewLine + c.Text 
        End If 
       Next 
       If str <> "" Then 
        strfinal = strfinal + vbNewLine + str 
       End If 
      End If 
     Next 

と表示をループ以下のコード

を通過してくださいメッセージボックス内

If strfinal <> "" Then 
      MessageBox.Show(strfinal, "somecaption", MessageBoxButtons.OK) 
End If 

これは役に立ちます。あなたはトッピングが含まれているgroubBoxの名前は「ToppingsGroupBox」と同じであるとき、Button1の上で押したときにここで

Dim Toppings As String = "Toppings:" & VbCrlf 
Dim TSize As String = "Size:" 
Dim CrustType As String = "Crust Type:" 

：

Answer 2

このコードは、まさに上記の写真2のように、あなたに結果を与えるために起こっています他のグループボックスのために：

For Each CB As CheckBox In ToppingsGroupBox.Controls 
    If CB.Checked Then 
     Toppings &= "-" & CB.Text & VbCrlf 
    End If 
End Each 

For Each RB As RadioButton In SizesGroupBox.Controls 
    If RB.Checked Then 
     TSize &= RB.Text 
    End If 
End Each 

For Each RB As RadioButton In CurstTypeGroupBox.Controls 
    If RB.Checked Then 
     CurstType &= RB.Text 
    End If 
End Each 

If DineInRadioBox.Checked Then 
    MsgBox(TSize & VbCrlf & CurstType & Toppings & "*Dine In") 
Else 
    MsgBox(TSize & VbCrlf & CurstType & Toppings & "*Take Out") 
End If 

希望あなたが