E x p l o r a d o r d e i m a g e n e s

El explorador de imágenes: un sencillo programa para visualizar nuestras fotos.

Consta de:

- 1 Drive para selecionar la unidad en la que vamos a encontrar nuestras fotos.

- 1 Dir para navegar por las carpetas de la unidad previamente seleccionada.

- 6 OptionButton.

Funciona de la siguiente manera:

'Carga los gráficos del FileList en el ListView
Sub Cargar_Imagen( _
ListView As ListView, _
imageList As imageList, _
progressbar As progressbar)

On Local Error GoTo errSub

Dim imagen As Integer, Clave As String

Set ListView.Icons = Nothing

With imageList
'Elimina las imágenes del ImageList
.ListImages.Clear
'Elimina los Items del Listview
ListView.ListItems.Clear
End With

'Según el optionbutton seleccionado, asigna el ancho y alto que tendrá la imagen cargada en en el Listview
With imageList
If Option1(0) Then
.ImageHeight = 16
.ImageWidth = 16
ElseIf Option1(1) Then
.ImageHeight = 32
.ImageWidth = 32
ElseIf Option1(2) Then
.ImageHeight = 48
.ImageWidth = 48
ElseIf Option1(3) Then
.ImageHeight = 64
.ImageWidth = 64
ElseIf Option1(4) Then
.ImageHeight = 128
.ImageWidth = 128
End If
End With

With progressbar
.Value = 0
.Max = File1.ListCount
End With

' Recorre el FileListBox con las imagenes para agregar
For imagen = 0 To File1.ListCount - 1
'clave ( nombre del gráfico) para asignar al ImageList y el ListView
Clave = File1.List(imagen)
'Agrega el gráfico al ImageListleyendo del disco con LaodPicture
imageList.ListImages.Add , Clave, _
LoadPicture(Dir1.Path & "\" & Clave)


' Si el ImageList no está inicializdo ..lo enlaza al Listview
If ListView.Icons Is Nothing Then
Set ListView.Icons = imageList
End If

'Agrega la imagen
ListView.ListItems.Add , , Clave, Clave

'Visualiza el progreso
progressbar.Value = imagen + 1
DoEvents

Next

progressbar.Value = 0

Exit Sub

'Error
errSub:
MsgBox " Número de Error:" & Err.Number & vbNewLine _
& Err.Description, vbCritical
End Sub

Resultado:

- Los 6 Optionbuttons:

Te permite que al cargar las imágenes utilizar diferentes tamaños.

Código:

Private Sub Form_Load()

' Filtro de extensiones para los archivos del FileList

File1.Pattern = "*.bmp;*.jpg;*.gif;*.ico;*.jpeg;*.wmf;*.cur"

Option1(2).Value = True

With ListView1

' Tipo de ordenación de los íconos

ListView1.Arrange = lvwAutoTop

End With

Option1(0).Caption = "16 * 16 pixeles"

Option1(1).Caption = "32 * 32 pixeles"

Option1(2).Caption = "48 * 48 pixeles"

Option1(3).Caption = "64 * 64 pixeles"

Option1(4).Caption = "128 * 128 pixeles"

End Sub

Llenar vaciar deposito

Este programa esta orientado a llenar/vaciar un deposito como utilidad se podría usar en alguna gasolinera u otro tipo de trabajo similar.

Consta de:

- 2 Options Button

- 1 Command Button

- 1 Picture

- 1 Cuadros de texto que aumentara según queramos simular un llenado/vacío

Funciona de la siguiente manera:

- Botón Llenar

Al presionar el boton "Start" se empezara a llenar, es decir, que el cuadro de texto en amarillo empezara a elevarse:

- Botón Vaciar

Al presionar el botón "Start" se empezara a Vaciar, es decir, que el cuadro de texto en amarillo empezara a disminuir:

- Codigo:

Private Sub Timer1_Timer()
If Option1.Value = True Then
incremento = 20
Else
incremento = -20
End If

If Text1.Top - incremento <= Picture1.Top + Picture1.Height * 0.91 Then
If Text1.Height + incremento <= Picture1.Height Then
Text1.Height = Text1.Height + incremento
Text1.Top = Text1.Top - incremento
Else
Text1.Height = Picture1.Height
End If
End If
End Sub