Taller - ComboBox y ListBox

Teniendo en cuenta el siguiente formulario

active la ventana de código y copie el código siguiente:

Private Sub ComboBox1_Click()
  ListBox1.Clear
  Select Case ComboBox1.ListIndex
    Case 0
      ListBox1.AddItem "Barranquilla"
      ListBox1.AddItem "Baranoa"
      ListBox1.AddItem "Santo Tomas"
    Case 1
      ListBox1.AddItem "Arjona"
      ListBox1.AddItem "Cartagena"
      ListBox1.AddItem "Turbaco"
    Case 2
      ListBox1.AddItem "Aracataca"
      ListBox1.AddItem "Cienaga"
      ListBox1.AddItem "Santa Marta"
  End Select
End Sub

Private Sub UserForm_Initialize()
  ComboBox1.AddItem "Atlantico"
  ComboBox1.AddItem "Bolivar"
  ComboBox1.AddItem "Magdalena"
End Sub

El anterior programa nos permite seleccionar un Departamento y nos muestra los municipios del Departamento seleccionado.

TALLER: Desarrolle un programa teniendo en cuenta la anterior información.
Espere instrucciones del docente.

Ambientación - conducta de entrada - II Periodo

V.J.E

Asignatura: Tecnología e Informática.

Formación en Valor: Alegría.

Núcleo Integrador: Ambientación - conducta de entrada.

Indicador de desempeño: Dar a conocer los núcleos del segundo periodo.

Núcleo Integrador: Cuadro Combinado y Cuadros de Listas.

Indicador de desempeño: Crea y programa lista de datos.

Exploración Cognitiva:

¿Cómo utilizas las listas de datos?

 Taller1.

Adicione a un formulario de Visual Basic los siguientes objetos

Cuadro Combinado

ComboBox

Cuadro de Lista.

ListBox

Adicione el siguiente código (copie y pegue)
Private Sub UserForm_Initialize()
  ListBox1.AddItem "TEMA 1"
  ListBox1.AddItem "TEMA 2"
  ListBox1.AddItem "TEMA 3"
   
  ComboBox1.AddItem "TEMA 1"
  ComboBox1.AddItem "TEMA 2"
  ComboBox1.AddItem "TEMA 3"
End Sub

Private Sub ComboBox1_Click()
  Select Case ComboBox1.ListIndex
    Case 0
      Label6.Caption = "PRESIONO CLIC EN EL ITEM 1"
    Case 1
      Label6.Caption = "PRESIONO CLIC EN EL ITEM 2"
    Case 2
      Label6.Caption = "PRESIONO CLIC EN EL ITEM 3"
  End Select
End Sub 

Private Sub ListBox1_Click()
  Select Case ListBox1.ListIndex
    Case 0
      Label7.Caption = "PRESIONO CLIC EN EL ITEM 1"
    Case 1
      Label7.Caption = "PRESIONO CLIC EN EL ITEM 2"
    Case 2
      Label7.Caption = "PRESIONO CLIC EN EL ITEM 3"
  End Select
End Sub

Ejecute el programa (F5) y seleccione los datos de las listas.
NOTA:
El evento Initialize(), se ejecuta al momento de iniciar o mostrar el formulario (Cuando presionas F5)
AddItem: Es una propiedad de los objetos ListBox y ComboBox, la cual permite adicionar un Item o elemento a la lista.