我好像写的比你麻烦点Dim tb As WinForm.TextBox = e.Form.Controls("TextBox1")For Each c As WinForm.Control In e.Form.Controls
If Typeof c Is WinForm.groupbox Then
Dim t As WinForm.groupbox = c
For Each b As WinForm.RadioButton In t.Children
If b.Checked =True
tb.Value+= b.Text & Chr(13) & Chr(10)
End If
Next
End If
Next
文本框是测试用
[此贴子已经被作者于2015/6/28 23:15:28编辑过]