Lesson 22: Mastering RadioButton Controls in VB2022

' Create a radio button dynamically
Dim radNew As New RadioButton()
radNew.Text = "New Option"
radNew.AutoSize = True
radNew.Location = New Point(20, 50)
grpOptions.Controls.Add(radNew)  ' Add to GroupBox

Private Sub BtnConfirm_Click(sender As Object, e As EventArgs) Handles BtnConfirm.Click
    Dim selectedColor As String = ""
    
    ' Check which color is selected
    If radRed.Checked Then
        selectedColor = "Red"
        lblDisplay.ForeColor = Color.Red
    ElseIf radGreen.Checked Then
        selectedColor = "Green"
        lblDisplay.ForeColor = Color.Green
    ElseIf radBlue.Checked Then
        selectedColor = "Blue"
        lblDisplay.ForeColor = Color.Blue
    End If
    
    lblDisplay.Text = "Selected Color: " & selectedColor
End Sub

Private Sub BtnConfirm_Click(sender As Object, e As EventArgs) Handles BtnConfirm.Click
    Dim size As String = ""
    Dim color As String = ""
    
    ' Process size selection
    If radSmall.Checked Then
        size = "Small"
    ElseIf radMedium.Checked Then
        size = "Medium"
    ElseIf radLarge.Checked Then
        size = "Large"
    End If
    
    ' Process color selection
    If radRed.Checked Then
        color = "Red"
    ElseIf radBlue.Checked Then
        color = "Blue"
    ElseIf radGreen.Checked Then
        color = "Green"
    End If
    
    lblResult.Text = $"Size: {size}, Color: {color}"
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' Set up the question
    lblQuestion.Text = "What is the capital of France?"
    radOption1.Text = "London"
    radOption2.Text = "Berlin"
    radOption3.Text = "Paris"
    radOption4.Text = "Madrid"
    
    ' Set correct answer (Paris)
    radOption3.Tag = "Correct"
End Sub

Private Sub btnCheck_Click(sender As Object, e As EventArgs) Handles btnCheck.Click
    If radOption1.Checked Then
        ShowFeedback("Incorrect! Try again.", Color.Red)
    ElseIf radOption2.Checked Then
        ShowFeedback("Incorrect! Try again.", Color.Red)
    ElseIf radOption3.Checked Then
        ShowFeedback("Correct! Paris is the capital.", Color.Green)
    ElseIf radOption4.Checked Then
        ShowFeedback("Incorrect! Try again.", Color.Red)
    Else
        ShowFeedback("Please select an answer!", Color.Blue)
    End If
End Sub

Private Sub ShowFeedback(message As String, color As Color)
    lblFeedback.Text = message
    lblFeedback.ForeColor = color
End Sub

Private Sub btnApply_Click(sender As Object, e As EventArgs) Handles btnApply.Click
    ' Apply theme selection
    If radLightTheme.Checked Then
        ApplyTheme(Color.White, Color.Black)
    ElseIf radDarkTheme.Checked Then
        ApplyTheme(Color.DimGray, Color.White)
    End If
    
    ' Apply font size selection
    If radSmallFont.Checked Then
        ApplyFontSize(10)
    ElseIf radMediumFont.Checked Then
        ApplyFontSize(12)
    ElseIf radLargeFont.Checked Then
        ApplyFontSize(14)
    End If
End Sub

Private Sub ApplyTheme(backColor As Color, foreColor As Color)
    Me.BackColor = backColor
    Me.ForeColor = foreColor
End Sub

Private Sub ApplyFontSize(size As Single)
    ' Apply font size to all controls
    For Each ctrl As Control In Me.Controls
        ctrl.Font = New Font(ctrl.Font.FontFamily, size)
    Next
End Sub