在TreeView中，怎样让只有被点击的节点显示粗体

[7kxa]

当我点击一个节点时，可以让它变成粗体，只是当我点击另一个节点的时候，原来那个节点还保持粗体。请问怎样才能只有当前被点击的节点变成粗体？

[Apple200228]

在新选择的节点变粗之前将原来选择的还原，可以设置一个变量来保存原来选择的Node的Index

[Apple200228]

代码如下:
dim lngSelectNodeIndex as long '在窗体中声明

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
if lngSelectNodeIndex=0 then lngSelectNodeIndex=1 '此行是为了避免出现下标超出的错误
If lngSelectNodeIndex <> Node.Index Then
TreeView1.Nodes(lngSelectNodeIndex).Bold = False
Node.Bold = True
lngSelectNodeIndex = Node.Index
End If
End Sub

[射天狼]

Dim NodeOld As Node

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Not (NodeOld Is Nothing) Then NodeOld.Bold = False
Node.Bold = True
Set NodeOld = Node
End Sub