在itemclick事件中写代码, dim lvmSelected as listitem set lvmselected=listview1.selecteditem text1.text=lvmselected.text text2.text=lvmselected.subitem(1).text text3.text=lvmselected.subitem(2).text ..... 以此类推另外,可以通过listview1.columnsheaders.count-1来确定子项目的多少
Private Sub ListV_ItemClick(ByVal Item As MSComctlLib.ListItem) txt1.Text = lstV.ListItems(Item.Index).Text txt2.Text = ListV.ListItems(Item.Index).ListSubItems(1).Text txt3.Text = ListV.ListItems(Item.Index).ListSubItems(2).Text txt4.Text = ListV.ListItems(Item.Index).ListSubItems(3).Text ...... end sub
dim lvmSelected as listitem
set lvmselected=listview1.selecteditem
text1.text=lvmselected.text
text2.text=lvmselected.subitem(1).text
text3.text=lvmselected.subitem(2).text
.....
以此类推另外,可以通过listview1.columnsheaders.count-1来确定子项目的多少
txt1.Text = lstV.ListItems(Item.Index).Text
txt2.Text = ListV.ListItems(Item.Index).ListSubItems(1).Text
txt3.Text = ListV.ListItems(Item.Index).ListSubItems(2).Text
txt4.Text = ListV.ListItems(Item.Index).ListSubItems(3).Text
......
end sub
所在就用ItemClick事件