Controles de selección y verificación

Son controles de selección múltiple que permiten al usuario seleccionar o definir opciones; dentro de este grupo de controles se encuentran:

•        CheckBox: Su propiedad “Checked” es la que cambia al seleccionar el control.               Checked = 1 ó “verdadero” en caso de que el control sea seleccionado, e = 0 ó “falso” en caso contrario. Mediante del “If…Then” podemos tomar una decisión basada en el estado de cada checkbox.

•         RadioButton: Este control se utiliza para presentar ala usuario un conjunto de opciones excluyentes entre sí. Si el usuario selecciona un componente del grupo, todos los demás se desmarcarán. Cada una de las instrucciones “If…Then” que valida uno de los RadioButton y en función de sus estado (específicamente su propiedad “Checked” ) modificará la propiedad Label correspondiente.

•            CheckList: Añade elementos en forma de lista y también seleccionar elementos de la misma para trabajar los datos. Permite seleccionar uno o varios elementos utilizando la propiedad “MultiSelect”. Para agregar elementos se debe seleccionar el control ListBox y, desde propiedades, ubicar la que se llama “list”. Al desplegarla, se pueden agregar y remover elementos.

•            ComboBox: Combina las características de un TextBox y un control ListBox, en los cuales se puede introducir información en la parte del cuadro de texto.

Ejemplo: 

1. El siguiente ejemplo muestra las propiedades “Enabled” y “Locked” y cómo se complementan. Este ejemplo expone cada propiedad independiente con una casilla, así que el usuario puede observar los ajustes de forma individual y combinados. Este ejemplo también incluye un segundo cuadro de texto para que el usuario pueda copiar y pegar información entre los controles del cuadro de texto y comprobar las actividades que admiten los ajustes de estas propiedades.
   
   

Private Sub CheckBox1_Change()  

TextBox2.Text = "TextBox2"  

TextBox1.Enabled = CheckBox1.Value 

End Sub 

 

Private Sub CheckBox2_Change()  

TextBox2.Text = "TextBox2"  

TextBox1.Locked = CheckBox2.Value 

End Sub  

Private Sub UserForm_Initialize()  

TextBox1.Text = "TextBox1"  

TextBox1.Enabled = True 

TextBox1.Locked = False 

  

CheckBox1.Caption = "Enabled"  

CheckBox1.Value = True    

CheckBox2.Caption = "Locked"  

CheckBox2.Value = False  

 

TextBox2.Text = "TextBox2" 

End Sub