battle programmers alliance
Would you like to react to this message? Create an account in a few clicks or log in to continue.

battle programmers allianceLog in

battle programming a forum for elite programmers with extreme will power to sharpen their skills

descriptiontree view control Emptytree view control

more_horiz
create a tree view at runtime :

Code:

Public Class Form1
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
     'create a new TreeView
     Dim TreeView1 As TreeView
     TreeView1 = New TreeView()
     TreeView1.Location = New Point(10, 10)
     TreeView1.Size = New Size(160, 160)
     Me.Controls.Add(TreeView1)
     TreeView1.Nodes.Clear()
     'Creating the root node
     Dim root = New TreeNode("Application")
     TreeView1.Nodes.Add(root)
     TreeView1.Nodes(0).Nodes.Add(New TreeNode("Project 1"))
     'Creating child nodes under the first child
     For loopindex As Integer = 1 To 4
         TreeView1.Nodes(0).Nodes(0).Nodes.Add(New  _
             TreeNode("Sub Project" & Str(loopindex)))
     Next loopindex
     ' creating child nodes under the root
     TreeView1.Nodes(0).Nodes.Add(New TreeNode("Project 6"))
     'creating child nodes under the created child node
     For loopindex As Integer = 1 To 3
         TreeView1.Nodes(0).Nodes(1).Nodes.Add(New  _
             TreeNode("Project File" & Str(loopindex)))
     Next loopindex
  End Sub
End Class

I can feel it moti
the power of these var
the possibilities
its not easy to aquire the jutsu you were talking about
but its just too cool to let go
Twisted Evil

descriptiontree view control Emptyperfecting D jutsu platform

more_horiz

Code:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'create a new TreeView
        Dim TreeView1 As TreeView
        TreeView1 = New TreeView()
        TreeView1.Location = New Point(10, 10)
        TreeView1.Size = New Size(300, 300)
        Me.Controls.Add(TreeView1)
        TreeView1.Nodes.Clear()
        'Creating the root node
        Dim root = New TreeNode("hadoken")
        TreeView1.Nodes.Add(root)
        TreeView1.Nodes(0).Nodes.Add(New TreeNode("Project 1"))
        'Creating child nodes under the first child
        For loopindex As Integer = 1 To 4
            TreeView1.Nodes(0).Nodes(0).Nodes.Add(New  _
                TreeNode("Sub Project" & Str(loopindex)))
        Next loopindex
        ' creating child nodes under the root
        TreeView1.Nodes(0).Nodes.Add(New TreeNode("Project 6"))
        'creating child nodes under the created child node
        For loopindex As Integer = 1 To 3
            TreeView1.Nodes(0).Nodes(1).Nodes.Add(New  _
                TreeNode("Project File" & Str(loopindex)))
        Next loopindex
        TreeView1.Nodes(0).Nodes(0).Nodes.Insert(2, New TreeNode("hya"))
        ' Set the caption bar text of the form. 
        Me.Text = "tutorialspoint.com"
    End Sub
End Class

layered : TreeView1.Nodes(0).Nodes(0).Nodes.Insert(2, New TreeNode("hya"))

vared : # regex of ""
* layer was added at index above end sub
privacy_tip Permissions in this forum:
You cannot reply to topics in this forum