Mega Code Archive

 

Categories / VB.Net / GUI

 

Split Panels

Imports System.Windows.Forms Imports System.Drawing Public Class Form1     Inherits System.Windows.Forms.Form     Public Sub New()         MyBase.New()         InitializeComponent()     End Sub     Friend WithEvents TreeView1 As System.Windows.Forms.TreeView     Friend WithEvents ListView1 As System.Windows.Forms.ListView     Friend WithEvents Splitter1 As System.Windows.Forms.Splitter     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()         Me.TreeView1 = New System.Windows.Forms.TreeView()         Me.ListView1 = New System.Windows.Forms.ListView()         Me.Splitter1 = New System.Windows.Forms.Splitter()         Me.SuspendLayout()         '         Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left         Me.TreeView1.Size = New System.Drawing.Size(120, 261)         '         Me.ListView1.Dock = System.Windows.Forms.DockStyle.Fill         Me.ListView1.Location = New System.Drawing.Point(120, 0)         Me.ListView1.Size = New System.Drawing.Size(232, 261)         '         Me.Splitter1.Location = New System.Drawing.Point(120, 0)         Me.Splitter1.Size = New System.Drawing.Size(3, 261)         '         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)         Me.ClientSize = New System.Drawing.Size(352, 261)         Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Splitter1, Me.ListView1, Me.TreeView1})         Me.Text = "Creating Split Panels, Explorer-Style"         Me.ResumeLayout(False)     End Sub     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load         TreeView1.Nodes.Add("Example entry")         ListView1.Items.Add("Sample data")     End Sub End Class