Saltar al contenido

Cargar imagen con GetOpenFileName

publicado

Buenos días a todos;

-Con  el procedimiento que adjunto  obtengo la ruta de una imagen y la almaceno en la caja de Texto.

Si a la hora de elegir una imagen le doy a botón cancelar me devuelve "False" a la caja de texto.

¿Se puede corregir para que cuando suceda el  "txtAdjunto" quede vacio?

He estado analizando otros procedimiento semejantes y ocurre lo mismo.

 

image.png.2d871ff01baae5dde875459ad8143500.png

 

Sub CargarImagen()
    Dim vImage As String
    
    vImagen = Application.GetOpenFilename("Archivos JPG PNG BMP  (*.jpg*;*.png*;*.bmp*), *.jpg*;*.png*;*.bmp*")
    If Not vImagen = "False" Then
        Me.txtAdjunto = vImagen
    Else
        MsgBox "No ha seleccionado nigunga imagen.", vbInformation, "Mensaje"
    End If
End Sub

Saludos a todos y todas.

Featured Replies

publicado
  • Autor

No he puesto en el procedimiento txtAjunto="" porque no hace nada.

publicado

Esto:

    If Not vImagen = False Then

en lugar de esto:

    If Not vImagen = "False" Then

 

publicado
  • Autor
Hace 28 minutos , Antoni dijo:

Esto:

    If Not vImagen = False Then

en lugar de esto:

    If Not vImagen = "False" Then

 

Hola y gracias  Antoni;

Me voy a "Afflelou" a comprar gafas que por poco más me compro dos pares y tú con vista de águila ?

Estas bagatelas si que tienen importancia. 

Lo dicho moitas

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.