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

...