杭州交通信息网凡尔赛宫周一闭馆吗:VB-关于一个LISTVIEW 对文件操作的问题!
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/04 11:15:47
问题:先按找以下代码配置LISTVIEW1:
LISTVIEW1.ColumnHeaders.Add , , "垃圾地址", 1500
LISTVIEW1.ColumnHeaders.Add , , "垃圾类型", 1500
LISTVIEW1.LabelEdit = lvwManual
LISTVIEW1.FullRowSelect = True
LISTVIEW1.HideSelection = False
LISTVIEW1.HideColumnHeaders = False
LISTVIEW1.View = lvwReport
-------------
然后点击按钮CMD1:
Set plus = lvwPrss.ListItems.Add(, , "C:\1.EXE") '这个"C:\1.EXE"是自己添加上去的,它会不段增多,直到到n个.
plus.SubItems(1) = "垃圾文件就是垃圾" '这个是固定的,名字全都是这个
______________
LISTVIEW1 有复选框.
--------------
然后点击CMD2,如何实现把在LISTVIEW1中的复选框选中,然后用KILL命令把复选框里显示的地址的垃圾文件删除?
LISTVIEW1.ColumnHeaders.Add , , "垃圾地址", 1500
LISTVIEW1.ColumnHeaders.Add , , "垃圾类型", 1500
LISTVIEW1.LabelEdit = lvwManual
LISTVIEW1.FullRowSelect = True
LISTVIEW1.HideSelection = False
LISTVIEW1.HideColumnHeaders = False
LISTVIEW1.View = lvwReport
-------------
然后点击按钮CMD1:
Set plus = lvwPrss.ListItems.Add(, , "C:\1.EXE") '这个"C:\1.EXE"是自己添加上去的,它会不段增多,直到到n个.
plus.SubItems(1) = "垃圾文件就是垃圾" '这个是固定的,名字全都是这个
______________
LISTVIEW1 有复选框.
--------------
然后点击CMD2,如何实现把在LISTVIEW1中的复选框选中,然后用KILL命令把复选框里显示的地址的垃圾文件删除?
又被我撞到了 哈
with listview1.listitems
for i=.count to 1 step -1
if item(i).checked then '勾选了
kill item(i).text '删除文件
remove i '移除条目
end if
next
end with