CARGAR LA RUTA DE UNA IMAGEN Y MOSTRARLA EN UN PICTUREBOX EN VB.NET

'CLASE CLIENTES: CREAS UNA CLASE Y EN LA CLASE AGREGAS ESTE TRY CATCH CON .IMAGELOCATION PARA QUE TE BUSQUE LA RUTA DE TU IMAGEN

Try

    Dim AUX As New CLASECLIENTES

              AUX.ACTUALIZARCLIENTE(ACTUALIZAR, PICTUREBOX2.IMAGELOCATION)

Catch EX As Exception

                    MSGBOX(EX.MESSAGE)

 End Try



'ESTE CÓDIGO CREAN UNA FUNCIÓN QUE EN ESTE CASO ES PARA ACTUALIZAR LA FOTO PERO ES LO MISMO PARA INSERTAR O ELIMINAR

'COLOCAN UN OPEN FILEDIALOG PARA QUE LES ABRA LA VENTANA PARA BUSCAR LA FOTO, LES DEJO EL CÓDIGO ABAJO



PICTUREBOX2



'ESTE CÓDIGO ES PARA PONER FILTROS A
LAS EXTENSIONES QUE VAS A RECIBIR EN LAS IMÁGENES

'EN MI CASO COLOQUE UN PICTUREBOX2 QUE

AL DARLE CLIC TE SACA UN CUADRO DE DIALOGO DONDE TIENES QUE IR A BUSCAR LA
IMAGEN (ESTO LO HACES EN EL EVENTO CLIC)

     

Try

    Me.OPENFILEDIALOG1.SHOWDIALOG()

    If Me.OPENFILEDIALOG1.FILENAME

<> ""
Then     

IMAGEN = OPENFILEDIALOG1.FILENAME

 Dim LARGO As Integer = IMAGEN.LENGTH

 Dim IMAGEN2 AS String

IMAGEN2 = CStr(MICROSOFT.VISUALBASIC.MID(RTRIM(IMAGEN),LARGO - 2, LARGO))

If IMAGEN2 <> "GIF" And

IMAGEN2 <> "BMP" And
IMAGEN2 <> "JPG" And
IMAGEN2 <> "JPEG" And
IMAGEN2 <> "GIF" And
IMAGEN2 <> "PNG" And
IMAGEN2 <> "BMP" And
IMAGEN2 <> "JPG" And
IMAGEN2 <> "JPEG" Then

IMAGEN2 = CStr(MICROSOFT.VISUALBASIC.MID(RTRIM(IMAGEN),LARGO - 3, LARGO))

If IMAGEN2 <> "JPEG" And IMAGEN2 <> "JPEG" And IMAGEN2 <> "LOG1" Then MSGBOX("FORMATO DE

IMAGEN NO VALIDO, SELECCIONE OTRA IMAGEN", MSGBOXSTYLE.INFORMATION) : Exit Sub

If IMAGEN2 <> "LOG1" Then

Exit Sub

End If

 PICTUREBOX2.LOAD(IMAGEN)

            End If

   Catch EX As Exception

         PICTUREBOX2.LOAD(APPLICATION.STARTUPPATH & "\AGREGARFOTO.JPG") 

 'ESTA LINEA COLOCA UNA IMAGEN PREDEFINIDA EN CASO QUE EL USUARIO NO TENGA FOTO, PARA QUE NO SE QUEDE VACÍO EL PICTUREBOX

  End Try

End Sub




LA FOTO QUE CARGA POR DEFECTO LA GUARDAS EN LA SIGUIENTE UBICACIÓN:   

DOCUMENTS\VISUALSTUDIO2010\PROJECTS\NOMBREDETUPROYECTO\BIN\DEBUG\AGREGARFOTO.JPG



 EN EL EVENTO LOAD



PICTUREBOX2.LOAD(APPLICATION.STARTUPPATH & "\AGREGARFOTO.JPG")

'PARA QUE CARGUE UNA IMAGEN EN EL PICTUREBOX Y NO SALGA VACÍO SINO CON UNA FOTO CARGADA.