一个关于vb中datalist（或listbox）的问题

来源：百度知道 编辑：UC知道 时间：2024/05/18 19:21:05
怎样才能得到list中选取的项目名称的返回呢？
好像这样

————————————————————
list

asdf
rtfg
wer
bdfb
————————————————————
我用鼠标选了asdf这项，我想让某个textbox得到"asdf"这几个字，怎样弄？谢

'当你点击列表框控件时,就会将你在列表框控制中选择
'的项目显示到文本中,不过只能显示单个选择
Private Sub List1_Click()
'Text1为文本框控件
'List1为列表框控件
Text1 = List1.List(List1.ListIndex)
End Sub

'下面的代码是用于显示多个选择的
'显示多个选择的代码如下
Private Sub List1_Click()
Dim i As Integer
Dim strTmp As String

For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
strTmp = strTmp & List1.List(i) & ","
End If
Next

Text1 = strTmp
End Sub