Sizechanged event question...

[johnb41]

I have a Picturebox that has an image displayed inside. Through code,
I was able to have the "whole image" display in it without distortion.
(Like a "Fit All" in most any image viewer program)

Now, when the Picturebox gets resized by the user, I want the image to
recalculate and display as "Fit All" again.

So I have code in my SizeChanged event of the picturebox. When the
"size changed", it does it's calculation, and displays properly.

It works, but there is a problem: If the user drags the Picturebox
window larger or smaller, the SizeChanged event fires many times per
second. This causes alot of sluggishness in the app when trying to
display the image.

Is there anyway that i can have the SizeChanged event fire ONCE when
i'm done resizing the picturebox?

(By the way, the picturebox gets resized indirectly. It's dock is set
to Fill. When the interface "Next" to it gets resized, the Picturebox
naturally will resize accordingly)

Thanks for all your help!

John

[Jonathan Allen]

Windows has an option called "Show Windows Contents While Dragging".

If this is turned on, you will receive a continuous stream of SizeChanged
events. If it is turned off, you only get a single SizeChanged event. Since
this is a user-defined setting, you need to account for both cases and make
your SizeChanged code as quick as possible. The same goes for Move events.

--
Jonathan Allen
"Peter Proost" <pp*****@nospam .hotmail.com> wrote in message
news:O$******** ********@TK2MSF TNGP10.phx.gbl. ..

I also find it very strange, if I put a msgbox in the sizechanged event of
a
form, it first pops up before the form is even visible (that's just the
form
initializing) and then when the form is loaded it only pops up AFTER I let
go of the mouse button, no extra code required.

For example the example I posted at my pc only fires the sizechanged event
after I let go of the mousebutton.

Greetz Peter

a messagebox inside a Sizechanged event (for a Form), the messagebox
does not appear until AFTER you let go of the mouse button? No extra
code required?

--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to produce
bigger and better idiots. So far, the Universe is winning.

"johnb41" <or****@informa tik.com> schreef in bericht
news:11******** *************@g 14g2000cwa.goog legroups.com...

I have VS 2003 also. So let me get this straight, if you simply put in
a messagebox inside a Sizechanged event (for a Form), the messagebox
does not appear until AFTER you let go of the mouse button? No extra
code required?

Amazing. I can't even resize a form because the messagbox pops up too
soon.

If anyone else is reading this, does this happen to you also?

If this is true, i'm surprised that the others that posted in this
thread didn't mention it. Cor really went out of his way to help w/ a
couple potential solutions. Now i'm more confused than ever! (but that
isn't new)

John

[johnb41]

Jonathan,

Thanks for that info. I thought i was going crazy! So it looks like
i'm stuck w/ a sluggishly slow app when the user resizes the image
window. :(

John

[Cor Ligthert]

John,

Can you try this one, I have taken the sample from Peter to test it this
time.

\\\
Public SwMoving As Boolean
Private Sub Panel1_SizeChan ged(ByVal sender As Object, _
ByVal e As System.EventArg s) Handles Panel1.SizeChan ged
SwMoving = True
End Sub
Protected Overrides Sub WndProc(ByRef m As Message)
If m.Msg = &HA0 Then 'is up &HA1 is nonclientarea down
If SwMoving Then
If Not ptbImg.Image Is Nothing Then
loadimage(CStr( ptbImg.Tag))
End If
SwMoving = False
End If
End If
MyBase.WndProc( m)
End Sub
///

I hope that it this time helps,

Cor

[Peter Proost]

Hi Cor,

your example works nicely, I think John will be very pleased with it

Greetz Peter

--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to produce
bigger and better idiots. So far, the Universe is winning.
"Cor Ligthert" <no************ @planet.nl> schreef in bericht
news:#v******** ******@TK2MSFTN GP12.phx.gbl...

John,

Can you try this one, I have taken the sample from Peter to test it this
time.

\\\
Public SwMoving As Boolean
Private Sub Panel1_SizeChan ged(ByVal sender As Object, _
ByVal e As System.EventArg s) Handles Panel1.SizeChan ged
SwMoving = True
End Sub
Protected Overrides Sub WndProc(ByRef m As Message)
If m.Msg = &HA0 Then 'is up &HA1 is nonclientarea down
If SwMoving Then
If Not ptbImg.Image Is Nothing Then
loadimage(CStr( ptbImg.Tag))
End If
SwMoving = False
End If
End If
MyBase.WndProc( m)
End Sub
///

I hope that it this time helps,

Cor

[johnb41]

Cor,

Wow, thanks for the extra effort and help! I tried your code
(obviously had to tweak it a little to fit my app), and here's what
happened:

The panel (with picturebox) gets resized without any sluggishness in
the app. BUT the image does not get redrawn when i let go of the
mouse.

But whenever i move my mouse over the bar at the top of the form (i
can't remember the name; the bar that has the minimize, maximize and
close buttons) then sub routine fires that resizes and redisplays the
image.

Strange. If the image would resize to the new Panel size without having
to run my mouse over the top bar, then it would be perfect!!!

Here's my code:

Public SwMoving As Boolean
Private Sub Pnl_Image_SizeC hanged(ByVal sender As System.Object,
ByVal e As System.EventArg s) Handles Pnl_Image.SizeC hanged
SwMoving = True
End Sub

Protected Overrides Sub WndProc(ByRef m As Message)
If m.Msg = &HA0 Then 'is up &HA1 is nonclientarea down
If SwMoving Then
If Not Pb_image.Image Is Nothing Then
'below is routine that resizes
'and redisplays the image.
'The image gets displayed in the
'form that THIS code is in.
Call displayimage(m_ image, Me)
End If
SwMoving = False
End If
End If
MyBase.WndProc( m)
End Sub
Anyway to tweak it a little? Thanks so much!
John

[Cor Ligthert]

John,

What you did not tell all the time in this thread is how you resize your
panel. I have the same as I think for others assumed that it was resized
accoording the resizing of the form. However was in doubt if it was because
of a slider.

Cor

[johnb41]

I "thought" I mentioned it briefly somewhere. Anyway, here's how my
Panel gets resized:

The Panel is docked (Fill) on Form1. To the right of the panel is a
dockable window (thanks to dotnetbar (www.devcomponents.com)). When
the dockable window is resized (left to right) or hidden, the Panel
will resize accordingly. So that's how it's resized!

Is your code adaptable for my situation?

(by the way, if i resize my main form, it works really nice! :)

John

[Cor Ligthert]

John,

This works than like a splitter (I wrote slider) and when I had understood
this earlier, a lot easier. You set in the splitter mouse down event (your
control) a swMouseDown (a global value) to true.

In the Mouse Up event of that you set your resizing code in a kind of the
same way as in the previous example (of course a call to a sub) and set the
swMouseDown again to false.

As long as that mouse is down you do nothing and when it goes up again you
do your code.

Because that I don't know that control, did I write it in this way, I hope
that this explains it.

Cor

[johnb41]

In the MouseUp event, you say to call a sub. Do you mean the sub that
I created to do the resizing calculations, or the Sub WndProc that you
created? I tried the latter, and it needs a "message" argument. I
don't know what to put in there.

If i totally ignore the Sub WndProc, and just put in my procedure, then
i get unusual results. Sometimes my image gets redrawn, and sometimes
it does not. Most of the time it does not redraw. It's unpredictable.

So in summary, what of your original code do I keep?

John

[Cor Ligthert]

John,

When it is in the case of a splitter you can use this code.
\\\
Private Sub Splitter2_Split terMoved(ByVal sender As Object, _
ByVal e As System.Windows. Forms.SplitterE ventArgs) Handles
Splitter2.Split terMoved
If Not ptbImg.Image Is Nothing Then
loadimage(CStr( ptbImg.Tag))
End If
End Sub
///

When that wont go you can try this.

\\\However gives a little bit stranger effect
Public SwMoving As Boolean
Public swSplitterMouse Moving As Boolean
Private Sub Panel1_SizeChan ged(ByVal sender As Object, _
ByVal e As System.EventArg s) Handles Panel1.SizeChan ged
SwMoving = True
End Sub

Protected Overrides Sub WndProc(ByRef m As Message)
If m.Msg = &HA0 Then
If SwMoving Then
If Not ptbImg.Image Is Nothing Then
loadimage(CStr( ptbImg.Tag))
End If
SwMoving = False
End If
SwMoving = False
End If
MyBase.WndProc( m)
End Sub
Private Sub Splitter2_Mouse Enter(ByVal sender As Object, ByVal e As
System.EventArg s) Handles Splitter2.Mouse Enter
swSplitterMouse Moving = True
End Sub
Private Sub Splitter2_Mouse Leave(ByVal sender As Object, ByVal e As
System.EventArg s) Handles Splitter2.Mouse Leave
If swSplitterMouse Moving Then
If SwMoving Then
If Not ptbImg.Image Is Nothing Then
loadimage(CStr( ptbImg.Tag))
End If
SwMoving = False
End If
SwMoving = False
End If
swSplitterMouse Moving = False
End Sub
///
I hope this helps,

Cor