Make your own free website on Tripod.com
- parte 6
El siguiente ejercicio, es un contador con un cuadro de texto (N) dos cajas de verificación (subir y bajar) y un botón para poder realizar el evento (btncontar).
Private Sub btncontar_Click()
If subir.Value = 1 Then
N.Text = Val(N.Text) + 1
End If
If bajar.Value = 1 Then
N.Text = Val(N.Text) - 1
End If
End Sub

BOTONES DE RADIO
Estos botones cumplen una función parecida a las cajas de verificación pero con una diferencia, mientras que de estas últimas se pueden seleccionar varias a la vez, los botones de radio solo permiten la selección de uno por grupo. Se utilizan para seleccionar opciones que son excluyentes. Sus propiedades más importantes son: Caption y Value con sus valores True (si está seleccionado) y False (si está vacio).

Para poder seleccionar más de un botón de radio a la vez debemos crear gurpos. Cada grupo podrá tener un solo botón de radio activado. Para crear grupos estos deberán
estar contenidos dentro de un frame.

Realizaremos un ejercicio con dos frames para poder ubicar dos grupos de botones de radio. El grupo de la izquierda tendrá tres botones de radio (brfocus, brpalio, br fiesta) mientras que el grupo de la derecha tendrá también tres botones de radio (brazul, brrojo, brverde) Con el primer grupo podremos elegir una marca de automóvil mientras que con el segundo se eligirá su color. Vemos cómo los botones de radio son excluyentes. Si elegimos una marca de automóvil no eligiremos otra, pero sí (y por esto los frames) debemos elegir qué color. También el color es excluyente (por ejemplo: si es verde no

es rojo). Finalmente un cuadro de texto (T) nos mostrará la marca y el color elegidos. Para activar todo hay un botón "Aceptar" (btnaceptar)
Private Sub btnaceptar_Click()
If brfocus.Value = True Then
T.Text = "Focus"
End If
If brpalio.Value = True Then
T.Text = "Palio"
End If
If brfiesta.Value = True Then
T.Text = "Fiesta"
End If
If brazul.Value = True Then
T.Text = T.Text & " Azul"
End If
If brrojo.Value = True Then
T.Text = T.Text & " Rojo"
End If
If brverde.Value = True Then
T.Text = T.Text & " Verde"
End If
End Sub
Veamos más ejercicios.