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
|
