Visor sencillo de imágenes en VB (2)

Visor de imágenes con tareas muy sencillas de edición, añadiendo navegación por árbol de unidades y directorios y un botón que abre una página web con el código, en Visual Studio 2017 con VB

En este ejercicio realizado con Visual Studio 2017 se intenta complicar el ejercicio anterior añadiendo otras características:

  • Seleccionar la imagen desde un árbol de lista donde se muestran las unidades de disco y los directorios, usando ComboBox, TreeNode, GetDirectories
  • Añadir un botón que abre una página web en la que se muestra el código VB del formulario principal
  • Añadir un botón que muestra un diálogo Acerca de

Además de algunas características vistas en el ejercicio anterior:

  • Convertir la imagen a otro formato (BMP a JPG y viceversa)
  • Copiar la imagen al portapapeles usando la clase ClipBoard
  • Cambiar el modo de mostrar la imagen con la propiedad PictureBoxSizeMode.

Ver unidades de disco del sistema

Al arrancar el programa, el ComboBox se rellena con un array que contiene las unidades obtenidas desde GetLogicalDrives de System.Environment y se muestra la primera unidad seleccionando el primer ítem del array:

Me.CancelButton = Me.btSalir 'rellenar el Combobox con las letras de unidad del sistema: 'array de cadenas para contener los nombres de las unidades Dim drives() As String 'rellenar el array con las unidades lógicas del sistema drives = System.Environment.GetLogicalDrives() 'rellenar el Combobox dese el array Me.cbDrive.Items.AddRange(drives) 'mostrar la letra de la primera unidad para que no arranque vacío el Combobox Me.cbDrive.SelectedItem = Me.cbDrive.Items(0)
Lenguaje del código: PHP (php)


Al elegir un ítem en el ComboBox se obtienen los directorios de la unidad seleccionada utilizando Directory.Info y GetDirectories y se rellena un TreeView con nodos que son las carpetas encontradas:

'la clase DirectoryInfo expone métodos de instancia para _ 'crear, mover y enumerar archivos en directorios y subdirectorios; _ 'se utiliza la clase DirectoryInfo para operaciones típicas como copiar, _ 'mover, cambiar de nombre, enumerar, crear y eliminar directorios. _ 'obtener los directorios de la unidad seleccionada; Dim combo As New DirectoryInfo(Me.cbDrive.Text) Dim carpetas() As DirectoryInfo carpetas = combo.GetDirectories() 'limpiar el Treeview tvDir.Nodes.Clear() 'rellenar el Treeview con los nombres de los directorios; 'TreeNode representa a los nodos del Treeview Dim carpetas2 As DirectoryInfo Dim nodo As TreeNode For Each carpetas2 In carpetas 'el constructor de la clase Treenode inicializa una nueva instancia 'aquí1 solo parámetroo: el texto de etiqueta especificado nodo = New TreeNode(carpetas2.FullName) Me.tvDir.Nodes.Add(nodo) Next
Lenguaje del código: PHP (php)


Después se rellena un control ListView con los archivos encontrados en la carpeta seleccionada, filtrando por las extensiones .bmp / .jpg / .jpg / .tiff:

'rellenar el Listview con los nombres de los archivos 'que cumplan la condiciónn: terminar por las extensiones 'de archivos de imagen (se pueden cambiar las que aparecen aquí) Dim imagen As FileInfo For Each imagen In archivos 'a cada extensiónn se le puede asignar una imagen diferente eb el Imagelist Select Case imagen.Extension Case ".BMP", ".bmp", ".JPG", ".JPEG", ".jpg", ".jpeg", ".PNG", ".png", ".TIFF", ".tiff", ".TIF", ".tif" Me.lvImg.Items.Add(imagen.Name) End Select Next End If
Lenguaje del código: PHP (php)


Mostrar dimensiones de la imagen

Se muestran las dimensiones de la imagen (ancho x alto) en una etiqueta usando las propiedades Image.Width e Image.Height:

'mostrar información sobre ancho y alto de la imagen seleccionada Me.lbImg.Text = "Ancho de imagen: " + pbImg.Image.Width.ToString + _ " px. / Alto de imagen: " + pbImg.Image.Height.ToString + " px"


Tareas simples de edición y copiado al portapapeles

Son las que ya se han utilizado en el ejercicio anterior por lo que no se repetirán aquí. Consulta el código de la aplicación, se puede descargar al final.

Abrir una ventana del navegador con el código VB

  • Obtener la ruta a la aplicación con Application.StartupPath
  • Añadir a la ruta el nombre del archivo HTML
  • ProcessStartInfo se usa para iniciar procesos, aquí sirve para abrir el archivo con la propiedad FileName
  • Antes de mostrar el código se abre un cuadro de mensaje con información:
'Obtener la ruta a la carpeta desde la que se ha iniciado la aplicación, Dim stRuta As String = Application.StartupPath 'ProcessStartInfo se utiliza para iniciar procesos Dim abrirDoc As ProcessStartInfo = New ProcessStartInfo 'Añadir a la ruta "\emiFotos 2.html" para abrir el archivo abrirDoc.FileName = stRuta + "\emiFotos 2.html" 'modo de apertura de archivo (tambiénn puede ser edit, print...) abrirDoc.Verb = "open" 'abrir en ventana normal abrirDoc.WindowStyle = ProcessWindowStyle.Normal 'Abrir el archivo mediante su programa asociado en Windows Process.Start(abrirDoc)
Lenguaje del código: PHP (php)


Aplicación completa en Visual Studio 2017

Descargar el archivo ZIP.

Nota: el ajuste automático de escala del formulario que muestra la ventana de la aplicación se puede configurar de varias maneras, lo tienes en las propiedades del formulario como AutoScaleMode, la opción con la que obtengo el mejor resultado es con Dpi.