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

deandap 2003-03-29 11:38:43

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

...全文

105 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

zyl910 2003-03-29

打赏
举报

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。

northwolves 2003-03-29

打赏
举报

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

WuYunpeng 2003-03-29