Databound PictureBox control

[David Ricker]

I have created a PictureBox control which can have it's Image property
directly bound to an image field in a database. This works perfectly for
showing the images that are in the database. When I paste a new image into
my control, it shows the new image and updates the image property. Problem
is... It doesn't update the bound field! Any thoughts as to what I've done
wrong? Any help would be greatly appreciated. The code for the Picturebox
and the code that I use to paste the image are below.

Thanks in Advance,
David J. Ricker II

-----------------Start of Picturebox Control

Imports System.Componen tModel

Public Class MyPictureBox
Inherits System.Windows. Forms.PictureBo x

#Region " Component Designer generated code "
Public Sub New(ByVal Container As System.Componen tModel.IContain er)
MyClass.New()
'Required for Windows.Forms Class Composition Designer support
Container.Add(M e)
End Sub
Public Sub New()
MyBase.New()
'This call is required by the Component Designer.
InitializeCompo nent()
'Add any initialization after the InitializeCompo nent() call
End Sub
'Component overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Disp ose()
End If
End If
MyBase.Dispose( disposing)
End Sub
'Required by the Component Designer
Private components As System.Componen tModel.IContain er
'NOTE: The following procedure is required by the Component Designer
'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()
End Sub
#End Region

Public Event ImageChanged As EventHandler

Private mImage As Object

<Bindable(True) , Browsable(True) > Public Shadows Property Image() As
Object
Get
Return mImage
End Get
Set(ByVal Value As Object)
If IsDBNull(Value) Then
Dim g As New System.Drawing. Bitmap(1, 1)
g.SetPixel(0, 0, System.Drawing. Color.White)
MyBase.Image = g
ElseIf Value Is Nothing Then
Dim g As New System.Drawing. Bitmap(1, 1)
g.SetPixel(0, 0, System.Drawing. Color.White)
MyBase.Image = g
ElseIf Value.GetType.F ullName = "System.Drawing .Bitmap" Then
MyBase.Image = Value
Dim ms As New System.IO.Memor yStream
CType(Value, Bitmap).Save(ms ,
System.Drawing. Imaging.ImageFo rmat.Jpeg)
Dim bytBLOBData(ms. Length - 1) As Byte
ms.Position = 0
ms.Read(bytBLOB Data, 0, ms.Length)
Value = bytBLOBData
Else
Dim img() As Byte = CType(Value, Byte())
Dim ms As New System.IO.Memor yStream
Dim offset As Integer = 0
ms.Write(img, offset, img.Length - offset)
Dim bmp As Bitmap = New Bitmap(ms)
ms.Close()
MyBase.Image = bmp
End If
mImage = Value
RaiseEvent ImageChanged(Me , New System.EventArg s)
End Set
End Property
End Class

-----------------End of Picturebox Control
-----------------Start of Image Pasting

Private Sub btnPasteImage_C lick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnPasteImage.C lick
Dim data As IDataObject = Clipboard.GetDa taObject
If (data.GetDataPr esent(DataForma ts.Bitmap)) Then
MyPictureBox1.I mage = data.GetData(Da taFormats.Bitma p)
End If
End Sub

-----------------End of Image Pasting

[David Ricker]

Also,
If my image is in a child record of a master/child relationship, and I
change the visible child record and then save, the image saves. If I don't
change the child record I'm looking at first, then the image doesn't save.

Thanks Again,
David J. Ricker II

"David Ricker" <da***@vanamati c.com> wrote in message
news:Og******** ********@TK2MSF TNGP10.phx.gbl. ..

I have created a PictureBox control which can have it's Image property
directly bound to an image field in a database. This works perfectly for
showing the images that are in the database. When I paste a new image into my control, it shows the new image and updates the image property. Problem is... It doesn't update the bound field! Any thoughts as to what I've done wrong? Any help would be greatly appreciated. The code for the Picturebox and the code that I use to paste the image are below.

Thanks in Advance,
David J. Ricker II

-----------------Start of Picturebox Control

Imports System.Componen tModel

Public Class MyPictureBox
Inherits System.Windows. Forms.PictureBo x

#Region " Component Designer generated code "
Public Sub New(ByVal Container As System.Componen tModel.IContain er) MyClass.New()
'Required for Windows.Forms Class Composition Designer support
Container.Add(M e)
End Sub
Public Sub New()
MyBase.New()
'This call is required by the Component Designer.
InitializeCompo nent()
'Add any initialization after the InitializeCompo nent() call
End Sub
'Component overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Disp ose()
End If
End If
MyBase.Dispose( disposing)
End Sub
'Required by the Component Designer
Private components As System.Componen tModel.IContain er
'NOTE: The following procedure is required by the Component Designer 'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()
End Sub
#End Region

Public Event ImageChanged As EventHandler

Private mImage As Object

<Bindable(True) , Browsable(True) > Public Shadows Property Image() As
Object
Get
Return mImage
End Get
Set(ByVal Value As Object)
If IsDBNull(Value) Then
Dim g As New System.Drawing. Bitmap(1, 1)
g.SetPixel(0, 0, System.Drawing. Color.White)
MyBase.Image = g
ElseIf Value Is Nothing Then
Dim g As New System.Drawing. Bitmap(1, 1)
g.SetPixel(0, 0, System.Drawing. Color.White)
MyBase.Image = g
ElseIf Value.GetType.F ullName = "System.Drawing .Bitmap" Then
MyBase.Image = Value
Dim ms As New System.IO.Memor yStream
CType(Value, Bitmap).Save(ms ,
System.Drawing. Imaging.ImageFo rmat.Jpeg)
Dim bytBLOBData(ms. Length - 1) As Byte
ms.Position = 0
ms.Read(bytBLOB Data, 0, ms.Length)
Value = bytBLOBData
Else
Dim img() As Byte = CType(Value, Byte())
Dim ms As New System.IO.Memor yStream
Dim offset As Integer = 0
ms.Write(img, offset, img.Length - offset)
Dim bmp As Bitmap = New Bitmap(ms)
ms.Close()
MyBase.Image = bmp
End If
mImage = Value
RaiseEvent ImageChanged(Me , New System.EventArg s)
End Set
End Property
End Class

-----------------End of Picturebox Control
-----------------Start of Image Pasting

Private Sub btnPasteImage_C lick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnPasteImage.C lick
Dim data As IDataObject = Clipboard.GetDa taObject
If (data.GetDataPr esent(DataForma ts.Bitmap)) Then
MyPictureBox1.I mage = data.GetData(Da taFormats.Bitma p)
End If
End Sub

-----------------End of Image Pasting

[David Ricker]

I have found a workaround to this problem, however I am still curious if
anyone has any ideas as to why the dataset was not being updated in the
first place. The workaround involved manually setting the image in the
dataset to the image value of the control. I have added the following line
of code after I paste the image into my control:

CType(CType(Me. BindingContext( Dataview1, "DataMember").C urrent,
System.Data.Dat aRowView).Row, dataset1.TableR ow).Image =
Me.MyPictureBox 1.Image

Thanks Again,
David J. Ricker II

"David Ricker" <da***@vanamati c.com> wrote in message
news:O$******** ******@TK2MSFTN GP11.phx.gbl...

Also,
If my image is in a child record of a master/child relationship, and I
change the visible child record and then save, the image saves. If I don't change the child record I'm looking at first, then the image doesn't save.

Thanks Again,
David J. Ricker II

"David Ricker" <da***@vanamati c.com> wrote in message
news:Og******** ********@TK2MSF TNGP10.phx.gbl. ..

I have created a PictureBox control which can have it's Image property
directly bound to an image field in a database. This works perfectly for showing the images that are in the database. When I paste a new image

into

my control, it shows the new image and updates the image property.

Problem

is... It doesn't update the bound field! Any thoughts as to what I've

done

wrong? Any help would be greatly appreciated. The code for the

Picturebox

and the code that I use to paste the image are below.

Thanks in Advance,
David J. Ricker II

-----------------Start of Picturebox Control

Imports System.Componen tModel

Public Class MyPictureBox
Inherits System.Windows. Forms.PictureBo x

#Region " Component Designer generated code "
Public Sub New(ByVal Container As

System.Componen tModel.IContain er)

MyClass.New()
'Required for Windows.Forms Class Composition Designer support Container.Add(M e)
End Sub
Public Sub New()
MyBase.New()
'This call is required by the Component Designer.
InitializeCompo nent()
'Add any initialization after the InitializeCompo nent() call
End Sub
'Component overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Disp ose()
End If
End If
MyBase.Dispose( disposing)
End Sub
'Required by the Component Designer
Private components As System.Componen tModel.IContain er
'NOTE: The following procedure is required by the Component

Designer

'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()
End Sub
#End Region

Public Event ImageChanged As EventHandler

Private mImage As Object

<Bindable(True) , Browsable(True) > Public Shadows Property Image() As
Object
Get
Return mImage
End Get
Set(ByVal Value As Object)
If IsDBNull(Value) Then
Dim g As New System.Drawing. Bitmap(1, 1)
g.SetPixel(0, 0, System.Drawing. Color.White)
MyBase.Image = g
ElseIf Value Is Nothing Then
Dim g As New System.Drawing. Bitmap(1, 1)
g.SetPixel(0, 0, System.Drawing. Color.White)
MyBase.Image = g
ElseIf Value.GetType.F ullName = "System.Drawing .Bitmap" Then
MyBase.Image = Value
Dim ms As New System.IO.Memor yStream
CType(Value, Bitmap).Save(ms ,
System.Drawing. Imaging.ImageFo rmat.Jpeg)
Dim bytBLOBData(ms. Length - 1) As Byte
ms.Position = 0
ms.Read(bytBLOB Data, 0, ms.Length)
Value = bytBLOBData
Else
Dim img() As Byte = CType(Value, Byte())
Dim ms As New System.IO.Memor yStream
Dim offset As Integer = 0
ms.Write(img, offset, img.Length - offset)
Dim bmp As Bitmap = New Bitmap(ms)
ms.Close()
MyBase.Image = bmp
End If
mImage = Value
RaiseEvent ImageChanged(Me , New System.EventArg s)
End Set
End Property
End Class

-----------------End of Picturebox Control
-----------------Start of Image Pasting

Private Sub btnPasteImage_C lick(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles btnPasteImage.C lick
Dim data As IDataObject = Clipboard.GetDa taObject
If (data.GetDataPr esent(DataForma ts.Bitmap)) Then
MyPictureBox1.I mage = data.GetData(Da taFormats.Bitma p)
End If
End Sub

-----------------End of Image Pasting