Get selected RadioButton
Option Strict On
Imports System.Windows.Forms
public class RadioButtonState
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
Friend WithEvents Button1 As System.Windows.Forms.Button
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.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.Button1 = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
"
"GroupBox1
"
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.RadioButton3, Me.RadioButton2, Me.RadioButton1})
Me.GroupBox1.Location = New System.Drawing.Point(40, 32)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(240, 160)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Choose a button:"
"
"RadioButton3
"
Me.RadioButton3.Location = New System.Drawing.Point(40, 104)
Me.RadioButton3.Name = "RadioButton3"
Me.RadioButton3.Size = New System.Drawing.Size(144, 24)
Me.RadioButton3.TabIndex = 2
Me.RadioButton3.Text = "RadioButton3"
"
"RadioButton2
"
Me.RadioButton2.Location = New System.Drawing.Point(40, 64)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New System.Drawing.Size(144, 24)
Me.RadioButton2.TabIndex = 1
Me.RadioButton2.Text = "RadioButton2"
"
"RadioButton1
"
Me.RadioButton1.Checked = True
Me.RadioButton1.Location = New System.Drawing.Point(40, 32)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.Size = New System.Drawing.Size(144, 24)
Me.RadioButton1.TabIndex = 0
Me.RadioButton1.TabStop = True
Me.RadioButton1.Text = "RadioButton1"
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(56, 216)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(168, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Which is Selected?"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.GroupBox1})
Me.Name = "Form1"
Me.Text = "Form1"
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, _
RadioButton2.CheckedChanged, RadioButton3.CheckedChanged
End Sub
Private Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim c As Object
For Each c In Me.GroupBox1.Controls
If TypeOf (c) Is RadioButton Then
Dim rb As RadioButton = CType(c, RadioButton)
If rb.Checked = True Then
MsgBox(CStr(rb.Name) & " is selected")
Exit For
End If
End If
Next
End Sub
End ClassRadioButtons in a GroupBox
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class RadioButtonInGroupBox
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
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 TextBox1 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.RadioButton1 = New System.Windows.Forms.RadioButton
Me.RadioButton2 = New System.Windows.Forms.RadioButton
Me.RadioButton3 = New System.Windows.Forms.RadioButton
Me.RadioButton4 = New System.Windows.Forms.RadioButton
Me.RadioButton5 = New System.Windows.Forms.RadioButton
Me.RadioButton6 = New System.Windows.Forms.RadioButton
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
"
"Label1
"
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(0, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(208, 40)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Group Boxes"
"
"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, 48)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(136, 176)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "GroupBox1"
"
"GroupBox2
"
Me.GroupBox2.Controls.Add(Me.RadioButton6)
Me.GroupBox2.Controls.Add(Me.RadioButton5)
Me.GroupBox2.Controls.Add(Me.RadioButton4)
Me.GroupBox2.Location = New System.Drawing.Point(152, 48)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(136, 176)
Me.GroupBox2.TabIndex = 2
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "GroupBox2"
"
"RadioButton1
"
Me.RadioButton1.Location = New System.Drawing.Point(16, 32)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.TabIndex = 0
Me.RadioButton1.Text = "RadioButton1"
"
"RadioButton2
"
Me.RadioButton2.Location = New System.Drawing.Point(16, 72)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.TabIndex = 1
Me.RadioButton2.Text = "RadioButton2"
"
"RadioButton3
"
Me.RadioButton3.Location = New System.Drawing.Point(16, 112)
Me.RadioButton3.Name = "RadioButton3"
Me.RadioButton3.TabIndex = 2
Me.RadioButton3.Text = "RadioButton3"
"
"RadioButton4
"
Me.RadioButton4.Location = New System.Drawing.Point(16, 32)
Me.RadioButton4.Name = "RadioButton4"
Me.RadioButton4.TabIndex = 0
Me.RadioButton4.Text = "RadioButton4"
"
"RadioButton5
"
Me.RadioButton5.Location = New System.Drawing.Point(16, 72)
Me.RadioButton5.Name = "RadioButton5"
Me.RadioButton5.TabIndex = 1
Me.RadioButton5.Text = "RadioButton5"
"
"RadioButton6
"
Me.RadioButton6.Location = New System.Drawing.Point(16, 112)
Me.RadioButton6.Name = "RadioButton6"
Me.RadioButton6.TabIndex = 2
Me.RadioButton6.Text = "RadioButton6"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(8, 240)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(280, 20)
Me.TextBox1.TabIndex = 3
Me.TextBox1.Text = ""
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
TextBox1.Text = "You clicked radio button 1."
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
TextBox1.Text = "You clicked radio button 2."
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
TextBox1.Text = "You clicked radio button 3."
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
TextBox1.Text = "You clicked radio button 4."
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
TextBox1.Text = "You clicked radio button 5."
End Sub
Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
TextBox1.Text = "You clicked radio button 6."
End Sub
End ClassToggle Buttons
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class RadioButtonToggleButton
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.RadioButton1 = New System.Windows.Forms.RadioButton
Me.RadioButton2 = New System.Windows.Forms.RadioButton
Me.RadioButton3 = New System.Windows.Forms.RadioButton
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.SuspendLayout()
"
"RadioButton1
"
Me.RadioButton1.Appearance = System.Windows.Forms.Appearance.Button
Me.RadioButton1.Location = New System.Drawing.Point(96, 64)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.TabIndex = 0
Me.RadioButton1.Text = "Radio Button 1"
"
"RadioButton2
"
Me.RadioButton2.Appearance = System.Windows.Forms.Appearance.Button
Me.RadioButton2.Location = New System.Drawing.Point(96, 112)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.TabIndex = 1
Me.RadioButton2.Text = "Radio Button 2"
"
"RadioButton3
"
Me.RadioButton3.Appearance = System.Windows.Forms.Appearance.Button
Me.RadioButton3.Location = New System.Drawing.Point(96, 160)
Me.RadioButton3.Name = "RadioButton3"
Me.RadioButton3.TabIndex = 2
Me.RadioButton3.Text = "Radio Button 3"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(40, 216)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(200, 20)
Me.TextBox1.TabIndex = 3
Me.TextBox1.Text = ""
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.RadioButton3)
Me.Controls.Add(Me.RadioButton2)
Me.Controls.Add(Me.RadioButton1)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
TextBox1.Text = "You clicked button 1."
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
TextBox1.Text = "You clicked button 2."
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
TextBox1.Text = "You clicked button 3."
End Sub
End ClassUse RadioButton to control the LineCap
Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ruponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Drawing.Drawing2D
public class LineJoinRadioButton
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents groupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents MiterClippedRadBtn As System.Windows.Forms.RadioButton
Friend WithEvents RoundRadBtn As System.Windows.Forms.RadioButton
Friend WithEvents MiterRadBtn As System.Windows.Forms.RadioButton
Friend WithEvents BevelRadBtn As System.Windows.Forms.RadioButton
Friend WithEvents ApplyJoin As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.groupBox1 = New System.Windows.Forms.GroupBox
Me.MiterClippedRadBtn = New System.Windows.Forms.RadioButton
Me.RoundRadBtn = New System.Windows.Forms.RadioButton
Me.MiterRadBtn = New System.Windows.Forms.RadioButton
Me.BevelRadBtn = New System.Windows.Forms.RadioButton
Me.ApplyJoin = New System.Windows.Forms.Button
Me.groupBox1.SuspendLayout()
Me.SuspendLayout()
"
"groupBox1
"
Me.groupBox1.Controls.Add(Me.MiterClippedRadBtn)
Me.groupBox1.Controls.Add(Me.RoundRadBtn)
Me.groupBox1.Controls.Add(Me.MiterRadBtn)
Me.groupBox1.Controls.Add(Me.BevelRadBtn)
Me.groupBox1.Location = New System.Drawing.Point(320, 18)
Me.groupBox1.Name = "groupBox1"
Me.groupBox1.Size = New System.Drawing.Size(152, 152)
Me.groupBox1.TabIndex = 3
Me.groupBox1.TabStop = False
Me.groupBox1.Text = "Line Join"
"
"MiterClippedRadBtn
"
Me.MiterClippedRadBtn.Location = New System.Drawing.Point(16, 88)
Me.MiterClippedRadBtn.Name = "MiterClippedRadBtn"
Me.MiterClippedRadBtn.Size = New System.Drawing.Size(120, 24)
Me.MiterClippedRadBtn.TabIndex = 3
Me.MiterClippedRadBtn.Text = "Miter Clipped"
"
"RoundRadBtn
"
Me.RoundRadBtn.Location = New System.Drawing.Point(16, 120)
Me.RoundRadBtn.Name = "RoundRadBtn"
Me.RoundRadBtn.Size = New System.Drawing.Size(112, 24)
Me.RoundRadBtn.TabIndex = 2
Me.RoundRadBtn.Text = "Round"
"
"MiterRadBtn
"
Me.MiterRadBtn.Location = New System.Drawing.Point(16, 56)
Me.MiterRadBtn.Name = "MiterRadBtn"
Me.MiterRadBtn.Size = New System.Drawing.Size(120, 24)
Me.MiterRadBtn.TabIndex = 1
Me.MiterRadBtn.Text = "Miter"
"
"BevelRadBtn
"
Me.BevelRadBtn.Checked = True
Me.BevelRadBtn.Location = New System.Drawing.Point(16, 24)
Me.BevelRadBtn.Name = "BevelRadBtn"
Me.BevelRadBtn.Size = New System.Drawing.Size(112, 24)
Me.BevelRadBtn.TabIndex = 0
Me.BevelRadBtn.TabStop = True
Me.BevelRadBtn.Text = "Bevel"
"
"ApplyJoin
"
Me.ApplyJoin.Location = New System.Drawing.Point(344, 194)
Me.ApplyJoin.Name = "ApplyJoin"
Me.ApplyJoin.Size = New System.Drawing.Size(112, 32)
Me.ApplyJoin.TabIndex = 2
Me.ApplyJoin.Text = "Apply LineJoin"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(488, 245)
Me.Controls.Add(Me.groupBox1)
Me.Controls.Add(Me.ApplyJoin)
Me.Name = "Form1"
Me.Text = "Form1"
Me.groupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub ApplyJoin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApplyJoin.Click
Dim g As Graphics = Me.CreateGraphics()
g.Clear(Me.BackColor)
If BevelRadBtn.Checked Then
DrawJoinedLines(g, LineJoin.Bevel)
End If
If MiterRadBtn.Checked Then
DrawJoinedLines(g, LineJoin.Miter)
End If
If MiterClippedRadBtn.Checked Then
DrawJoinedLines(g, LineJoin.MiterClipped)
End If
If RoundRadBtn.Checked Then
DrawJoinedLines(g, LineJoin.Round)
End If
g.Dispose()
End Sub
Private Sub DrawJoinedLines(ByVal g As Graphics, ByVal joinType As LineJoin)
g.SmoothingMode = SmoothingMode.AntiAlias
Dim redPen As New Pen(Color.Red, 20)
redPen.LineJoin = joinType
Dim pts As Point() = {New Point(10, 20), New Point(50, 20), New Point(80, 60), New Point(50, 150), New Point(150, 150)}
Dim pts1 As Point() = {New Point(20, 20), New Point(300, 20), New Point(30, 120), New Point(200, 120), New Point(200, 20)}
g.DrawLines(redPen, pts)
g.DrawLines(redPen, pts1)
redPen.Dispose()
End Sub "DrawJoinedLines
End ClassUse RadioButton to set font
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class UseCheckBoxRadioButtonSetFont
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Private LabelStyle As FontStyle
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton3 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 GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.RadioButton1 = New System.Windows.Forms.RadioButton
Me.RadioButton2 = New System.Windows.Forms.RadioButton
Me.RadioButton3 = 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.GroupBox3 = New System.Windows.Forms.GroupBox
Me.CheckBox1 = New System.Windows.Forms.CheckBox
Me.CheckBox2 = New System.Windows.Forms.CheckBox
Me.CheckBox3 = New System.Windows.Forms.CheckBox
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.SuspendLayout()
"
"Label1
"
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(24, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(288, 88)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Visual Basic.NET"
"
"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(32, 136)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(72, 120)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Color"
"
"RadioButton1
"
Me.RadioButton1.Location = New System.Drawing.Point(8, 24)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.Size = New System.Drawing.Size(56, 16)
Me.RadioButton1.TabIndex = 0
Me.RadioButton1.Text = "Red"
"
"RadioButton2
"
Me.RadioButton2.Location = New System.Drawing.Point(8, 48)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New System.Drawing.Size(56, 16)
Me.RadioButton2.TabIndex = 1
Me.RadioButton2.Text = "Yellow"
"
"RadioButton3
"
Me.RadioButton3.Location = New System.Drawing.Point(8, 72)
Me.RadioButton3.Name = "RadioButton3"
Me.RadioButton3.Size = New System.Drawing.Size(56, 24)
Me.RadioButton3.TabIndex = 2
Me.RadioButton3.Text = "Green"
"
"GroupBox2
"
Me.GroupBox2.Controls.Add(Me.RadioButton6)
Me.GroupBox2.Controls.Add(Me.RadioButton5)
Me.GroupBox2.Controls.Add(Me.RadioButton4)
Me.GroupBox2.Location = New System.Drawing.Point(128, 136)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(80, 120)
Me.GroupBox2.TabIndex = 2
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Font Size"
"
"RadioButton4
"
Me.RadioButton4.Location = New System.Drawing.Point(16, 24)
Me.RadioButton4.Name = "RadioButton4"
Me.RadioButton4.Size = New System.Drawing.Size(48, 16)
Me.RadioButton4.TabIndex = 0
Me.RadioButton4.Text = "10"
"
"RadioButton5
"
Me.RadioButton5.Location = New System.Drawing.Point(16, 48)
Me.RadioButton5.Name = "RadioButton5"
Me.RadioButton5.Size = New System.Drawing.Size(56, 24)
Me.RadioButton5.TabIndex = 1
Me.RadioButton5.Text = "20"
"
"RadioButton6
"
Me.RadioButton6.Location = New System.Drawing.Point(16, 80)
Me.RadioButton6.Name = "RadioButton6"
Me.RadioButton6.Size = New System.Drawing.Size(56, 24)
Me.RadioButton6.TabIndex = 2
Me.RadioButton6.Text = "30"
"
"GroupBox3
"
Me.GroupBox3.Controls.Add(Me.CheckBox3)
Me.GroupBox3.Controls.Add(Me.CheckBox2)
Me.GroupBox3.Controls.Add(Me.CheckBox1)
Me.GroupBox3.Location = New System.Drawing.Point(224, 144)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(88, 120)
Me.GroupBox3.TabIndex = 3
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Other"
"
"CheckBox1
"
Me.CheckBox1.Location = New System.Drawing.Point(16, 16)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(64, 24)
Me.CheckBox1.TabIndex = 0
Me.CheckBox1.Text = "Italic"
"
"CheckBox2
"
Me.CheckBox2.Location = New System.Drawing.Point(16, 48)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(48, 24)
Me.CheckBox2.TabIndex = 1
Me.CheckBox2.Text = "Bold"
"
"CheckBox3
"
Me.CheckBox3.Location = New System.Drawing.Point(16, 80)
Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(64, 24)
Me.CheckBox3.TabIndex = 2
Me.CheckBox3.Text = "Underline"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(328, 278)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Font Setting"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Label1.ForeColor = Color.Red
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Label1.ForeColor = Color.Yellow
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
Label1.ForeColor = Color.Green
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
Label1.Font = New Font(Label1.Font.FontFamily, 10)
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
Label1.Font = New Font(Label1.Font.FontFamily, 20)
End Sub
Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
Label1.Font = New Font(Label1.Font.FontFamily, 30)
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
LabelStyle = LabelStyle Xor FontStyle.Italic
Label1.Font = New Font(Label1.Font, LabelStyle)
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
LabelStyle = LabelStyle Xor FontStyle.Bold
Label1.Font = New Font(Label1.Font, LabelStyle)
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
LabelStyle = LabelStyle Xor FontStyle.Underline
Label1.Font = New Font(Label1.Font, LabelStyle)
End Sub
End ClassUsing RadioButtons to set message window options.
Imports System.Windows.Forms
public class RadioButtonAction
public Shared Sub Main
Application.Run(New FrmRadioButton)
End Sub
End class
Public Class FrmRadioButton
Inherits System.Windows.Forms.Form
Private iconType As MessageBoxIcon
Private buttonType As MessageBoxButtons
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents iconGroupBox As System.Windows.Forms.GroupBox
Friend WithEvents buttonTypeGroupBox As System.Windows.Forms.GroupBox
Friend WithEvents radRetryCancel As System.Windows.Forms.RadioButton
Friend WithEvents radYesNo As System.Windows.Forms.RadioButton
Friend WithEvents radAbortRetryIgnore As System.Windows.Forms.RadioButton
Friend WithEvents radOk As System.Windows.Forms.RadioButton
Friend WithEvents radWarning As System.Windows.Forms.RadioButton
Friend WithEvents radStop As System.Windows.Forms.RadioButton
Friend WithEvents radQuestion As System.Windows.Forms.RadioButton
Friend WithEvents radInformation As System.Windows.Forms.RadioButton
Friend WithEvents radHand As System.Windows.Forms.RadioButton
Friend WithEvents radExclamation As System.Windows.Forms.RadioButton
Friend WithEvents radError As System.Windows.Forms.RadioButton
Friend WithEvents radAsterisk As System.Windows.Forms.RadioButton
Friend WithEvents cmdDisplay As System.Windows.Forms.Button
Friend WithEvents lblDisplay As System.Windows.Forms.Label
Friend WithEvents radOkCancel As System.Windows.Forms.RadioButton
Friend WithEvents radYesNoCancel As System.Windows.Forms.RadioButton
"Required by the Windows Form Designer
Private components As System.ruponentModel.Container
"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.radAbortRetryIgnore = New System.Windows.Forms.RadioButton()
Me.radStop = New System.Windows.Forms.RadioButton()
Me.radYesNo = New System.Windows.Forms.RadioButton()
Me.iconGroupBox = New System.Windows.Forms.GroupBox()
Me.radWarning = New System.Windows.Forms.RadioButton()
Me.radQuestion = New System.Windows.Forms.RadioButton()
Me.radInformation = New System.Windows.Forms.RadioButton()
Me.radHand = New System.Windows.Forms.RadioButton()
Me.radExclamation = New System.Windows.Forms.RadioButton()
Me.radError = New System.Windows.Forms.RadioButton()
Me.radAsterisk = New System.Windows.Forms.RadioButton()
Me.radYesNoCancel = New System.Windows.Forms.RadioButton()
Me.radOk = New System.Windows.Forms.RadioButton()
Me.cmdDisplay = New System.Windows.Forms.Button()
Me.lblDisplay = New System.Windows.Forms.Label()
Me.buttonTypeGroupBox = New System.Windows.Forms.GroupBox()
Me.radRetryCancel = New System.Windows.Forms.RadioButton()
Me.radOkCancel = New System.Windows.Forms.RadioButton()
Me.iconGroupBox.SuspendLayout()
Me.buttonTypeGroupBox.SuspendLayout()
Me.SuspendLayout()
"
"radAbortRetryIgnore
"
Me.radAbortRetryIgnore.Location = New System.Drawing.Point(16, 88)
Me.radAbortRetryIgnore.Name = "radAbortRetryIgnore"
Me.radAbortRetryIgnore.Size = New System.Drawing.Size(120, 24)
Me.radAbortRetryIgnore.TabIndex = 2
Me.radAbortRetryIgnore.Text = "AbortRetryIgnore"
"
"radStop
"
Me.radStop.Location = New System.Drawing.Point(16, 240)
Me.radStop.Name = "radStop"
Me.radStop.Size = New System.Drawing.Size(128, 24)
Me.radStop.TabIndex = 6
Me.radStop.Text = "Stop"
"
"radYesNo
"
Me.radYesNo.Location = New System.Drawing.Point(16, 160)
Me.radYesNo.Name = "radYesNo"
Me.radYesNo.Size = New System.Drawing.Size(120, 16)
Me.radYesNo.TabIndex = 4
Me.radYesNo.Text = "YesNo"
"
"iconGroupBox
"
Me.iconGroupBox.Controls.AddRange(New System.Windows.Forms.Control() {Me.radWarning, Me.radStop, Me.radQuestion, Me.radInformation, Me.radHand, Me.radExclamation, Me.radError, Me.radAsterisk})
Me.iconGroupBox.Location = New System.Drawing.Point(200, 16)
Me.iconGroupBox.Name = "iconGroupBox"
Me.iconGroupBox.Size = New System.Drawing.Size(160, 304)
Me.iconGroupBox.TabIndex = 3
Me.iconGroupBox.TabStop = False
Me.iconGroupBox.Text = "Icon"
"
"radWarning
"
Me.radWarning.Location = New System.Drawing.Point(16, 272)
Me.radWarning.Name = "radWarning"
Me.radWarning.Size = New System.Drawing.Size(128, 24)
Me.radWarning.TabIndex = 7
Me.radWarning.Text = "Warning"
"
"radQuestion
"
Me.radQuestion.Location = New System.Drawing.Point(16, 208)
Me.radQuestion.Name = "radQuestion"
Me.radQuestion.Size = New System.Drawing.Size(128, 24)
Me.radQuestion.TabIndex = 5
Me.radQuestion.Text = "Question"
"
"radInformation
"
Me.radInformation.Location = New System.Drawing.Point(16, 168)
Me.radInformation.Name = "radInformation"
Me.radInformation.Size = New System.Drawing.Size(128, 24)
Me.radInformation.TabIndex = 4
Me.radInformation.Text = "Information"
"
"radHand
"
Me.radHand.Location = New System.Drawing.Point(16, 128)
Me.radHand.Name = "radHand"
Me.radHand.Size = New System.Drawing.Size(128, 24)
Me.radHand.TabIndex = 3
Me.radHand.Text = "Hand"
"
"radExclamation
"
Me.radExclamation.Location = New System.Drawing.Point(16, 88)
Me.radExclamation.Name = "radExclamation"
Me.radExclamation.Size = New System.Drawing.Size(136, 24)
Me.radExclamation.TabIndex = 2
Me.radExclamation.Text = "Exclamation"
"
"radError
"
Me.radError.Location = New System.Drawing.Point(16, 48)
Me.radError.Name = "radError"
Me.radError.Size = New System.Drawing.Size(136, 24)
Me.radError.TabIndex = 1
Me.radError.Text = "Error"
"
"radAsterisk
"
Me.radAsterisk.Location = New System.Drawing.Point(16, 16)
Me.radAsterisk.Name = "radAsterisk"
Me.radAsterisk.Size = New System.Drawing.Size(136, 24)
Me.radAsterisk.TabIndex = 0
Me.radAsterisk.Text = "Asterisk"
"
"radYesNoCancel
"
Me.radYesNoCancel.Location = New System.Drawing.Point(16, 120)
Me.radYesNoCancel.Name = "radYesNoCancel"
Me.radYesNoCancel.Size = New System.Drawing.Size(120, 24)
Me.radYesNoCancel.TabIndex = 3
Me.radYesNoCancel.Text = "YesNoCancel"
"
"radOk
"
Me.radOk.Location = New System.Drawing.Point(16, 24)
Me.radOk.Name = "radOk"
Me.radOk.Size = New System.Drawing.Size(112, 16)
Me.radOk.TabIndex = 0
Me.radOk.Text = "OK"
"
"cmdDisplay
"
Me.cmdDisplay.Location = New System.Drawing.Point(32, 240)
Me.cmdDisplay.Name = "cmdDisplay"
Me.cmdDisplay.Size = New System.Drawing.Size(112, 40)
Me.cmdDisplay.TabIndex = 1
Me.cmdDisplay.Text = "Display"
"
"lblDisplay
"
Me.lblDisplay.Location = New System.Drawing.Point(24, 296)
Me.lblDisplay.Name = "lblDisplay"
Me.lblDisplay.Size = New System.Drawing.Size(144, 24)
Me.lblDisplay.TabIndex = 5
"
"buttonTypeGroupBox
"
Me.buttonTypeGroupBox.Controls.AddRange(New System.Windows.Forms.Control() {Me.radRetryCancel, Me.radYesNo, Me.radYesNoCancel, Me.radAbortRetryIgnore, Me.radOkCancel, Me.radOk})
Me.buttonTypeGroupBox.Location = New System.Drawing.Point(16, 16)
Me.buttonTypeGroupBox.Name = "buttonTypeGroupBox"
Me.buttonTypeGroupBox.Size = New System.Drawing.Size(144, 216)
Me.buttonTypeGroupBox.TabIndex = 2
Me.buttonTypeGroupBox.TabStop = False
Me.buttonTypeGroupBox.Text = "Button Type"
"
"radRetryCancel
"
Me.radRetryCancel.Location = New System.Drawing.Point(16, 192)
Me.radRetryCancel.Name = "radRetryCancel"
Me.radRetryCancel.Size = New System.Drawing.Size(104, 16)
Me.radRetryCancel.TabIndex = 5
Me.radRetryCancel.Text = "RetryCancel"
"
"radOkCancel
"
Me.radOkCancel.Location = New System.Drawing.Point(16, 56)
Me.radOkCancel.Name = "radOkCancel"
Me.radOkCancel.Size = New System.Drawing.Size(120, 24)
Me.radOkCancel.TabIndex = 1
Me.radOkCancel.Text = "OKCancel"
"
"FrmRadioButton
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(384, 333)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblDisplay, Me.iconGroupBox, Me.buttonTypeGroupBox, Me.cmdDisplay})
Me.Name = "FrmRadioButton"
Me.Text = "RadioButtonTest"
Me.iconGroupBox.ResumeLayout(False)
Me.buttonTypeGroupBox.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub cmdDisplay_Click(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles cmdDisplay.Click
Dim dialog As DialogResult = MessageBox.Show( _
"Your message", "Title", _
buttonType, iconType)
Select Case dialog
Case DialogResult.OK
lblDisplay.Text = "OK was pressed"
Case DialogResult.Cancel
lblDisplay.Text = "Cancel was pressed"
Case DialogResult.Abort
lblDisplay.Text = "Abort was pressed"
Case DialogResult.Retry
lblDisplay.Text = "Retry was pressed"
Case DialogResult.Ignore
lblDisplay.Text = "Ignore was pressed"
Case DialogResult.Yes
lblDisplay.Text = "Yes was pressed"
Case DialogResult.No
lblDisplay.Text = "No was pressed"
End Select
End Sub " cmdDisplay_Click
Private Sub radOk_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radOk.CheckedChanged
buttonType = MessageBoxButtons.OK
End Sub
Private Sub radOkCancel_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radOkCancel.CheckedChanged
buttonType = MessageBoxButtons.OKCancel
End Sub
Private Sub radAbortRetryIgnore_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radAbortRetryIgnore.CheckedChanged
buttonType = MessageBoxButtons.AbortRetryIgnore
End Sub
Private Sub radYesNoCancel_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radYesNoCancel.CheckedChanged
buttonType = MessageBoxButtons.YesNoCancel
End Sub
Private Sub radYesNo_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radYesNo.CheckedChanged
buttonType = MessageBoxButtons.YesNo
End Sub
Private Sub radRetryCancel_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radRetryCancel.CheckedChanged
buttonType = MessageBoxButtons.RetryCancel
End Sub
Private Sub radAsterisk_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radAsterisk.CheckedChanged
iconType = MessageBoxIcon.Asterisk
End Sub
Private Sub radError_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radError.CheckedChanged
iconType = MessageBoxIcon.Error
End Sub
Private Sub radExclamation_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radExclamation.CheckedChanged
iconType = MessageBoxIcon.Exclamation
End Sub
Private Sub radHand_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radHand.CheckedChanged
iconType = MessageBoxIcon.Hand
End Sub
Private Sub radInformation_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radInformation.CheckedChanged
iconType = MessageBoxIcon.Information
End Sub
Private Sub radQuestion_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radQuestion.CheckedChanged
iconType = MessageBoxIcon.Question
End Sub
Private Sub radStop_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radStop.CheckedChanged
iconType = MessageBoxIcon.Stop
End Sub
Private Sub radWarning_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radWarning.CheckedChanged
iconType = MessageBoxIcon.Warning
End Sub
End Class
