Problemas para trabjar con imagenes

Hola,
te adjunto este codigo que te puede ser de gran ayuda, a mi me está
corriendo bien en una aplicación que hice.
Saludos
Geovanny Quirós.
C.R.

Private Sub Btnimagen_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Btnimagen.Click

'carga una imagen de una directoria y la muestra en un picturebox

With OpenFileDialog1

.InitialDirectory = "D:\APLICACIONES\CEDULAS"

.Filter = "All Files|*.*|JPEGs|*.jpg"

.FilterIndex = 2

End With



If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

With Picimagen

.Image = Image.FromFile(OpenFileDialog1.FileName)

.Size = New System.Drawing.Size(312, 200)

.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage

End With

End If

End Sub


Private Sub BtnSalvaImagen_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnSalvaImagen.Click
'Salva la imagen en una base de datos.

Dim cn As New OleDbConnection(cnnsocios.ConnectionString)

Dim cmd As New OleDbCommand("Update Socios set imagen = @blobdata where
cedula = " & PrepararStr(Txtcedula.Text), cn)

Dim ms As MemoryStream = New MemoryStream

Picimagen.Image.Save(ms, ImageFormat.Jpeg)

Dim bytBLOBData(ms.Length - 1) As Byte

ms.Position = 0

ms.Read(bytBLOBData, 0, ms.Length)

Dim prm As New OleDbParameter("@BLOBData", OleDbType.Binary, _

bytBLOBData.Length, ParameterDirection.Input, False, _

0, 0, Nothing, DataRowVersion.Current, bytBLOBData)

cmd.Parameters.Add(prm)

cn.Open()

cmd.ExecuteNonQuery()

cn.Close()

End Sub



Private Sub actualizacampos()
'lee la imagen de la bd y la asigna al picturebox , usando un dataset
If Not IsDBNull(Dssocios.Tables(0).Rows(i).Item("imagen")) Then

ExisteImagen = True

Dim bytBLOBData() As Byte Dssocios.Tables(0).Rows(i).Item("imagen")

Dim stmBLOBData As New MemoryStream(bytBLOBData)

Picimagen.Image = Image.FromStream(stmBLOBData)

With Picimagen

.Size = New System.Drawing.Size(312, 200)

.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage

End With

End If

End Sub



"Charliesv" escribió en el mensaje
news:21d3001c45af3$f0bc46c0$
Hola a todos, he trabajado un poco con vb6.0, pero ahora
con vb.net tengo problemas para trabajar con las imagenes,
es decir, quiero hacer unba aplicación windows que permita
al usuario seleccionar la imagen de un producto, mostrarlo
en un formulario y luego guardarlo en la base de datos. no
se si alguien me podria ayudar con eso, yo les estare muy
agradecido.

Saludos.