ListBox代码取消多项选择

FL-求知 · 发表于 2018-8-13 10:20

本帖最后由 FL-求知于 2018-8-15 08:02 编辑

如何实现运行代码后取消ListBox已选中的多项选择，ListBox单项选择可以使用ListIndex=-1实现，多项选择是否可使用Selected属性实现？

xyxcc177 · 发表于 2018-8-13 10:25

用listview,listbox无此功能

microyip · 发表于 2018-8-13 10:24

重写ListBox的List数组

FL-求知 · 发表于 2018-8-13 11:41

xyxcc177 发表于 2018-8-13 10:25
用listview,listbox无此功能

了解，谢谢

FL-求知 · 发表于 2018-8-13 12:04

microyip 发表于 2018-8-13 10:24
重写ListBox的List数组

嗯，也是一种新的间接思路。
1.Unload Me，再加载窗体；
2.ListBox.clear，重写数组；

microyip · 发表于 2018-8-13 13:13

FL-求知发表于 2018-8-13 12:04
嗯，也是一种新的间接思路。
1.Unload Me，再加载窗体；
2.ListBox.clear，重写数组；

不用unload,直接clear，直接再赋值

山菊花 · 发表于 2018-8-13 13:39

ListBox1.Selected(x) = False

FL-求知 · 发表于 2018-8-13 13:43

microyip 发表于 2018-8-13 13:13
不用unload,直接clear，直接再赋值

我说的是两种思路，你的是第二种思路，第一种思路是我之前的想法

FL-求知 · 发表于 2018-8-13 13:45

本帖最后由 FL-求知于 2018-8-13 15:52 编辑

山菊花发表于 2018-8-13 13:39
ListBox1.Selected(x) = False

试过，好像不行重新试了，可以的，谢谢

ivccav · 发表于 2018-8-13 13:47

可以用Selected 属性，循环Listbox，判断行是否选中，如果选中就取消选中，例如

For i = 0 To 100
If ListBox1.Selected(i) Then ListBox1.Selected(i) = False

当然也可以用Listview，教程如下：http://club.excelhome.net/thread-1424969-1-1.html

		自动登录	找回密码
密码			免费注册

[已解决] ListBox代码取消多项选择