![]() |
|
![]() |
|
GetFileName |
|
![]() Volver |
'********************************************************* ' Function GetFileName( ' hwndOwner As Long, ' AppName As String, ' DlgTitle As String, ' OpenTitle As String, ' File As String, ' InitialDir As String, ' Filter As String, ' FilterIndex As Long, ' View As Long, ' flags As Long, ' fOpen As Boolean) As Long ' ' Método que permite utilizar el cuadro de diálogo ' Abrir/Guardar de Ms Office ' ' Argumentos ' hwndOwner: Valor Long con el controlador de ventana a ' la que pertenecerá el cuadro de diálogo ' AppName: Ni idea (?¿?) ' DlgTitle: Texto de la barra de título del cuadro de ' diálogo ' OpenTitle: Texto del botón Aceptar ' File: Variable que contendrá la ruta escogida por el ' usuario ' InitialDir - Directorio donde se iniciará el cuadro de ' diálogo ' Filter - Filtro del tipo de archivos que queremos que ' muestren. Puede haber más de un filtro. Se ' han de separar con el caracter "|" ' FilterIndex - Número de índice del filtro que queremos ' activar. ' View - Tipo de vista que queremos activar. ' flags - Este argumento, junto con View, activa las ' vistas y algunos atributos del cuadro de ' diálogo: ' ' View = 0 y flags = 0 ' Vista: Lista ' View = 0 y flags = 64 ' Vista: Detalles ' View = 1 y flags = 64 ' Vista: Vista previa ' View = 2 y flags = 64 ' Vista: Vista propiedades ' y además: ' View = 0 y flags = 32 ' Muestra y selecciona sólo directorios ' View = 0 y flags = 12 ' Permite seleccionar más de un archivo ' ' fOpen: ' Establecido a True: Muestra el botón Abrir ' Establecido a False: Muestra el botón Guardar ' ' El siguiente ejemplo abrirá el cuadro de diálogo "Abrir" ' de Office, mostrando los archivos gráficos existentes en ' el directorio activo y con la opción "Vista previa" ' activada. ' Sub wzGetFileName() Dim wzhwndOwner As Long Dim wzAppName As String Dim wzDlgTitle As String Dim wzOpenTitle As String Dim wzFile As String Dim wzInitialDir As String Dim wzFilter As String Dim wzFilterIndex As Long Dim wzView As Long Dim wzflags As Long Dim wzfOpen As Boolean Dim ret As Long WizHook.Key = 51488399 wzhwndOwner = 0& wzAppName = "" wzDlgTitle = "Cuadro de diálogo con WizHook" wzOpenTitle = "Abrir con Wz" wzFile = String(255, Chr(0)) wzInitialDir = "" wzFilter = "Archivos gráficos " _ & "(*.wmf;*.emf;*.dib;*.bmp;*.ico;" _ & "*.pcx;*.pcx;*.jpg;*.gif;*.png)" wzFilterIndex = 1 wzView = 1 wzflags = 64 wzfOpen = True ret = WizHook.GetFileName(wzhwndOwner, _ wzAppName, wzDlgTitle, wzOpenTitle, wzFile, _ wzInitialDir, wzFilter, wzFilterIndex, _ wzView, wzflags, wzfOpen) ' Si no se ha pulsado el botón Cancelar (-302) If ret <> -302 Then MsgBox "Archivo seleccionado: " & wzFile End If End Sub '********************************************************* |
![]() |
Última actualización 21/9/2003 © Juan M. Afán deRibera |