Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

217 - Visualizador de imágenes usando un Listview

<Volver> - Anterior - Siguiente

Ejemplo simple para explorar una carpeta y cargar los archivos gráficos, tipo vista previa y con diferentes tamaños, en un control ListView

Formulario de ejemplo

vista del explorador de imagenes usando el control listView

Descargar

Código fuente

Para el ejemplo se necesitan los siguientes controles :

Un control ImageList
un control ListView
un control DirListBox
Un FileListBox
un DriveListBox
un ProgressBar
y un arreglo de 5 optionButton para especificar las dimensiones de los gráficos. Los optionbutton se deben llamar: Option1(0) para las imágenes de 16 * 16 pixeles , Option1(1) para 32 * 32 , hasta el Option1(4)

Nota: Para acelerar la carga de las imágenes, se puede quitar la instrucción DoEvents en el For-next

Código fuente en un Formulario:

Option Explicit '------------------------------------------------ ' 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 Private Sub Dir1_Change() File1 = Dir1 If File1.ListCount = 0 Then Exit Sub Else ' Carga el Listview si es que hay imagenes Call Cargar_Imagen(ListView1, ImageList1, ProgressBar1) Me.Caption = Dir1.Path End If End Sub 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 Private Sub Drive1_Change() Dir1 = Drive1 End Sub

Recursos visual basic.NET - enlaces relacionados

Código fuente en vb.net 2005 de un programa para visualizar gráficos e imágenes

Buscar en Recursos vb