none
Mostrar un mensaje de error si se encuentra mal la ruta, a través de un botón examinar RRS feed

  • Pregunta

  • Cree un botón de "Examinar" el cual permite seleccionar a partir de un cuadro de diálogo la imagen que se desee, al seleccionarla se agrega a un cuadro de texto la ruta de accesos de donde se encuentra dicha imagen, y a su vez la muestra en un picturebox, el código es el siguiente:

    Dim pic As New OpenFileDialog
            Dim picbox As New PictureBox
            Dim dirfoto As String
            pic.Filter = "JPG|*.JPG|GIF|*.GIF|BMP|*.bmp|Todos los archivos|*.*"
            pic.ShowDialog()
            If Len(pic.FileName()) > 0 Then
                dirfoto = pic.FileName()
                PictureBox1.Image = Image.FromFile(dirfoto)
                FOTOGRAFÍAS_V1TextBox.Text = Trim(dirfoto)
            Else
                MsgBox("No ha Seleccionado un Archivo de Fotografia", MsgBoxStyle.Critical)
            End If

    Funciona adecuadamente, sin embargo he tratado de crear una excepción en caso de que se ingrese una dirección inexistente o se encuentre mal la ruta de acceso, mande un mensaje a pantalla o error de que la ruta de acceso no existe, pero no logro encontrar la forma.

    Ya que al ejecutar con el código anterior, y escribir mal la direccion o no poner la extension correcta, sale de la compilación y manda un error de que "No se controló FileNotFoundException". 

    Gracias

    martes, 21 de agosto de 2012 22:22

Respuestas

  • Proba con try catch.

    Dim pic As New OpenFileDialog
            Dim picbox As New PictureBox
            Dim dirfoto As String
            pic.Filter = "JPG|*.JPG|GIF|*.GIF|BMP|*.bmp|Todos los archivos|*.*"
            pic.ShowDialog()
            Try              
                  dirfoto = pic.FileName()
                  PictureBox1.Image = Image.FromFile(dirfoto)
                  FOTOGRAFÍAS_V1TextBox.Text = Trim(dirfoto)
                
            Catch ex As Exception
                    MsgBox("No ha Seleccionado un Archivo de Fotografia", ex.ToString())
                
    Saludos.

    • Marcado como respuesta CharlieFJ martes, 21 de agosto de 2012 22:48
    martes, 21 de agosto de 2012 22:29

Todas las respuestas

  • Proba con try catch.

    Dim pic As New OpenFileDialog
            Dim picbox As New PictureBox
            Dim dirfoto As String
            pic.Filter = "JPG|*.JPG|GIF|*.GIF|BMP|*.bmp|Todos los archivos|*.*"
            pic.ShowDialog()
            Try              
                  dirfoto = pic.FileName()
                  PictureBox1.Image = Image.FromFile(dirfoto)
                  FOTOGRAFÍAS_V1TextBox.Text = Trim(dirfoto)
                
            Catch ex As Exception
                    MsgBox("No ha Seleccionado un Archivo de Fotografia", ex.ToString())
                
    Saludos.

    • Marcado como respuesta CharlieFJ martes, 21 de agosto de 2012 22:48
    martes, 21 de agosto de 2012 22:29
  • Va si funcionó muchas gracias, oye donde estudiaste se ve que sabes mucho de programación.

    Gracias

    Saludos

    martes, 21 de agosto de 2012 22:49
  • Va si funcionó muchas gracias, oye donde estudiaste se ve que sabes mucho de programación.

    Gracias

    Saludos

    Que bueno que te funciono, no creo que sepa mucho aun me falta un buen recorrido eso si me encanta programar y pues ahorita sigo estudiando sistemas en una universidad de mi país El Salvador.

    Saludos

    martes, 21 de agosto de 2012 22:56