Is there an event for image change for a PictureBox Control? please help.

[Jose Michael Meo R. Barrido]

Hi! Can u please tech me a way to know if the image in the picturebox has
changed? what event should i catch the chage?

[Herfried K. Wagner [MVP]]

"Cor Ligthert" <no************ @planet.nl> schrieb:

As the developer you should know yourself when you change the image ;-).
In other words: No, there is no such event.

Again, please do not answer questions which I ask to an OP, wherefore
probably (not always for sure) the answer is obvious.

Huh?!

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Supra]

me 2 ;-)

Herfried K. Wagner [MVP] wrote:

"Cor Ligthert" <no************ @planet.nl> schrieb:

As the developer you should know yourself when you change the image
;-). In other words: No, there is no such event.

Again, please do not answer questions which I ask to an OP, wherefore
probably (not always for sure) the answer is obvious.

Huh?!

[Cor Ligthert]

> me 2 ;-)

Has to do with politness, I am sorry that you did not understand it.

When the OP ask something what is for you strange because the answer is
obvious, than you can give an answer, however you can as well do what I did
and ask what he means with his question, although you know almost for sure
your answer.

When than somebody else give in a (in my opinion kind of rude way) that
answer I am not happy.
In that way the OP will probably never ask a question here again.

I can than write nothing or ask to do it not again the next time.

Clear?

Cor

[Herfried K. Wagner [MVP]]

"Cor Ligthert" <no************ @planet.nl> schrieb:

When than somebody else give in a (in my opinion kind of rude way) that
answer I am not happy.

My reply was /not/ rude. Period.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Cor Ligthert]

Herfried,

My reply was /not/ rude. Period

I know it is not meant as that by you, however could be read like that.

The same way as you write that "Period".

Cor

[AviD]

I would like to help. Indeed the PictureBox control has no event associated
with the change of an image. But I can see no problem in creating your own
picturebox control, inheriting from the system PictureBox. In your control
you may add your own event capturing an image change. This is only a
suggestion, I have no code,
I'll try it myself.
"Cor Ligthert" wrote:

me 2 ;-)

Has to do with politness, I am sorry that you did not understand it.

When the OP ask something what is for you strange because the answer is
obvious, than you can give an answer, however you can as well do what I did
and ask what he means with his question, although you know almost for sure
your answer.

When than somebody else give in a (in my opinion kind of rude way) that
answer I am not happy.
In that way the OP will probably never ask a question here again.

I can than write nothing or ask to do it not again the next time.

Clear?

Cor

[AviD]

Hi,
Here is a Picture box control with two extra events , before image changed
and after image changed...

Imports System
Imports System.Windows. Forms
Imports System.Drawing. Drawing2D
Imports System.Drawing
<ToolboxBitmap( GetType(Picture Box))> _
Public Class adxPictureContr ol
Inherits PictureBox
Private _image As System.Drawing. Image
Event ImageBeforeChan ged(ByVal sender As Object, ByVal e As
EventArgsImageC hanged)
Event ImageAfterChang ed(ByVal sender As Object, ByVal e As
EventArgsImageC hanged)

Public Shadows Property Image() As Image
Get
Return _image
End Get
Set(ByVal Value As Image)

If Not Value Is _image Then
If Me.DesignMode Then
MyBase.Image = Value
_image = Value
Else
Dim ea As New EventArgsImageC hanged
If Not _image Is Nothing Then
RaiseEvent ImageBeforeChan ged(Me, ea)
If ea.Cancel = True Then
Exit Property
End If
End If
MyBase.Image = Value
_image = Value
RaiseEvent ImageAfterChang ed(Me, ea)
End If
End If
End Set
End Property

End Class
Public Class EventArgsImageC hanged
Inherits EventArgs
Private _cancel As Boolean = False
Public Property Cancel() As Boolean
Get
Return _cancel
End Get
Set(ByVal Value As Boolean)
_cancel = Value
End Set
End Property
End Class
"Cor Ligthert" wrote:

me 2 ;-)

Has to do with politness, I am sorry that you did not understand it.

When the OP ask something what is for you strange because the answer is
obvious, than you can give an answer, however you can as well do what I did
and ask what he means with his question, although you know almost for sure
your answer.

When than somebody else give in a (in my opinion kind of rude way) that
answer I am not happy.
In that way the OP will probably never ask a question here again.

I can than write nothing or ask to do it not again the next time.

Clear?

Cor

[AviD]

hi, try this one:

Imports System
Imports System.Windows. Forms
Imports System.Drawing. Drawing2D
Imports System.Drawing
<ToolboxBitmap( GetType(Picture Box))> _
Public Class adxPictureContr ol
Inherits PictureBox
Private _image As System.Drawing. Image
Event ImageBeforeChan ged(ByVal sender As Object, ByVal e As
EventArgsImageC hanged)
Event ImageAfterChang ed(ByVal sender As Object, ByVal e As
EventArgsImageC hanged)

Public Shadows Property Image() As Image
Get
Return _image
End Get
Set(ByVal Value As Image)

If Not Value Is _image Then
If Me.DesignMode Then
MyBase.Image = Value
_image = Value
Else
Dim ea As New EventArgsImageC hanged
If Not _image Is Nothing Then
RaiseEvent ImageBeforeChan ged(Me, ea)
If ea.Cancel = True Then
Exit Property
End If
End If
MyBase.Image = Value
_image = Value
RaiseEvent ImageAfterChang ed(Me, ea)
End If
End If
End Set
End Property

End Class
Public Class EventArgsImageC hanged
Inherits EventArgs
Private _cancel As Boolean = False
Public Property Cancel() As Boolean
Get
Return _cancel
End Get
Set(ByVal Value As Boolean)
_cancel = Value
End Set
End Property
End Class
"Cor Ligthert" wrote:

me 2 ;-)

Has to do with politness, I am sorry that you did not understand it.

When the OP ask something what is for you strange because the answer is
obvious, than you can give an answer, however you can as well do what I did
and ask what he means with his question, although you know almost for sure
your answer.

When than somebody else give in a (in my opinion kind of rude way) that
answer I am not happy.
In that way the OP will probably never ask a question here again.

I can than write nothing or ask to do it not again the next time.

Clear?

Cor

[AviD]

Here is a control you can use:
Imports System
Imports System.Windows. Forms
Imports System.Drawing. Drawing2D
Imports System.Drawing
<ToolboxBitmap( GetType(Picture Box))> _
Public Class adxPictureContr ol
Inherits PictureBox
Private _image As System.Drawing. Image
Event ImageBeforeChan ged(ByVal sender As Object, ByVal e As
EventArgsImageC hanged)
Event ImageAfterChang ed(ByVal sender As Object, ByVal e As
EventArgsImageC hanged)
'Avi D. New York, NY 2004
Public Shadows Property Image() As Image
Get
Return _image
End Get
Set(ByVal Value As Image)

If Not Value Is _image Then
If Me.DesignMode Then
MyBase.Image = Value
_image = Value
Else
Dim ea As New EventArgsImageC hanged
If Not _image Is Nothing Then
RaiseEvent ImageBeforeChan ged(Me, ea)
If ea.Cancel = True Then
Exit Property
End If
End If
MyBase.Image = Value
_image = Value
RaiseEvent ImageAfterChang ed(Me, ea)
End If
End If
End Set
End Property

End Class
Public Class EventArgsImageC hanged
Inherits EventArgs
Private _cancel As Boolean = False
Public Property Cancel() As Boolean
Get
Return _cancel
End Get
Set(ByVal Value As Boolean)
_cancel = Value
End Set
End Property
End Class

"Cor Ligthert" wrote:

me 2 ;-)

Has to do with politness, I am sorry that you did not understand it.

When the OP ask something what is for you strange because the answer is
obvious, than you can give an answer, however you can as well do what I did
and ask what he means with his question, although you know almost for sure
your answer.

When than somebody else give in a (in my opinion kind of rude way) that
answer I am not happy.
In that way the OP will probably never ask a question here again.

I can than write nothing or ask to do it not again the next time.

Clear?

Cor

[Jay B. Harlow [MVP - Outlook]]

AviD,

Event ImageBeforeChan ged(ByVal sender As Object, ByVal e As
EventArgsImageC hanged)
Event ImageAfterChang ed(ByVal sender As Object, ByVal e As
EventArgsImageC hanged)
Rather then ImageBeforeChan ged & ImageAfterChang ed you might consider naming
the events ImageChanging & ImageChanged which is the normal convention for
..NET.

http://msdn.microsoft.com/library/de...Guidelines.asp

http://msdn.microsoft.com/library/de...Guidelines.asp
Public Class EventArgsImageC hanged
Inherits EventArgs
Private _cancel As Boolean = False Rather then define a class with a Cancel Property you can simply use
System.Componen tModel.CancelEv entArgs or inherit from it.

http://msdn.microsoft.com/library/de...classtopic.asp
Public Class adxPictureContr ol
Inherits PictureBox
Public Event ImageChanging As System.Componen tModel.CancelEv entHandler
Public Event ImageChanged As System.Event Handler

...
End Class

Hope this helps
Jay

"AviD" <av*@newsgroup. nospam> wrote in message
news:A1******** *************** ***********@mic rosoft.com... hi, try this one:

Imports System
Imports System.Windows. Forms
Imports System.Drawing. Drawing2D
Imports System.Drawing
<ToolboxBitmap( GetType(Picture Box))> _
Public Class adxPictureContr ol
Inherits PictureBox
Private _image As System.Drawing. Image
Event ImageBeforeChan ged(ByVal sender As Object, ByVal e As
EventArgsImageC hanged)
Event ImageAfterChang ed(ByVal sender As Object, ByVal e As
EventArgsImageC hanged)

Public Shadows Property Image() As Image
Get
Return _image
End Get
Set(ByVal Value As Image)

If Not Value Is _image Then
If Me.DesignMode Then
MyBase.Image = Value
_image = Value
Else
Dim ea As New EventArgsImageC hanged
If Not _image Is Nothing Then
RaiseEvent ImageBeforeChan ged(Me, ea)
If ea.Cancel = True Then
Exit Property
End If
End If
MyBase.Image = Value
_image = Value
RaiseEvent ImageAfterChang ed(Me, ea)
End If
End If
End Set
End Property

End Class
Public Class EventArgsImageC hanged
Inherits EventArgs
Private _cancel As Boolean = False
Public Property Cancel() As Boolean
Get
Return _cancel
End Get
Set(ByVal Value As Boolean)
_cancel = Value
End Set
End Property
End Class
"Cor Ligthert" wrote:

> me 2 ;-)
>

Has to do with politness, I am sorry that you did not understand it.

When the OP ask something what is for you strange because the answer is
obvious, than you can give an answer, however you can as well do what I
did
and ask what he means with his question, although you know almost for
sure
your answer.

When than somebody else give in a (in my opinion kind of rude way) that
answer I am not happy.
In that way the OP will probably never ask a question here again.

I can than write nothing or ask to do it not again the next time.

Clear?

Cor