一个关于vb中datalist(或listbox)的问题
怎样才能得到list中选取的项目名称的返回呢?好像这样————————————————————listasdfrtfgwerbdfb———————————————————...
怎样才能得到list中选取的项目名称的返回呢?
好像这样
————————————————————
list
asdf
rtfg
wer
bdfb
————————————————————
我用鼠标选了asdf这项,我想让某个textbox得到"asdf"这几个字,怎样弄?谢 展开
好像这样
————————————————————
list
asdf
rtfg
wer
bdfb
————————————————————
我用鼠标选了asdf这项,我想让某个textbox得到"asdf"这几个字,怎样弄?谢 展开
1个回答
展开全部
'当你点击列表框控件时,就会将你在列表框控制中选择
'的项目显示到文本中,不过只能显示单个选择
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
'的项目显示到文本中,不过只能显示单个选择
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询