Ver Mensaje Individual
  #2 (permalink)  
Antiguo 16/11/2009, 04:20
Avatar de gogupe
gogupe
 
Fecha de Ingreso: octubre-2006
Ubicación: Mallorca
Mensajes: 897
Antigüedad: 18 años, 6 meses
Puntos: 32
Respuesta: Ayuda con Option Button

Hola.
Yo crearía una matriz de controles para la opción A, la llamaría Opcion_A, otra la b, la c y la d
Luego al puntuar recorrería con un for cada matriz y sumaría cuantas están activadas

Por ejemplo:

Código:
Dim I As Integer

Private Sub Form_Load()
Dim Cuenta_A, Cuenta_B, Cuenta_C, Cuenta_D As Integer
Cuenta_A = 0: Cuenta_B = 0: Cuenta_D = 0: Cuenta_C = 0
For I = 0 To 10
    If Option_A(I).Value = True Then Cuenta_A = Cuenta_A + 1
    If Option_B(I).Value = True Then Cuenta_B = Cuenta_B + 1
    If Option_C(I).Value = True Then Cuenta_C = Cuenta_C + 1
    If Option_D(I).Value = True Then Cuenta_D = Cuenta_D + 1

Next

MsgBox "Valor de a " & Cuenta_A
MsgBox "Valor de b " & Cuenta_B
MsgBox "Valor de c " & Cuenta_C
MsgBox "Valor de d " & Cuenta_D
End Sub
Es una sugerencia, que pienso que de este modo está optimizado.