Question

VB中复选框跟单选按钮

是这样的
我想做一个 首先
中间TEXT
左边复选框(运动项目) 右边单选按钮(颜色)
下面有个command
效果:选择复选框的内容 再选择单选按钮后 按command就可以在TEXT上显示出我所选择的结果 有高手能写下代码 本人就十分感谢他了

Answer 1

先设几个复选框的控件数组，就举5个为例，名字为check1(0),check1(1)....check1(4);再弄几个单选框，也5了，名字是option1(0),option1(1)..
option1(4),一个text1和command1，
代码如下：
Private Sub Command1_Click()
Dim s As String, i As Integer

For i = 0 To 4
If Check1(i).Value = 1 Then
s = s & "项目 " & Check1(i).Caption End If
Next

For i = 0 To 4
If Option1(i).Value = True Then '选中
s = s & "颜色 " & Option1(i).Caption Exit For
End If
Next

Text1.Text = s
end if

Answer 2

设复选框check(0~9)，单选框opt(0~5)

dim s as string,i as integer

for i = 0 to 9
if check(i).value = 1 then 'checked
s = s & "项目 " & check(i).caption & vbcrlf
end if
next

for i = 0 to 5
if opt(i).value = true then '选中
s = s & "颜色 " & opt(i).caption & vbcrlf
exit for
end if
next

text1.text = s 'text1多行开启

Answer 3

dim str1,str2,str3 as str
check1:
if check1.value=1 then
str1=check1.caption
else
str1=""
end if
command1:
text1.text="xxx" & str
option1:
text1.backcolor=rgb(0,255,0)