21 lines
685 B
VB.net
21 lines
685 B
VB.net
Public Class frmTreeView
|
|
Private Sub frmTreeView_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
TreeView1.Nodes.Clear()
|
|
TreeView1.ImageList = ImageList1
|
|
If Not IsNothing(CurrMatchTreeView) Then
|
|
CurrMatchTreeView.BeginUpdate()
|
|
|
|
|
|
For Each node As TreeNode In CurrMatchTreeView.Nodes
|
|
If IsNothing(node.Tag) Then
|
|
node.ImageIndex = 0
|
|
Else
|
|
node.ImageIndex = 2
|
|
End If
|
|
TreeView1.Nodes.Add(node.Clone)
|
|
Next
|
|
CurrMatchTreeView.EndUpdate()
|
|
End If
|
|
TreeView1.ExpandAll()
|
|
End Sub
|
|
End Class |