Option ExplicitPrivate Sub Form_Load()
ListView1.View = lvwReport
ListView1.ListItems.Add , , 1
ListView1.ListItems.Add , , 2
ListView1.ListItems.Add , , 3
ListView1.ListItems(2).Selected = True
End Sub
ListView1.View = lvwReport
ListView1.ListItems.Add , , 1
ListView1.ListItems.Add , , 2
ListView1.ListItems.Add , , 3
ListView1.ListItems(2).Selected = True
End Sub
应该是这样
tvTreeView是treeview控件名
.add,,"T1","1"
.add,,"T2","2"
.add,,"T3","3"
end with
'设置焦点 tvwTest.Nodes("T2").selected=true
'实现单击 tvwTest.Nodeclick tvwTest.Nodes("T2")