Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim Tabpage1 As TabPage = Me.TabPage1 ' Init von Form
 
        Dim SplitContainer1 As SplitContainer
        Dim TextBox1 As TextBox
        Dim TextBox2 As TextBox
 
        SplitContainer1 = New SplitContainer
        TextBox1 = New TextBox
        TextBox2 = New TextBox
 
 
        Tabpage1.Controls.Add(SplitContainer1)
 
        '
        'SplitContainer1
        '
        SplitContainer1.AllowDrop = True
        SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
        SplitContainer1.Location = New System.Drawing.Point(3, 3)
        SplitContainer1.Name = "SplitContainer1"
        SplitContainer1.Orientation = _
          System.Windows.Forms.Orientation.Horizontal
        '
        'SplitContainer1.Panel1
        '
        SplitContainer1.Panel1.Controls.Add(TextBox1)
        '
        'SplitContainer1.Panel2
        '
        SplitContainer1.Panel2.Controls.Add(TextBox2)
        SplitContainer1.Size = New System.Drawing.Size(443, 289)
        SplitContainer1.SplitterDistance = 147
        SplitContainer1.TabIndex = 0
        '
        'TextBox1
        '
        TextBox1.Dock = System.Windows.Forms.DockStyle.Fill
        TextBox1.Location = New System.Drawing.Point(0, 0)
        TextBox1.Multiline = True
        TextBox1.Name = "TextBox1"
        TextBox1.Size = New System.Drawing.Size(443, 147)
        TextBox1.TabIndex = 0
        '
        'TextBox2
        '
        TextBox2.Dock = System.Windows.Forms.DockStyle.Fill
        TextBox2.Location = New System.Drawing.Point(0, 0)
        TextBox2.Multiline = True
        TextBox2.Name = "TextBox2"
        TextBox2.Size = New System.Drawing.Size(443, 138)
        TextBox2.TabIndex = 1
 
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov

Beitrag wurde zuletzt am 02.07.08 um 19:39:11 editiert.