Estoy tratando de sumar y restar los valores mediante checkboxes. Tengo 2 labels que indican las cantidades, 4 checkboxes que son para incrementar y decrementar de a 1.
Tengo este código que hace todo bien, solo que incremente y decrementa de a 2, no de a 1:
Código PHP:
'Suma y resta con checkboxes
'---------------------------------
Option Explicit
Private Sub Check1_Click()
lbl4.Caption = Val(lbl4.Caption) + 1
Check1.Value = False
lbl6.Caption = Val(lbl6.Caption) + 1
End Sub
Private Sub Check2_Click()
lbl4.Caption = Val(lbl4.Caption) - 1
Check2.Value = False
lbl6.Caption = Val(lbl6.Caption) - 1
End Sub
Private Sub Check3_Click()
lbl3.Caption = Val(lbl3.Caption) + 1
Check3.Value = False
lbl6.Caption = Val(lbl6.Caption) + 1
End Sub
Private Sub Check4_Click()
lbl3.Caption = Val(lbl3.Caption) - 1
Check4.Value = False
lbl6.Caption = Val(lbl6.Caption) - 1
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Check1.Caption = "+"
Check2.Caption = "-"
Check3.Caption = "+"
Check4.Caption = "-"
lbl1.Caption = "Número 1"
lbl2.Caption = "Número 2"
lbl3.Caption = "0"
lbl4.Caption = "0"
lbl5.Caption = "El resultado es:"
Command1.Caption = "Salir"
End Sub
¿Qué está mal?
A ver si queda más claro con la imagen:
