Taller - ComboBox y ListBox

Fecha: 11B Agosto-31-2012
Asignatura: Tecnología e Informática.
Formación en Valor: Libertad
Núcleo Integrador: Taller - ComboBox y ListBox.
Objetivo: Aplicar lista de opciones a un programa.

Taller - ComboBox y ListBox

Teniendo en cuenta los talleres anteriores de ComboBox y ListBox, desarrolle un programa que tenga las siguientes características:

Combo para Regiones (Caribe, Pacifico, Amazonia, Orinoquia, Andina, Insular), al seleccionar una región debe aparecer los municipios que la conforman.

ListBox

Fecha: 11B Agosto-24-2012
Asignatura: Tecnología e Informática.
Formación en Valor: Libertad
Núcleo Integrador: ListBox .
Objetivo: Utilizar listas de opciones en un programa.

ListBox:  Este objeto nos permite mostrar una lista de opciones 


Ejercicio Diseña el siguiente formulario:

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 ejercicio anterior, desarrolle un programa que permita realizar una venta de diferentes artículos.
Utilice el mismo código pero cambie los nombres de los artículos a vender (List1) y cuando de clic sobre la lista debe agregar este código

Private Sub List1_Click()

  Select Case List1.ListIndex
    Case 0
      Label1 = 100
    Case 1
      Label1 = 200
    Case 2
      Label1 = 150
    Case 3
      Label1 = 500
  End Select
End Sub

Al agregar un elemento adicione este código:
Label2 = Val(Label2) + Val(Label1)

NOTA: Note que debe adicionar dos Label (Label1 y Label2)

ComboBox

Fecha: 17-Ago-2012
Asignatura: Tecnología e Informática.
Formación en Valor: Libertad
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.

TALLER.
Desarrolle un ejercicio donde aplique lo aprendido con 2 COMBOBOX

Manejo de Unidades de disco, carpetas y archivos.

11B:
Fecha:  Agosto 10 de 2012
Asignatura: Tecnología e Informática.
Formación en Valor: Libertad.
Núcleo Integrador: Manejo de Unidades de disco, carpetas y archivos.
Objetivo: Programar la exploración de unidades y carpetas.


Manejo de Unidades de disco, carpetas y archivos.

Visual Basic 6.0 le permite con una serie de objetos explorar las unidades de disco y mostrar los archivos que contengan las unidades de disco o carpetas.


Objetos a Utilizar:

DriveListBox: Muestra una lista de las unidades de disco del computador como son: Discos duros, USB, CD, etc.


DirListBox: Permite explorar las carpetas, mostrando las subcarpetas que estas contengan.


FileListBox: Muestra los archivos contenidos en una unidad de disco o carpeta.


Image: Muestra imágenes contenidas en el disco.


Taller:

Realice el siguiente diseño de formulario con los objetos anteriores:
Nota: al objeto Image debe cambiarle la propiedad Stretch a TRUE, para que se ajuste al tamaño del objeto cuando se muestra la imagen.

Debe copiar el siguiente código:

'La comilla sencilla al frente del código indica que es un comentario.

'Muestra los archivos al cambiar la carpeta.

Private Sub Dir1_Change()

  File1.Path = Dir1.Path

End Sub

'Al cambiar la unidad de disco muestra que carpetas contiene.

Private Sub Drive1_Change()

  Dir1.Path = Drive1.Drive

End Sub

'Muestra la imagen al dar un clic sobre el archivo de imagen.

Private Sub File1_Click()

  Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)

End Sub

'Al momento de mostrar el formulario le indica al objeto FileListBox 

' que muestre solo los tipos de archivos jpg, bmp y gif 

Private Sub Form_Load()

  File1.Pattern = "*.jpg; *.bmp; *.gif"

End Sub

Ejecute el programa presionando la tecla F5 y explore el disco en busca de imágenes.