2个回答
展开全部
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim fuxuan As CheckBox = New CheckBox
Dim danxuan As RadioButton = New RadioButton
fuxuan.Parent = Me
danxuan.Parent = Me
fuxuan.Location = New Point(100, 17)
danxuan.Location = New Point(240, 17)
fuxuan.Checked = True
TextBox1.Text = fuxuan.Checked.ToString + " " + danxuan.Checked.ToString
End Sub
要几个自己添加和设置
Dim fuxuan As CheckBox = New CheckBox
Dim danxuan As RadioButton = New RadioButton
fuxuan.Parent = Me
danxuan.Parent = Me
fuxuan.Location = New Point(100, 17)
danxuan.Location = New Point(240, 17)
fuxuan.Checked = True
TextBox1.Text = fuxuan.Checked.ToString + " " + danxuan.Checked.ToString
End Sub
要几个自己添加和设置
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询