Private Sub BtnFoto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFoto.Click
'Usamos un OpenFileDialog para buscar la imagen
With OpenFileDialog1
.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
.Filter = "Archivos de imagen (*.jpg,*.jpeg,*.bmp,*.png,*.gif)|*.jpg; *.jpeg; *.bmp; *.png; *.gif|Bitmaps (*.bmp)|*.bmp|GIFs (*.gif)|*.gif|JPEGs (*.jpg,*.jpeg)|*.jpg;*.jpeg|Todos los archivos (*.*)|*.*"
.FilterIndex = 1
End With
'Cuando el usuario presiona 'Abrir' se registra el valor DialogResult.OK,
'luego guardamos la ruta en el TextBox
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
With PictureBox
.Image = Image.FromFile(OpenFileDialog1.FileName)
.SizeMode = PictureBoxSizeMode.CenterImage
.BorderStyle = BorderStyle.Fixed3D
End With
'guardo el nombre del archivo
Me.objDocenteEN.Archivo = OpenFileDialog1.FileName
Else
MessageBox.Show("Error al cargar la foto", "Registrar Alumno", MessageBoxButtons.OK)
Me.objDocenteEN.Archivo = Nothing
End If
Dim fInfo As FileInfo = New FileInfo(Me.objDocenteEN.Archivo)
Dim numBytes As Long = fInfo.Length
Dim fStream As FileStream = New FileStream(Me.objDocenteEN.Archivo, FileMode.Open, FileAccess.Read)
Dim br As BinaryReader = New BinaryReader(fStream)
Me.objDocenteEN.Foto = br.ReadBytes(numBytes)
Dim arrNombreArchivo() As String = Split(Me.objDocenteEN.Archivo, "\")
Array.Reverse(arrNombreArchivo)
Me.PictureBox.SizeMode = PictureBoxSizeMode.StretchImage
' Dim strNombreFoto = Me.TbxNombre.Text + Me.TbxApPaterno.Text + Me.TbxApMaterno.Text
'Envio el nombre del archivo y la imagen como un arreglo de bytes, para ser guardado en la BD
'Me.gestorAlumno = New AlumnoLN
'Me.gestorAlumno.insertarImagen(Me.objAlumnoEN.Archivo, Me.objAlumnoEN.Foto)
End Sub