vb问题 listbox里面存有数据，如何读取有几行数据

来源：百度知道 编辑：UC知道 时间：2024/05/31 02:41:59
vb问题 listbox控件list1里面存有数据，如何读取有几行数据，并在text1中显示出来
不是这个效果，只要显示有几行就可以了

1.在设计时,将list1的.MultiSelect = 1

2.在command1中添加代码.从list1的0循环到list1.ListCount-1,判断它们的Selected 是不是等于true, 如果是的,添加到text1中..

楼主,我被你打败了.. :(
补充吧:
==================================
新建工程,1个list,1个text,1个按钮
设计时:
Text1.MultiLine = True
List1.MultiSelect = 1

=============
以下是代码:

Private Sub Command1_Click()
Dim i%
Text1 = "你选择了下面这些内容:" & vbCrLf
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then Text1 = Text1 & List1.List(i) & vbCrLf
Next
End Sub

Private Sub Form_Load()
Dim i%
For i = 1 To 10
List1.AddItem "测试第" & CStr(i) & "条"
Next
End Sub

=========================
再晕一次..只要知道list中有几行吗?
只要下面一行代码的.
text1=list1.ListCount