Question

vb 在线急等 怎样把检查框选定内容显示在文本框

在程序初始化部分将主要菜系信息和口味信息存入组合框中。
程序运行后，输入菜名编号、菜名；在中餐/西餐单选框中选择中餐或西餐；在菜系组合框中选取菜系、在口味组合框中选取口味；在主要食材检查框中选中用到的食材。
单击“输入”按钮，将所有信息显示在菜名信息文本框中。注意，随着输入的进行，每条菜名信息占一行。
在输入过程中要累计输入的菜名条数，并显示在“共输入xx条”的文本框处。

Answer 1

Private Sub Check1_Click()
If Check1.Value = 1 Then
If InStr(" " & Text1.Text & " ", " " & Check1.Caption & " ") = 0 Then
Text1.Text = Text1.Text & Check1.Caption & " "
End If
Else
If InStr(" " & Text1.Text & " ", " " & Check1.Caption & " ") > 0 Then
Text1.Text = Replace(Text1.Text, Check1.Caption & " ", "")
End If
End If
End Sub

Answer 2

Private Sub Command1_Click()
Dim obj
Text1 = ""
For Each obj In Controls
If TypeName(obj) = "CheckBox" Then
If obj.Value = 1 Then
Text1 = Text1 & obj.Caption
End If
End If
Next
End Sub
Private Sub Form_Load()
Check1.Value = 1
End Sub