1,451
社区成员
发帖
与我相关
我的任务
分享如何利用list控件的check属性？
各位老大：
我用list控件查找到了记录，我把list的stytle属性改为1-checkbox,现在我要达到在list里面的记录前打钩，删除打钩的记录，如何写代码？
找了一圈没有找到，请大家帮助，100分相送！
我用list控件查找到了记录，我把list的stytle属性改为1-checkbox,现在我要达到在list里面的记录前打钩，删除打钩的记录，如何写代码？
找了一圈没有找到，请大家帮助，100分相送！
...全文
请发表友善的回复…
发表回复
holydiablo 2003-03-28
- 打赏
- 举报
List.selected(0)=true '给第一个Item打钩，不过这里要注意，这样做也会触发Click事件
3661512 2003-03-28
- 打赏
- 举报
是listview吧?
if listview1.ListItems(index).Checked=True then
ListView1.ListItems.Remove index
end if
if listview1.ListItems(index).Checked=True then
ListView1.ListItems.Remove index
end if
zyl910 2003-03-28
- 打赏
- 举报
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-28
- 打赏
- 举报
Private Sub Command1_Click()
On Error Resume Next
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then List1.RemoveItem i
Next
End Sub
Private Sub Form_Load()
For i = 1 To 10
List1.AddItem i
Next
End Sub
On Error Resume Next
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then List1.RemoveItem i
Next
End Sub
Private Sub Form_Load()
For i = 1 To 10
List1.AddItem i
Next
End Sub
dragon525 2003-03-28
- 打赏
- 举报
同意 3661512(菜鸟一只)
