Saltar al contenido

Combinación de checkbox's

publicado

Saludos a todos los miembros del foro.

Mi consulta es como realizar la validación en los checkbox, es decir;

Tengo varios Checkbox los cuales al activarse deberían realizar una instrucción.

Ejemplo;

- Si activo el Checkbox 5, debería mostrar la imagen 5 en el centro del form y el resto de Checkbox e imágenes deberían ocultarse. Esto lo debería realizar al activarse uno solo ("o cualquiera") Checkbox.

- Si se activan dos o mas Checkbox deberían distribuirse en el form, de igual dimensión y tamaño.

(Pueden existir combinaciones de Checkbox1 y el Checkbox5, mismas que deberán mostrar las imágenes correspondientes.)

- Al realizar esta acción de mostrar la(s) imagen(es), el resto que no esta activo debe ocultarse.

Disculpen por el testamento, pero quería explicarme lo mas claro que puedo.

Por su invaluable ayuda gracias.

CombinacionCheckbox.xls

Featured Replies

publicado
  • Autor

Buenas, he tratado con el select case.

  • 1 month later...
publicado

que tal lo mejor es trabajar con IF...

POR EJEMPLO

Private Sub CheckBox1_Click()

If Me.CheckBox1.Value = True Then

With Me.Image1

Me.Image1.Width = 250

Me.Image1.Height = 250

Me.Image1.Left = 15

Me.Image1.Top = 50

End With

Me.CheckBox2.Visible = False

Me.Image2.Visible = False

Me.CheckBox3.Visible = False

Me.Image3.Visible = False

Me.CheckBox4.Visible = False

Me.Image4.Visible = False

Me.CheckBox5.Visible = False

Me.Image5.Visible = False

Else

Me.CheckBox2.Visible = True

Me.Image2.Visible = False

Me.CheckBox3.Visible = True

Me.Image3.Visible = False

Me.CheckBox4.Visible = True

Me.Image4.Visible = False

Me.CheckBox5.Visible = True

Me.Image5.Visible = False

End If

Lo que hace este codigo es cuando esta seleccionado solo un checkbox en este caso el CHECKUNO, muestre la imagen del checkuno y oculte todo el resto, y cuando es destildado muestra todos los check de nuevo eso lo hace AQUI:

Else

Me.CheckBox2.Visible = True

Me.Image2.Visible = False

Me.CheckBox3.Visible = True

Me.Image3.Visible = False

Me.CheckBox4.Visible = True

Me.Image4.Visible = False

Me.CheckBox5.Visible = True

Me.Image5.Visible = False

End If

Puedes elegir mostrar las imagenes si quieres y quedaria como base pero ahi ya tendrias que poner en el Load del form que cuando no hay check tildado se muestren todas las imagenes.

publicado
  • Autor

Gracias por la respuesta, pero ahora utilizo el siguiente código:

Dim vNom As String

vNom = Me.Nombre.Value

If IsNull(vNom) Then Exit Sub

Muchas gracias por dedicar su tiempo.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.