【求助】怎样将值列表中的多重值赋给一个文本框？

panjianhui

有一值列表，其属性[多重选择]为“简单”，即可以多重选择值列表的值，请问：
1、比如我选择了两个（或多个）值，如何将这几个值合并赋值给一个文本框？
     例如，值列表中，我选择了值AA  ,BB，我要赋值给文本框的值显示为：AABB；
2、如果我选择的值列表是几个数字，能把这几个数字相加赋值给一个文本框吗？
     例如，在值列表中，我选择了值：12，30，我要文本框得到的结果是：42；
以上，请高手指教！

panjianhui

Private Sub List0_Click()
Dim i As Integer
Dim ssum As Double
For i = 1 To List0.ListCount - 1
If List0.Selected(i) Then
ssum = ssum + List0.Column(1, i)
End If
Next
txtSelected = ssum
If ssum = 0 Then
txtSelected = "未选中任何项!"
End If
End Sub

通过搜索找到答案了