OpenPictureFile


Volver
'*********************************************************
' Function OpenPictureFile(
'          File As String,
'          Cancelled As Boolean) As Boolean
'
' Presenta un cuadro de diálogo ya preparado especialmente
' para escoger archivos de imágenes. Es el mismo cuadro de
' diálogo que se utiliza con el método GetFileName, pero
' sin posibilidad para configurarlo.
'
' Argumentos:
'   FileName - Variable que contendrá el nombre y ruta del
'              archivo seleccionado.
'   Cancelled - Variable booleana que contendrá True si se
'               ha pulsado el botón Cancelar o se ha 
'               cerrado el cuadro de diálogo pulsando la
'               "X" de los botones de la ventana
'
Sub wzOpenPictureFile()
Dim wzFileName As String
Dim wzCancelled As Boolean
Dim ret As Boolean

    WizHook.Key = 51488399
    
    ret = WizHook.OpenPictureFile(wzFileName, wzCancelled)
    
    ' Si no se ha pulsado el botón Cancelar...
    If wzCancelled = False Then
        Debug.Print "Archivo de imagen seleccionado: " _
                    & wzFileName
    End If

End Sub
'*********************************************************
Contactar Última actualización 21/9/2003     © Juan M. Afán deRibera