Hi,
I have a revision already
(i have added an if to the first sub)
Please suggest improvements if any...
-tommaso
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Me.TreeView1.HideSelection = False
Me.TreeView1.Nodes.Clear()
Me.TreeView1.Nodes.Add(New TreeNode("Hello"))
TreeView_EnsureFirstNodeIsSelectedIfExist(Me.TreeView1)
'Force selection again
TreeView_ForceSelectFirstNodeIfExist(Me.TreeView1)
End Sub
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles
TreeView1.AfterSelect
MsgBox("Selected " & e.Node.Text)
End Sub
Sub TreeView_EnsureFirstNodeIsSelectedIfExist(ByVal Treeview As
TreeView)
If Treeview.Nodes.Count = 0 Then Exit Sub
If Treeview.SelectedNode IsNot Treeview.Nodes(0) Then
Treeview.SelectedNode = Treeview.Nodes(0)
End Sub
Sub TreeView_ForceSelectFirstNodeIfExist(ByVal Treeview As
TreeView)
If Treeview.Nodes.Count = 0 Then Exit Sub
If Treeview.SelectedNode IsNot Nothing Then
Treeview.SelectedNode = Nothing
Treeview.SelectedNode = Treeview.Nodes(0)
End Sub
End Class
(e-mail address removed) ha scritto: