39 - Controles comunes - RadioButton y GroupBox

Otro control visual muy común es el RadioButton que normalmente se muestran un conjunto de RadioButton y permiten la selección de solo uno de ellos.

Problema 1:

Confeccionar un programa que muestre 3 objetos de la clase RadioButton que permitan configurar el ancho y alto del Form. Cuando se presione un botón actualizar el ancho y alto.

Programa:

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True Then
            Width = 640
            Height = 480
        Else
            If RadioButton2.Checked = True Then
                Width = 800
                Height = 600
            Else
                If RadioButton3.Checked = True Then
                    Width = 1024
                    Height = 768
                End If
            End If
        End If
    End Sub
End Class

Todos los controles que se disponen dentro de un Form están asociados, es decir que cuando seleccionamos uno se desmarca la actual.

El control RadioButton tiene una propiedad llamada Checked que almacena true o false, por eso que por medio de un conjunto de if verificamos cual de los radio esta seleccionado:

        If RadioButton1.Checked = True Then
            Width = 640
            Height = 480
        Else
            If RadioButton2.Checked = True Then
                Width = 800
                Height = 600
            Else
                If RadioButton3.Checked = True Then
                    Width = 1024
                    Height = 768
                End If
            End If
        End If

Para cambiar el ancho y alto del Form accedemos a las propiedades Width y Height.

Problema 2:

Desarrollar una interfaz visual que muestre dos grupos independientes de RadioButton, en uno permitir seleccionar si es hombre o mujer y en el otro si es mayor o menor de edad. Mostrar un mensaje de la selección al presionar un botón

Debemos disponer dos objetos de la clase GroupBox y dentro de cada uno de ellos dos objetos de tipo RadioButton, con esto logramos que cada grupo sea independiente.

Programa:

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim seleccionado As String = ""
        If RadioButton1.Checked = True Then
            seleccionado = seleccionado + "(hombre)"
        Else
            If RadioButton2.Checked = True Then
                seleccionado = seleccionado + "(mujer)"
            End If
        End If
        If RadioButton3.Checked = True Then
            seleccionado = seleccionado + "(mayor)"
        Else
            If RadioButton4.Checked = True Then
                seleccionado = seleccionado + "(menor)"
            End If
        End If
        MessageBox.Show(seleccionado)
    End Sub
End Class

Problema propuesto

1. Permitir el ingreso de dos números en controles de tipo TextBox y mediante dos controles de tipo RadioButton permitir seleccionar si queremos sumarlos o restarlos. Al presionar un botón mostrar en el título del Form el resultado de la operación.

Solución

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim valor1 As Integer
        Dim valor2 As Integer
        valor1 = TextBox1.Text
        valor2 = TextBox2.Text
        If RadioButton1.Checked = True Then
            Dim suma As Integer
            suma = valor1 + valor2
            Text = suma
        Else
            If RadioButton2.Checked = True Then
                Dim resta As Integer
                resta = valor1 - valor2
                Text = resta
            End If
        End If
    End Sub
End Class

Retornar