Unidad 51. Cuadros de diálogo (II)

51.3. Abrir archivo.

Este es el aspecto del cuadro,,

Pero también podría ser este otro, dependerá de la versión de Windows y de la configuración del equipo.

Este objeto es el clásico de Windows, aunque aquí veamos está versión, la misma puede cambiar en función de la versión instalada en cada equipo.

La utilización es como vemos a continuación.

Try

OpenFileDialog.ShowDialog()

PictureBox1.Image=Image.FromFile(OpenFileDialog.FileName)

Catch ex As Exception

End Try

O también en el evento FileOk del objeto escribir la acción a realizar.

Private Sub OpenFileDialog_FileOk(ByVal sender As Object, _

ByVal e As System.ComponentModel.CancelEventArgs) _

Handles OpenFileDialog1.FileOk

‘ Acción a realizar.

PictureBox1.Image=Image.FromFile(OpenFileDialog.FileName)

End Sub

Previamente se supone que hemos personalizado el objeto en función de nuestras necesidades, con el uso de las propiedades adecuadas.

CheckFileExists Comprueba que el archivo existe antes de salir del cuadro de dialogo. En caso de producirse un error, se visualiza una ventana que indica dicha circunstancia.

CheckPathExists Comprueba que la ruta especificada existe antes de salir del cuadro de dialogo. En caso de producirse un error, se visualiza una ventana que indica dicha circunstancia.

DefaultExt Esta propiedad permite especificar una extensión predeterminada de nombre de archivo, como .txt o .doc, que es añadida al nombre del archivo si el usuario no especifica ninguna.

Abrir.DefaultExt= “.Txt”

FileName Esta propiedad devuelve o establece el nombre del archivo que se ha seleccionado en el cuadro Abrir.

El nombre incluye la ruta de ubicación del archivo.

Si la cadena es de longitud cero, es que no hay archivo seleccionado.

Ruta =Abrir.FileName

Filter Especifica el tipo de archivos que se presentan en el cuadro de lista de archivos del cuadro de diálogo. Esta propiedad permite proporcionar al usuario una lista de filtros que se pueden seleccionar cuando se presente el cuadro de diálogo.

Para crear una lista de posibles filtros hay que utilizar el carácter ( | ) (ASCII 124) para separar los valores descripción y filtro.

No se pueden incluir espacios en blanco delante o a continuación de la barra vertical, ya que dichos espacios aparecerán en los valores descripción y filtro.

Abrir.Filter = “Texto(*.txt)|*.txt|Imágenes *.bmp;*.ico)|*.bmp;*.ico”

FilterIndex Una vez que se ha creado una lista de filtros de archivos, la propiedad FilterIndex nos permite indicar cual es el que queremos que se visualice por defecto.

Abrir.FilterIndex 2

Abrir.ShowDialog

InitialDirectory Devuelve o indica el directorio de inicio para el cuadro de dialogo.

Abrir.InitialDirectory = “C:\”

Octubre-2010

Pág. 51.2