I should know this for now but for some reason by brain is not kicking today. I am trying to create a treeview and button programmatically. But when I run the program nothing shows up on the form.
Here is my code, it is very simple as I am just using it to test some stuff
Here is my code, it is very simple as I am just using it to test some stuff
Code:
Imports SIL.FieldWorks.Common.Controls
Public Class Form1
Dim treeviews As TreeView
Private showCheckedNodesButton As Button
Public Sub New()
' This call is required by the designer.
InitializeComponent()
showCheckedNodesButton = New Button
treeviews = New TreeView
treeviews.ImageIndex = 1
treeviews.Location = New System.Drawing.Point(16, 16)
treeviews.Size = New System.Drawing.Size(256, 232)
treeviews.Anchor = AnchorStyles.Top Or AnchorStyles.Left Or AnchorStyles.Bottom Or AnchorStyles.Right
treeviews.Visible = True
' Add any initialization after the InitializeComponent() call.
Dim node As TreeNode
Dim node1 As TreeNode
Dim node2 As TreeNode
Dim childnode As TreeNode
Dim childnode1 As TreeNode
Dim childnode2 As TreeNode
node = treeviews.Nodes.Add("TEST")
node1 = treeviews.Nodes.Add("TEST 1")
node2 = treeviews.Nodes.Add("TEST 2")
childnode = node.Nodes.Add("Under 1")
childnode = node.Nodes.Add("Under 2")
childnode = node.Nodes.Add("Under 3")
childnode1 = node1.Nodes.Add("Under 1")
childnode1 = node1.Nodes.Add("Under 2")
childnode1 = node1.Nodes.Add("Under 3")
childnode2 = node2.Nodes.Add("Under 1")
childnode2 = node2.Nodes.Add("Under 2")
childnode2 = node2.Nodes.Add("Under 3")
childnode.Nodes.Add("Double 1")
childnode.Nodes.Add("Double 2")
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
End Class