Reiniciar varios checkbox

[buxforever]

Quisiera saber si existe la propiedad o funcion que me permita reiniciar alrededor de 15 a 20 checkbox..

Por ejemplo

Código vb:

checkbox1.enabled=True
checkbox2.enabled=False
checkbox3.enabled=True
checkbox4.enabled=True
checkbox5.enabled=False
checkbox6.enabled=True
checkbox7.enabled=False
checkbox8.enabled=True
checkbox9.enabled=False
checkbox10.enabled=True
checkbox11.enabled=False
checkbox12.enabled=True
 

Y que al momento de dar click a un command button me de una especie de reincio a los checkbox colocandos en su estado normal lo que quiero saber es si eso se hace con puro if habilitando y desabilitando para queden en su estado normal o existe alguna funcion para hacer eso

[erbuson]

Hola:

Todos los controles de VB disponen de la propiedad Index que simplifica enormemente el uso de funciones repetitivas y el acceso a multiples grupos de ellos.

Lo mas correcto es utilizar CheckBox(0), CheckBox(1) ... CheckBox(n) con lo cual puedes utilizar un simple For Next para inicializarlos.

De todos modos, comprueba un poco lo que estás haciendo porque en este tema, estas preguntando una cosa y haciendo otra.

Enabled .... Habilita o Desabilita el CheckBox

Y tu estas preguntando como inicilizar la opcion Value que puede ser 0, 1 o 2

Saludos

[pkj]

Si cada checkbox debe quedar en un estado diferente, como muestras, lo tendrás que hacer así, creando una sub p.ej.
Sub ReiniciaCheckBox()
checkbox1.enabled=True
checkbox2.enabled=False
checkbox3.enabled=True
checkbox4.enabled=True
checkbox5.enabled=False
checkbox6.enabled=True
checkbox7.enabled=False
checkbox8.enabled=True
checkbox9.enabled=False
checkbox10.enabled=True
checkbox11.enabled=False
checkbox12.enabled=True
End Sub

Si los quieres poner todos enable o disable es más fácil:
For F=1 to checkboxes
controls("ChecBox" & F).Enabled=False
Next F

[buxforever]

tienes razon erbuson formule mal la pregunta lo que queria preguntar es como reiniciar los checkbox ..actualmente tengo asi el codigo

Código vb:

Check13.Value = 1
If Check13.Value = 1 Then
Check1.Enabled = False
End If
If Check1.Enabled = False Then
Check2.Enabled = False
End If
If Check2.Enabled = False Then
Check4.Enabled = False
End If
If Check4.Enabled = False Then
Check5.Enabled = False
End If
If Check5.Enabled = False Then
Check6.Enabled = False
End If
If Check6.Enabled = False Then
Check7.Enabled = False
End If
If Check7.Enabled = False Then
Check8.Enabled = False
End If
If Check8.Enabled = False Then
Check9.Enabled = False
End If
If Check9.Enabled = False Then
Check10.Enabled = False
End If
If Check10.Enabled = False Then
Check11.Enabled = False
End If
If Check11.Enabled = False Then
Check12.Enabled = False
End If
If Check13.Value = 1 Then
Text7.Enabled = True
End If
 

lo que pasa en que al momento de dar click al checkbox13 cambia el value de 0 a 1 activando un textbox para poder escribir en el y desabilita los demas checkbox.

lo que queria preguntar mas bien es como reiniciar los chechbox desabilitados a habilitados y a la vez cambiar el checkbox13 el value de 1 a 0 y al momento de cambiarle el value a 0 entonces desabilitar el textbox que se encuentra en el form

[erbuson]

Hola:

Independientemente de tu pregunta, que no se me ocurre ni por lo mas remoto lo que pueda hacer tu código, puedes hacerlo si quieres tenerlos de este modo, tal vez te basta una sola linea para cada uno de ellos haciéndolo mas legible.
De este modo

Check13.Value = 1
If Check13.Value = 1 Then Check1.Enabled = False
If Check1.Enabled = False Then Check2.Enabled = False
If Check2.Enabled = False Then Check4.Enabled = False
If Check4.Enabled = False Then Check5.Enabled = False
If Check5.Enabled = False Then Check6.Enabled = False
If Check6.Enabled = False Then Check7.Enabled = False
If Check7.Enabled = False Then Check8.Enabled = False
If Check8.Enabled = False Then Check9.Enabled = False
If Check9.Enabled = False Then Check10.Enabled = False
If Check10.Enabled = False Then Check11.Enabled = False
If Check11.Enabled = False Then Check12.Enabled = False
If Check13.Value = 1 Then Text7.Enabled = True

Sin embargo tal como está este código no tiene mucho sentido que compruebes el valor de Check13 cuando tu lo estás forzando en la primera linea.

Entones si fuerzas el Check13 a 1 el código no tendría porqué tener ninguna comparación puesto que ya sabes de antemano que cada una de ellas es cierta.

Por otra parte veo que no tienes el CheckBox3

Respecto a una función que los inhabilite o habilite a todos pkj te la da en su comentario.

Tal vez si comentaras lo que pretendes hacer te podríamos encaminar hacia una solución mas adecuada.

Saluldos

[buxforever]

lo que pretendo hacer es tener un form en el cual esten por ejemplo:

12 checkbox con diferentes aspectos (estudiante,jubilado,etc) y tener otro checkbox el numero 13 que diga (otros) y al momento de darle en el checkbox de (otro) quiero que desabilite los demas checkbox y habilite un textbox para poder ingresar el dato que va en la seccion de (otros)

espero me entiendan

[ldcd]

bueno pues hay una forma de manejar todos los controles semilares en un formulario, el codigo para tus checkbox seria basicamente asi

foreach(control ch in this.Controls)
{
if(ch is checkbox){
ch.checked=False;
}
}

esto iria en el evento checkedchange del checbox 13, solo que reiniciaria tambien el 13, pero eso t puede servir y modificarlo a tu gusto para lo que t pueda servir

espero t sirva y avisanos si quedo, suerte

[erbuson]

Iniciado por ldcd

bueno pues hay una forma de manejar todos los controles semilares en un formulario, el codigo para tus checkbox seria basicamente asi

foreach(control ch in this.Controls)
{
if(ch is checkbox){
ch.checked=False;
}
}

esto iria en el evento checkedchange del checbox 13, solo que reiniciaria tambien el 13, pero eso t puede servir y modificarlo a tu gusto para lo que t pueda servir

espero t sirva y avisanos si quedo, suerte

Creo que esta respuesta no es para Visual Basic, por lo que a nuestro amigo buxforever no hará mas que complicarle la existencia.

Pregunto a buxforever ¿ Se puede marcar mas de una de las opciones o siempre una sóla de ellas ?

De todos modosyo te sigo aconsejando que renombres los CheckBox de la siguiente manera:

CheckBox1 le pones Ocupacion y en la propiedad Index le pones 0
Despues vas al CheckBox2 y le pones de Nombre Ocupación, verás que automaticamente te pone en index el valor 1 y así con todos.

Después puedes hacer el siguiente Bucle

IF Ocupacion(12).Value = 1 then
For i = 0 to 11
Ocupacion(i).Enabled = False
Next
Textbox.enabled = true
End If

Saludos

[pkj]

Creo que para lo que quieres tienes que poner esto:

Código vb:

Private Sub Check13_Click()
  Dim F As Integer
  If Check13.Value=1 Then
    For F=1 to 12
      Controls("Check" & F).Enabled=False
    Next F 
    Text7.Enabled = True
  Else
    For F=1 to 12
      Controls("Check" & F).Enabled=True
    Next F 
    Text7.Enabled = False
  End If
End Sub
 

[buxforever]

gracias ya pude solucionar este problema

Otra cosa porque no funciona la propiedad value de los checkbox dentro de un tab y un frame

porque la propiedad enabled si funciona, pero coloco un command button dentro de ese tab para realizar un check.value= 0 a uno de los checkbox y no me funciona

siendo que un form sin tab ni frame si funciona

[smoke001]

deberia funcionarte correctamente que tabs usas? el de vb por defecto?

[buxforever]

Uso el SSTab de vb6