ник: Serge Gavrilov
Dim mClickedNode As MSComctlLib.Node
Private Sub TreeView1_Click()
If Not mClickedNode Is Nothing Then
If mClickedNode.Key = "r_0" Then
mClickedNode.Checked = False
End If
End If
End Sub
Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Set mClickedNode = TreeView1.HitTest(x, y)
End Sub
|
Но конечно некрасиво, что метка будет появляться и пропадать.
Субклассингом должно получиться лучше.