vb ListView1 索引问题

Question

如题所述

Answer 1

当前选中如果你没有设置为多选就是用鼠标按住左键拖动就可以选择的时候
lv1.selecteditem就是当前选中的
'判断是否有选中的行
，如果没有就是nothing
if
(not
lv1.selecteditem
is
nothing
)
then
msgbox
lv1.selecteditem.text
end
if
你也可以mousedown这里得到这个对像
dim
ltm
as
listitem
set
ltm=lv1.hittest(x,y)
if
(not
ltm
is
nothing
)
msgbox
ltm.text
end
if
修改很简单
.text为最左边的文本
.subitems(x)是从第二列（歌曲）这里开始从1递增
我主要是告诉你如何得到当前选中的对像，
我想如何设置值，你应该会了。
有什么不懂的可以加我qq
，我会详细告诉你。
2，5，4，1，8，6，9，1，7