none
AYUDA CON PICTUREBOX RRS feed

  • Pregunta

  • Hola

    Que puedo hacer, ya que tengo un picturebox al cual le cargo desde una carpeta una imagen, la direccion de la imagen esta en una tabla en el campo Cmpfoto la carga de la foto la realizo con el siguiente codigo.

    PicFotoPaciente.Picture = LoadPicture(!Cmpfoto)

    y bueno hasta allí todo bien el problema surge cuando la foto a la cual hago referencia, ya no existe en la carpeta especificada y por supuesto viene un mensaje de error... lo que me gustaria que pasara es que al no existir la foto el picturebox simplemente se ponga en blanco y no venga el mensaje de error.


    Miguel Prillwitz

    jueves, 9 de marzo de 2017 3:49

Respuestas

  • Migprillwitz,

    Previo a cargar la imagen debes validar que el archivo exista en la ruta especificada. En versiones modernas de Visual Basic la tarea es bastante simple, en Visual Basic 6.0 puedes hacerlo utilizando APIS o a través del modelo de acceso a archivos FSO.

    Dim FS As Object
    Dim RutaArchivo As String
    
    Set FS = CreateObject("Scripting.FileSystemObject")
    RutaArchivo = "D:\Fotos\Paciente1.jpg"
    
    If FS.FileExists(RutaArchivo) Then
    	picFotoPaciente.Picture = LoadPicture(RutaArchivo)
    Else
    	picFotoPaciente.Picture = LoadPicture()
    	MsgBox "El archivo no existe"
    End If
      
    Set FS = Nothing


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Migprillwitz jueves, 9 de marzo de 2017 9:48
    jueves, 9 de marzo de 2017 4:51

Todas las respuestas

  • Migprillwitz,

    Previo a cargar la imagen debes validar que el archivo exista en la ruta especificada. En versiones modernas de Visual Basic la tarea es bastante simple, en Visual Basic 6.0 puedes hacerlo utilizando APIS o a través del modelo de acceso a archivos FSO.

    Dim FS As Object
    Dim RutaArchivo As String
    
    Set FS = CreateObject("Scripting.FileSystemObject")
    RutaArchivo = "D:\Fotos\Paciente1.jpg"
    
    If FS.FileExists(RutaArchivo) Then
    	picFotoPaciente.Picture = LoadPicture(RutaArchivo)
    Else
    	picFotoPaciente.Picture = LoadPicture()
    	MsgBox "El archivo no existe"
    End If
      
    Set FS = Nothing


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Migprillwitz jueves, 9 de marzo de 2017 9:48
    jueves, 9 de marzo de 2017 4:51
  • MIL GRACIAS

    El codigo que me has dado funciona a la perfeccion, es justo lo que queria te agradezco muuuuucho.


    Miguel Prillwitz

    jueves, 9 de marzo de 2017 9:48