VB，如何把Listbox中的内容多项选择放入TextBOX中显示

如题，已有list1，text1，command1，adodc1, Xyz（Access表），X1（表中字段）
text1与X1关联，Xyz的源是adodc1

list1中已有多条数据，现选择N条数据，如何通过command1把多选的这几条数据放入text1中显示出来，以分隔符分开，并将text1中的内容写入Xyz表中X1字段中，分行排列下去呢？试了半天也只能单选。
list的MultiSelect已设置为2，text的Multiline也打开了
请问下具体语句应该如何写，list1_click只能单击关联text1

举报该问题

推荐答案 2011-12-27

List控件的MultiSelect属性,有三个可选值：默认为0，不可多选，请设置为2 就可以多选

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/psvUnDnsU.html

其他回答

第1个回答 2011-12-27

不懂意思，设计时设置 List1.MultiSelect 为2为多选

第2个回答 2011-12-27

recstr=""
for i=1 to list1.listcount
if list1.selected(i)=true then
recstr=recstr & "/" & list1.itemdata(i)
endif
next i
if recstr<>"" then recstr=mid(recstr,2)
form1.text1.text=recstr追问

请问这个写入command1里可以吗？为什么执行说if list1.selected(i)=true then的selected是无效属性数组索引呢？

追答

可以呀，list1.selected(i)=true在access VBA中代表选中的数据，你在VB6里查下和它相等的属性换下试试

追问

请问下有QQ吗，可以具体交流下吗

追答

List1设置属性MultiSelect 为2多选，我刚才查了下VB6支持list1.selected(i)=true这么写的
qq:276191905

本回答被提问者采纳

相似回答

VB编程如何将listbox中选中的多个选项添加至文本输入框?答：假定文本框在Form1，列表框在Form2，则以下代码放在Form2：Private Sub List1_Click()Dim s As String, i As Integer For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then If s <> "" Then s = s & "，"s = s & List1.List(i)End If Next obj.Text = s End Su...

...的选中情况以0(没选)或1(选中)的形式在textbox中显示。答：Private Sub Form_Load()For i = 1 To 7 List1.AddItem "第" & i & "项"Next i End Sub Private Sub List1_Click()For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then s = s & "1"Else s = s & "0"End If Next i Text1.Text = s End Sub ...

请问VB中listbox中有n条记录,怎么样实现点击按钮将所有的项目全部显示...答：Text1 = Text1 & List1.List(i) & "；"Next End Sub

VB listbox查找里面指定的内容并显示在TEXT答：private sub Command1_Click()dim i as Integer for i=0 to list1.listcount-1 if instr(list1.list(i),"这里填入你要查找的内容")<>0 then text1.text=list1.list(i)exit for end if next i end sub

将listbox 中的数据添到richtextbox中(vb,net)答：我用的是VB6.0，代码可能会有所不同。Dim s As String, ss As Long s = RichTextBox1.Text ss = RichTextBox1.SelStart RichTextBox1.Text = Left(s, ss) & List1.Text & Right(s, Len(s) - ss)RichTextBox1.SelStart = ss + Len(List1.Text)RichTextBox1.SetFocus ...

假如一个listbox中的每项是一个网址,请问VB高手,怎样遍历listbox中的每...答：Private Sub Command1_Click()Timer1.Enabled = Not Timer1.Enabled End Sub Private Sub Form_Load()Timer1.Enabled = False Timer1.Interval = 500 End Sub Private Sub Timer1_Timer()List1.ListIndex = List1.ListIndex + 1 Text1 = List1.List(List1.ListIndex)If List1.ListIndex = ...

大家正在搜

如何选择活动内容的依据如何选择复制多个内容如何选择表格里的部分内容四个选择的基本内容四个选择的内容是什么选择要保留的内容以选择为内容的题目教学内容的选择课程内容选择的依据