[VB]修改listview某行
Option Explicit
Dim i As Integer
Dim n As Integer
Private Sub TreeView1_Click() '点击时改变图形
Dim mstring As String
mstring = TreeView1。 SelectedItem。Key
i = TreeView1。SelectedItem。Image
n = TreeView1。SelectedItem。Index
TreeView1。 SelectedItem。Image = 3
'3 为imageList中图像的索引
End Sub
Private Sub TreeVi...全部
Option Explicit
Dim i As Integer
Dim n As Integer
Private Sub TreeView1_Click() '点击时改变图形
Dim mstring As String
mstring = TreeView1。
SelectedItem。Key
i = TreeView1。SelectedItem。Image
n = TreeView1。SelectedItem。Index
TreeView1。
SelectedItem。Image = 3
'3 为imageList中图像的索引
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib。
Node) '将上次点击别的Nodes的图形改回去
TreeView1。Nodes(n)。Image = i
End Sub
注意:在Form_Load()中加入以下两句作为初始值:
n = 1
i = TreeView1。
Nodes(1)。Image。收起