Add controls to a panel : Panel « GUI « VB.Net Tutorial

Home
VB.Net Tutorial
1.Language Basics
2.Data Type
3.Operator
4.Statements
5.Date Time
6.Class Module
7.Development
8.Collections
9.Generics
10.Attributes
11.Event
12.LINQ
13.Stream File
14.GUI
15.GUI Applications
16.Windows Presentation Foundation
17.2D Graphics
18.I18N Internationlization
19.Reflection
20.Regular Expressions
21.Security
22.Socket Network
23.Thread
24.Windows
25.XML
26.Database ADO.net
27.Design Patterns
VB.Net
VB.Net by API
VB.Net Tutorial » GUI » Panel 
14.30.1.Add controls to a panel
Add controls to a panel
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms

public class PanelInAction
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class

Public Class Form1
    Inherits System.Windows.Forms.Form

    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label


    Dim Panel1 As New Panel
    Dim Panel2 As New Panel
    Dim WithEvents RadioButton1 As New RadioButton
    Dim WithEvents RadioButton2 As New RadioButton
    Dim WithEvents RadioButton3 As New RadioButton
    Dim WithEvents RadioButton4 As New RadioButton
    Dim WithEvents RadioButton5 As New RadioButton
    Dim WithEvents RadioButton6 As New RadioButton

    Public Sub New()
        MyBase.New()

        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.SuspendLayout()

        Me.TextBox1.Location = New System.Drawing.Point(8200)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(27220)
        Me.TextBox1.TabIndex = 0
        Me.TextBox1.Text = ""

        Me.AutoScaleBaseSize = New System.Drawing.Size(513)
        Me.ClientSize = New System.Drawing.Size(292273)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.TextBox1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)


        Panel1.Location = New Point(2060)
        Panel1.Size = New Size(110100)
        Panel1.BorderStyle = BorderStyle.FixedSingle

        Panel2.Location = New Point(14060)
        Panel2.Size = New Size(110100)
        Panel2.BorderStyle = BorderStyle.FixedSingle

        RadioButton1.Location = New Point(616)
        RadioButton1.Text = "Radio Button 1"
        RadioButton1.Size = New Size(12016)

        RadioButton2.Location = New Point(636)
        RadioButton2.Text = "Radio Button 2"
        RadioButton2.Size = New Size(12020)

        RadioButton3.Location = New Point(656)
        RadioButton3.Text = "Radio Button 3"
        RadioButton3.Size = New Size(12020)

        RadioButton4.Location = New Point(616)
        RadioButton4.Text = "Radio Button 4"
        RadioButton4.Size = New Size(12016)

        RadioButton5.Location = New Point(636)
        RadioButton5.Text = "Radio Button 5"
        RadioButton5.Size = New Size(12020)

        RadioButton6.Location = New Point(656)
        RadioButton6.Text = "Radio Button 6"
        RadioButton6.Size = New Size(12020)

        Panel1.Controls.Add(RadioButton1)
        Panel1.Controls.Add(RadioButton2)
        Panel1.Controls.Add(RadioButton3)

        Panel2.Controls.Add(RadioButton4)
        Panel2.Controls.Add(RadioButton5)
        Panel2.Controls.Add(RadioButton6)

        Controls.Add(Panel1)
        Controls.Add(Panel2)

        AddHandler RadioButton1.CheckedChanged, AddressOf _
            RadioButton1_CheckedChanged
        AddHandler RadioButton2.CheckedChanged, AddressOf _
            RadioButton2_CheckedChanged
        AddHandler RadioButton3.CheckedChanged, AddressOf _
            RadioButton3_CheckedChanged
        AddHandler RadioButton4.CheckedChanged, AddressOf _
            RadioButton4_CheckedChanged
        AddHandler RadioButton5.CheckedChanged, AddressOf _
            RadioButton5_CheckedChanged
        AddHandler RadioButton6.CheckedChanged, AddressOf _
            RadioButton6_CheckedChanged

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As _
        System.Object, ByVal e As System.EventArgs
        TextBox1.Text = "You clicked radio button 1"
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As _
        System.Object, ByVal e As System.EventArgs
        TextBox1.Text = "You clicked radio button 2"
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As _
        System.Object, ByVal e As System.EventArgs
        TextBox1.Text = "You clicked radio button 3"
    End Sub
    Private Sub RadioButton4_CheckedChanged(ByVal sender As _
        System.Object, ByVal e As System.EventArgs
        TextBox1.Text = "You clicked radio button 4"
    End Sub
    Private Sub RadioButton5_CheckedChanged(ByVal sender As _
        System.Object, ByVal e As System.EventArgs
        TextBox1.Text = "You clicked radio button 5"
    End Sub
    Private Sub RadioButton6_CheckedChanged(ByVal sender As _
        System.Object, ByVal e As System.EventArgs
        TextBox1.Text = "You clicked radio button 6"
    End Sub
End Class
14.30.Panel
14.30.1.Add controls to a panelAdd controls to a panel
14.30.2.Panel auto scroll positionPanel auto scroll position
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.