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

the LivinGrimoire Artificial General Intelligence software design pattern forum

tree view control

power_settings_newLogin to reply

descriptiontree view control Emptytree view controlTue Dec 09, 2014 8:09 pm

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:

descriptiontree view control Emptyperfecting D jutsu platformFri Jan 23, 2015 7:03 pm

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
power_settings_newLogin to reply