vb里option按钮里值

18362374790

[mw_shl_code=vb,true]Option Explicit
Dim x4$, x2$, x1$, x3$, s$

Private Sub xingbie_DragDrop(Source As Control, X As Single, Y As Single)
If Option1.Value Then x1 = Option1.Caption
Else: x1 = Option2.Caption
End If
End Sub

Private Sub xueli_DragDrop(Source As Control, X As Single, Y As Single)
If Option3.Value Then x2 = Option3.Caption
Else: If Option4.Value Then x2 = Option4.Caption
Else: x2 = Option5.Caption
End If
End Sub

Private Sub aihao_DragDrop(Source As Control, X As Single, Y As Single)
If Check1.Value Then x4 = Check1.Caption
If Check2.Value Then x4 = x4 & " " & Check2.Caption
If Check3.Value Then x4 = x4 & " " & Check3.Caption
If Check4.Value Then x4 = x4 & " " & Check4.Caption
End Sub

Private Sub Command1_Click()
s = s & xingbie.Caption & ":" & x1 & vbCrLf
s = s & xueli.Caption & ":" & x2 & vbCrLf
s = s & zhiye.Caption & ":" & x3 & vbCrLf
s = s & aihao.Caption & ":" & x4 & vbCrLf
Label3.Caption = s
End Sub
[/mw_shl_code
这怎么搞得

奕余君

X1对应性别 X2对应学历 X3没看到 就是选中哪个那么X的值就变成选中项目的项目名
列如在学历中选中大专那么X2的值就是“大专“
X4是爱好 是多选的的 如果选中了旅游那么值就是旅游，而后在选中体育那么就会使用&符号连接旅游和体育变成  X4=旅游 体育
最后则是连接在一起  VBCRLF是换行的意思
第一行X1的值 换行
X1的值用&连接X2的值 换行
连接X3的值
以此类推