vb中怎样把单选框或复选框对应的选项在文本框中显示

用个条件语句模式描述一下：
if 单选框或复选框(名)value then
text1Text=单选框或复选框(名)caption
end if
楼主看情况做吧！

你说的复选框是combol吧
我很菜可我觉得datagrid中好象不能加combol更不用说复选框了,我是这么解决的:做一个combol在指定的位置,当鼠标点击到指定位置时combol出现,选种一个值回车后把combol的值赋给该记录

Private Sub Form_Load()
'属性栏内设置：List1Style = 1
'初始化
For i = 65 To 69
List1AddItem Chr(i)
Next i
MeShow
'设置a,c,e选中
For i = 0 To List1ListCount - 1
If LCase(List1List(i)) = "a" Then
List1Selected(i) = True
MsgBox List1List(i) & "选中了，谢谢"
End If
If LCase(List1List(i)) = "c" Then
List1Selected(i) = True
MsgBox List1List(i) & "选中了，谢谢"
End If
If LCase(List1List(i)) = "e" Then
List1Selected(i) = True
MsgBox List1List(i) & "选中了，谢谢"
End If
Next i
End Sub

If DataGridView1CurrentRowCells(3)Selected = True Then
If MessageBoxShow("确定要删除", MeText, MessageBoxButtonsYesNo, MessageBoxIconNone) = WindowsFormsDialogResultYes Then
Dim s As String = "delete from tablename where id=" & DataGridView1CurrentRowCells(0)Value
'执行删除 *** 作
End If
Else
MessageBoxShow("未选中任何信息")
End If
需要先编辑DataGridView的列，在里面的ColumnType里选择CheckBox即可

value——返回或设置复选框的状态。其值为0时(默认值，对应常数为vbUnchecked)，表示复选框没有选中；为1时（对应常数为vbchecked），表示复选框处于选中状态；为2时，表示复选框前面的v处于灰色模糊状态（对应常数为vbGrayed）。Enabled——表示复选框当前是否可用。其值为True时，表示复选框为正常可用状态；为False时，表示复选框处于不可用状态，此时运行时选择项内容变为雕刻状。Check Box控件与Option Button控件有些相似，但在使用时有一个很大的不同，即CheckBox控件是彼此独立工作的，它们互不相干，没有丝毫的制约关系。只要您愿意，全选上或者一个也不选都可以。CheckBox复选框控件有时也以组的形式出现，但即使是这样，它们仍然是毫不相干的，给它们分组只是为了使界面上的复选框显得含义清楚，比如我们总是把反映同一问题的复选框归为一组。（2）常用事件——Click（不支持双击）事件CheckBox控件的常用事件为Click事件，用户的单击 *** 作即触发该事件。（3）例子：每次单击复选框控件时都将使其Caption属性以指示选中或未选中状态（见教材P122）。Private Sub Check1_Click()If Check1Value = 1 Then '当check1被选中时Check1Caption = "checked"ElseIf Check1Value = 0 ThenCheck1Caption = "unchecked"End IfEnd Sub响应鼠标和键盘：在键盘上使用[TAB]键并按[空格]键，由此将焦点转移到复选框控件上，也会触发复选框控件的Click事件。也可以在Caption属性的一个字母之前添加连字符“&”，创建一个键盘快捷方式来切换复选框控件的选择。如上例中：Private Sub Check1_Click()If Check1Value = 1 Then '当check1被选中时Check1Caption = "&checked" '定义快捷键ElseIf Check1Value = 0 ThenEnd IfEnd Sub则按“Alt+c”组合键将使控件在选中和未选中之间切换。注意：这种快捷键定义方法对于菜单和许多其它控件同样适用。

答案修改：原来如此啊。以下是修改完毕的代码。
建command1,command2,command3,command4,check1,check2,check3
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub Run()
If Check1Value = vbChecked Then
Open "c:\test\file1txt" For Output As 1
Print #1, InputBox("A")
Close
End If
If Check2Value = vbChecked Then
Open "c:\test\file2txt" For Output As 2
Print #2, InputBox("B")
Close
End If
If Check3Value = vbChecked Then
Open "c:\test\file3txt" For Output As 3
Print #3, InputBox("C")
Close
End If
End Sub
Private Sub Command1_Click()
Check1Value = vbChecked
Check2Value = vbChecked
Check3Value = vbUnchecked
End Sub
Private Sub Command2_Click()
Run
MsgBox "执行完毕"
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Run
Command1_Click
MsgBox "已还原"
End Sub
Private Sub Form_Load()
Command1Caption = "默认"
Command2Caption = "确定"
Command3Caption = "取消"
Command4Caption = "还原"
Check1Caption = "A"
Check2Caption = "B"
Check3Caption = "C"
Check1Value = vbChecked
Check2Value = vbChecked
End Sub

---