Group RadioButton
Imports System Imports System.Data Imports System.Windows.Forms Imports System.Drawing Imports System.Diagnostics Imports System.Drawing.Printing Imports System.ComponentModel Public Class MainClass Shared Sub Main() Dim form1 As Form = New Form1 Application.Run(form1) End Sub End Class <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Public Class Form1 Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.GroupBox3 = New System.Windows.Forms.GroupBox Me.RadioButton7 = New System.Windows.Forms.RadioButton Me.RadioButton8 = New System.Windows.Forms.RadioButton Me.RadioButton9 = New System.Windows.Forms.RadioButton Me.GroupBox2 = New System.Windows.Forms.GroupBox Me.RadioButton4 = New System.Windows.Forms.RadioButton Me.RadioButton5 = New System.Windows.Forms.RadioButton Me.RadioButton6 = New System.Windows.Forms.RadioButton Me.GroupBox1 = New System.Windows.Forms.GroupBox Me.RadioButton3 = New System.Windows.Forms.RadioButton Me.RadioButton2 = New System.Windows.Forms.RadioButton Me.RadioButton1 = New System.Windows.Forms.RadioButton Me.GroupBox3.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.SuspendLayout() ' 'GroupBox3 ' Me.GroupBox3.Controls.Add(Me.RadioButton7) Me.GroupBox3.Controls.Add(Me.RadioButton8) Me.GroupBox3.Controls.Add(Me.RadioButton9) Me.GroupBox3.Location = New System.Drawing.Point(8, 200) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(176, 88) Me.GroupBox3.TabIndex = 7 Me.GroupBox3.TabStop = False Me.GroupBox3.Text = "Dessert" ' 'RadioButton7 ' Me.RadioButton7.AutoSize = True Me.RadioButton7.Checked = True Me.RadioButton7.Location = New System.Drawing.Point(24, 64) Me.RadioButton7.Name = "RadioButton7" Me.RadioButton7.Size = New System.Drawing.Size(57, 17) Me.RadioButton7.TabIndex = 2 Me.RadioButton7.Text = "Antacid" ' 'RadioButton8 ' Me.RadioButton8.AutoSize = True Me.RadioButton8.Location = New System.Drawing.Point(24, 40) Me.RadioButton8.Name = "RadioButton8" Me.RadioButton8.Size = New System.Drawing.Size(46, 17) Me.RadioButton8.TabIndex = 1 Me.RadioButton8.TabStop = False Me.RadioButton8.Text = "Cake" ' 'RadioButton9 ' Me.RadioButton9.AutoSize = True Me.RadioButton9.Location = New System.Drawing.Point(24, 16) Me.RadioButton9.Name = "RadioButton9" Me.RadioButton9.Size = New System.Drawing.Size(69, 17) Me.RadioButton9.TabIndex = 0 Me.RadioButton9.TabStop = False Me.RadioButton9.Text = "Ice Cream" ' 'GroupBox2 ' Me.GroupBox2.Controls.Add(Me.RadioButton4) Me.GroupBox2.Controls.Add(Me.RadioButton5) Me.GroupBox2.Controls.Add(Me.RadioButton6) Me.GroupBox2.Location = New System.Drawing.Point(8, 104) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(176, 88) Me.GroupBox2.TabIndex = 6 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Entree" ' 'RadioButton4 ' Me.RadioButton4.AutoSize = True Me.RadioButton4.Location = New System.Drawing.Point(24, 64) Me.RadioButton4.Name = "RadioButton4" Me.RadioButton4.Size = New System.Drawing.Size(112, 17) Me.RadioButton4.TabIndex = 2 Me.RadioButton4.TabStop = False Me.RadioButton4.Text = "Hot and Sour Soup" ' 'RadioButton5 ' Me.RadioButton5.AutoSize = True Me.RadioButton5.Checked = True Me.RadioButton5.Location = New System.Drawing.Point(24, 40) Me.RadioButton5.Name = "RadioButton5" Me.RadioButton5.Size = New System.Drawing.Size(40, 17) Me.RadioButton5.TabIndex = 1 Me.RadioButton5.Text = "Chili" ' 'RadioButton6 ' Me.RadioButton6.AutoSize = True Me.RadioButton6.Location = New System.Drawing.Point(24, 16) Me.RadioButton6.Name = "RadioButton6" Me.RadioButton6.Size = New System.Drawing.Size(51, 17) Me.RadioButton6.TabIndex = 0 Me.RadioButton6.TabStop = False Me.RadioButton6.Text = "Burrito" ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.RadioButton3) Me.GroupBox1.Controls.Add(Me.RadioButton2) Me.GroupBox1.Controls.Add(Me.RadioButton1) Me.GroupBox1.Location = New System.Drawing.Point(8, 8) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(176, 88) Me.GroupBox1.TabIndex = 5 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Appetizer" ' 'RadioButton3 ' Me.RadioButton3.AutoSize = True Me.RadioButton3.Location = New System.Drawing.Point(24, 64) Me.RadioButton3.Name = "RadioButton3" Me.RadioButton3.Size = New System.Drawing.Size(111, 17) Me.RadioButton3.TabIndex = 2 Me.RadioButton3.TabStop = False Me.RadioButton3.Text = "Curried Mushrooms" ' 'RadioButton2 ' Me.RadioButton2.AutoSize = True Me.RadioButton2.Location = New System.Drawing.Point(24, 40) Me.RadioButton2.Name = "RadioButton2" Me.RadioButton2.Size = New System.Drawing.Size(141, 17) Me.RadioButton2.TabIndex = 1 Me.RadioButton2.TabStop = False Me.RadioButton2.Text = "Spicy Pickled Vegetables" ' 'RadioButton1 ' Me.RadioButton1.AutoSize = True Me.RadioButton1.Checked = True Me.RadioButton1.Location = New System.Drawing.Point(24, 16) Me.RadioButton1.Name = "RadioButton1" Me.RadioButton1.Size = New System.Drawing.Size(71, 17) Me.RadioButton1.TabIndex = 0 Me.RadioButton1.Text = "Hot Wings" ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(193, 298) Me.Controls.Add(Me.GroupBox3) Me.Controls.Add(Me.GroupBox2) Me.Controls.Add(Me.GroupBox1) Me.Name = "Form1" Me.Text = "UseRadioButton" Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.PerformLayout() Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.PerformLayout() Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.ResumeLayout(False) End Sub Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox Friend WithEvents RadioButton7 As System.Windows.Forms.RadioButton Friend WithEvents RadioButton8 As System.Windows.Forms.RadioButton Friend WithEvents RadioButton9 As System.Windows.Forms.RadioButton Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton Friend WithEvents RadioButton5 As System.Windows.Forms.RadioButton Friend WithEvents RadioButton6 As System.Windows.Forms.RadioButton Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton End Class
1. | RadioButton Action Demo | ||
2. | Get selected Radio Button | ||
3. | Using RadioButtons to set message window options | ||
4. | Radio Button: Change Font and Paint |