USO DE CONTROLES EN VISUAL BASIC

USO DE CONTROLES EN VISUAL BASIC

Control ComboBox

El control Combobox de Visual Basic es uno de los recursos más utilizados a la hora de programar. Su comportamiento es similar al control Listbox, sólo que a diferencia de este último, el control Combobox no sólo permite la selección de una opción dentro de una lista predefinida de datos, sino además ingresar una nueva entrada.

Por lo tanto, esta herramienta resulta fundamental a la hora de definir aquel conjunto de datos. El Combobox consta de dos partes: un encabezado que corresponde al nombre de dicho conjunto (por ejemplo: Países o Sexo) y una segunda que abarca las opciones posibles (ejemplo: masculino, femenino), es decir comprende una lista de elementos que delimitan la selección del usuario. Este control cuenta con diferentes estilos o modos. El primero es una forma Simple que muestra el control Edit y el ListBox.

Gracias a la propiedad DropDownStyle, otra forma permite el despliegue de la lista hacia abajo. En principio la lista permanece oculta, mostrándose únicamente cuando el usuario presione el icono de la flecha a la derecha del control. Por lo tanto dependiendo del estilo que se utilice estará abierta la posibilidad o no para editar el campo de selección. La lista de opciones o respuestas se carga al mismo momento de diseño de la ventana.

El Combobox contiene una serie de propiedades aplicables únicamente en tiempo de ejecución, siendo algunas principales:

• SelectedItem: Obtiene o establece el elemento seleccionado actualmente en el ComboBox.

• SelectedText: Obtiene o establece el texto que se selecciona en la parte de un ComboBox que se puede e

• Text: consiste en una propiedad que muestra el texto de la parte Textbox del Combobox, la cual puede introducirse a través del teclado o ser una opción seleccionada, como vimos anteriormente.

• RemoveAt: Quita un elemento del ComboBox en el índice especificado.

• Remove: Quita un elemento del Combobox en la etiqueta especificada.

Ejemplo No.1:

Programación el formulario:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

CmbFacultad.Items.Add("Economia")

CmbFacultad.Items.Add("Educacion")

CmbFacultad.Items.Add("Medicina")

CmbFacultad.Items.Add("Ciencias")

End Sub

Private Sub CmbFacultad_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbFacultad.SelectedIndexChanged

If CmbFacultad.SelectedIndex = 0 Then

Txtmensaje.Text = "Facultad de Economia"

Else

If CmbFacultad.SelectedIndex = 1 Then

Txtmensaje.Text = "Facultad de Educacion"

Else

If CmbFacultad.SelectedIndex = 2 Then

Txtmensaje.Text = "Facultad de Medicina"

Else

If CmbFacultad.SelectedIndex = 3 Then

Txtmensaje.Text = "Facultad de Ciencias"

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

With CmbFacultad

MsgBox(.SelectedIndex)

MsgBox(.SelectedItem)

MsgBox(.Text)

End With

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'elimina la facultad de Medicina por indice

MsgBox("Se va eliminar la Fac. Medicina de la lista del ComboBox")

CmbFacultad.Items.RemoveAt(2)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'elimina la facultad de Ciencias por Etiqueta

MsgBox("Se va eliminar la Fac. Ciencias de la lista del ComboBox")

CmbFacultad.Items.Remove("Ciencias")

End Sub

End Class

Ejemplo No.2: (ComboBox y Array)

Programación:

Public Class ComboBoxyArray

Private Sub ComboBoxyArray_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

agregarItmesCombo()

End Sub

Private Sub agregarItmesCombo()

Dim facultad(3) As String

facultad(0) = "Economia"

facultad(1) = "Medicina"

facultad(2) = "Civil"

facultad(3) = "Mecanica"

Array.Sort(facultad)

CmbFacultad.Items.AddRange(facultad)

CmbFacultad.SelectedIndex = 0

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'elimina la facultad de Ciencias por Etiqueta

MsgBox("Se va eliminar la Fac. Mecanica de la lista del ComboBox")

CmbFacultad.Items.Remove("Mecanica")

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

With CmbFacultad

MsgBox(.SelectedIndex)

MsgBox(.SelectedItem)

MsgBox(.Text)

End With

End Sub

Private Sub CmbFacultad_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbFacultad.SelectedIndexChanged

If CmbFacultad.SelectedItem = "Economia" Then

Txtmensaje.Text = "Facultad de " + CmbFacultad.SelectedItem

ElseIf CmbFacultad.SelectedItem = "Mecanica" Then

Txtmensaje.Text = "Facultad de " + CmbFacultad.SelectedItem

ElseIf CmbFacultad.SelectedItem = "Civil" Then

Txtmensaje.Text = "Facultad de " + CmbFacultad.SelectedItem

ElseIf CmbFacultad.SelectedItem = "Medicina" Then

Txtmensaje.Text = "Facultad de " + CmbFacultad.SelectedItem

End If

End Sub

End Class

Control CkeckBox

El control CheckBox de Windows Forms indica si una condición determinada está activada o desactivada. Se utiliza habitualmente para presentar al usuario una selección de tipo Sí/No o Verdadero/Falso. Puede utilizar grupos de casillas para mostrar múltiples opciones entre las cuales el usuario puede elegir una o más. Es similar al control RadioButton aunque en este caso puede seleccionarse cualquier número de controles CheckBox agrupados.

Algunas Propiedades:

 : Obtiene o establece un valor que indica si CheckBox está en el estado activado. (Se hereda de CheckBox).

 Enabled: Obtiene o establece un valor que indica si el control puede responder a la interacción del usuario. (Se hereda de Control).

 Visible: Obtiene o establece un valor que representa si está visible el control CheckBox.

 CheckState: Obtiene o establece el estado del control CheckBox. (Se hereda de CheckBox).

Ejemplo:

Programación:

Public Class CheckBox

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

If CheckBox1.CheckState = CheckState.Checked Then

TextBox1.Text = "Facultad de " + CheckBox1.Text

CheckBox2.Enabled = False

CheckBox3.Enabled = False

Else

TextBox1.Clear()

CheckBox2.Enabled = True

CheckBox3.Enabled = True

End If

End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

If CheckBox2.CheckState = CheckState.Checked Then

TextBox1.Text = "Facultad de Medicina"

CheckBox1.Enabled = False

CheckBox3.Enabled = False

Else

TextBox1.Clear()

CheckBox1.Enabled = True

CheckBox3.Enabled = True

End If

End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

If CheckBox3.CheckState = CheckState.Checked Then

TextBox1.Text = "Facultad de Economia"

CheckBox1.Enabled = False

CheckBox2.Enabled = False

Else

TextBox1.Clear()

CheckBox1.Enabled = True

...