list控件属性设置为check后，可以对list中的记录打钩，表示选中这条记录，如何获取选中记录内容？

[deandap]

list控件属性设置为check后，可以对list中的记录打钩，表示选中这条记录，如何获取选中记录内容？例如：list里面有下面三条记录
姓名：1 性别：男
姓名：2 性别：女
姓名：3 性别：人妖
如果选中前两条，如何获得选中记录的内容，代码怎么写？100分送给大家！

[WuYunpeng]

用循环对LIST里面的各项逐个测试并获得。

[deandap]

我知道如何选，就是怎么获得记录内容？例如
for i=0 to list1.listcount-1 step 1
if list1.selected(0)=true then
a=list1.内容
endif
next i

中间的内容怎么取？

[WuYunpeng]

是Text属性

[WuYunpeng]

大概是这个吧，我有些记不清了。
list1.listindex(i).text

[northwolves]

Private Sub Command1_Click()
Dim a As String
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then a = a & vbCrLf & List1.List(i)

Next
MsgBox a
End Sub

Private Sub Form_Load()
List1.AddItem "姓名：1 性别：男"
List1.AddItem "姓名：2 性别：女"
List1.AddItem "姓名：3 性别：人妖"
List1.Selected(0) = True
List1.Selected(1) = True
End Sub

[zyl910]

Selected 属性


返回或设置在 FileListBox 或 ListBox 控件中的一个项的选择状态。该属性是一个与 List 属性一样、有相同项数的布尔值数组。在设计时是不可用的。

语法

object.Selected(index) [= boolean]

Selected 属性的语法包含下面部分：

部分 描述
Object 对象表达式，其值是“应用于”列表中的一个对象。
Index 控件中项的索引号。
Boolean 一个用来指定项是否被选中的布尔表达式，“设置值”中有详细描述。


设置值

boolean 的设置值为：

设置值 描述
True 表示项被选中。
False （缺省值）表示项没有被选中。


说明

此属性对能够复选是尤其有用的。可以快速检查在列表中哪些项已被选中。也可以从代码中使用该属性选中或取消选中列表中的一些项。

如果 MultiSelect 属性被设置为 0，那么可以使用 ListIndex 属性来获得选中项的索引尽管如此，在复选中，ListIndex 属性返回的是包含在焦点矩形框内的项的索引，而不管该项是否真正被选中。

如果 ListBox 控件的 Style 属性设置为 1（复选框），那么 Selected 属性只对其复选框被选中的项返回 True。Selected 属性对那些只是显示为高亮度的项不返回 True。