Problemas para trabjar con imagenes

25/06/2004 - 22:35 por Charliesv | Informe spam
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.

Preguntas similare

Leer las respuestas

#1 Geovanny Quirós Castillo
25/06/2004 - 23:31 | Informe spam
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.
Respuesta Responder a este mensaje
#2 Anonimo
25/06/2004 - 23:36 | Informe spam
Muchas gracias Geovanny, ha sido de gran ayuda ese codigo
para mi, espero poder ayudarte algun dia.

Saludos.

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.


.

Respuesta Responder a este mensaje
#3 Geovanny Quirós Castillo
25/06/2004 - 23:59 | Informe spam
Con mucho gusto compañero, en el camino andamos...

escribió en el mensaje
news:213af01c45afc$7ca98780$
Muchas gracias Geovanny, ha sido de gran ayuda ese codigo
para mi, espero poder ayudarte algun dia.

Saludos.

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.


.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida