ListBox

Asignatura: Tecnología e Informática.
Formación en Valor: Esperanza.
Núcleo Integrador: ListBox.
Objetivo: Programar listas.

ListBox:  Este objeto nos permite mostrar una lista de opciones 


Ejercicio Diseña el siguiente formulario:
CLIC SOBRE LA IMAGEN PARA VERLA MEJOR.

Copia el siguiente código y muestra el resultado con F5.

Dim x As Integer
Private Sub Command1_Click()
 If List1.ListIndex = -1 Then
   MsgBox "Seleccione el elemento", vbInformation, "ListBox"
 Else
   List2.AddItem List1.Text
   List1.RemoveItem List1.ListIndex
 End If
End Sub

Private Sub Command2_Click()
 If List1.ListIndex = -1 Then
   MsgBox "Seleccione el elemento", vbInformation, "ListBox"
 Else
   For x = 0 To List1.ListCount
     List2.AddItem List1.List(x)
   Next x
   List1.Clear
 End If
End Sub

Private Sub Command3_Click()
If List2.ListIndex = -1 Then
   MsgBox "Seleccione el elemento", vbInformation, "ListBox"
 Else
   List1.AddItem List2.Text
   List2.RemoveItem List2.ListIndex
 End If
End Sub

Private Sub Command4_Click()
 If List2.ListIndex = -1 Then
   MsgBox "Seleccione el elemento", vbInformation, "ListBox"
 Else
   For x = 0 To List2.ListCount
     List1.AddItem List2.List(x)
   Next x
   List2.Clear
 End If
End Sub

Private Sub Form_Load()
  List1.AddItem "ELEMENTO 1"
  List1.AddItem "ELEMENTO 2"
  List1.AddItem "ELEMENTO 3"
  List1.AddItem "ELEMENTO 4"
End Sub

Taller: 
Teniendo en cuenta el Taller desarrollado en la clase pasada del COMBOBOX, desarrolle un programa similar utilizando LISTBOX, pero en este caso adicione un objeto IMAGE el cual debe cambiar al dar clic sobre el elemento de la lista dos.

ComboBox

Asignatura: Tecnología e Informática.

Formación en Valor: Esperanza
Núcleo Integrador: ComboBox

Objetivo: Programar las listas desplegables.

COMBOBOX
Permite crear listas desplegables.

Agregue 2 comboBox al Formulario
y escriba el siguiente código

Private Sub Combo1_Click()
  Combo2.Clear
  Select Case Combo1.ListIndex
    Case 0
      Combo2.AddItem "CARTAGENA"
      Combo2.AddItem "TURBACO"
    Case 1
      Combo2.AddItem "BARRANQUILLA"
      Combo2.AddItem "BARANOA"
    Case 2
      Combo2.AddItem "SANTA MARTA"
      Combo2.AddItem "CIENAGA"
  End Select
End Sub

Private Sub Form_Load()
  Combo1.Clear
  Combo2.Clear
  Combo1.AddItem "BOLIVAR"
  Combo1.AddItem "ATLANTICO"
  Combo1.AddItem "MAGDALENA"
End Sub

Presione F5 y pruebe el programa.
Analice que el segundo ComboBox depende de la selección del primer ComboBox, teniendo en cuenta lo anterior,  desarrolle el siguiente Taller:

TALLER.
Desarrolle un programa donde aplique lo aprendido con 2 COMBOBOX. El primer ComboBox tiene los temas de Inglés y el segundo los elementos de ese tema.