Flip Rectangle

[shers]

Hi,

Could anyone tell me how to flip rectangles in picturebox?

Thanks

[HanneSThEGreaT]

This might be of help to you :

http://www.codeguru.com/vb/gen/vb_gr...le.php/c14007/

[shers]

Here's my code so far:

Dim g As Graphics = pb.CreateGraphics()
Dim x As Integer = CInt(CurrentRecord(4))
Dim y As Integer = CInt(CurrentRecord(6))
Dim width As Integer = CInt(CurrentRecord(5))
Dim height As Integer = CInt(CurrentRecord(7))
Dim rect As New Rectangle(x, y, width, height)
Dim redPen As New Pen(Color.Black, 2)
g.DrawRectangle(redPen, rect)
Dim mtx As New Matrix
redPen.Dispose()
g.Dispose()

I want to flip the rectangle upside down.

Thanks

[dglienna]

You would have to know the SCALE of the view

[shers]

Scaling is all fine. I only have to turn it upside down.

Thanks

[HanneSThEGreaT]

Didn't you read the link I sent you Shers? In there I cover Rotation and Flipping

[shers]

Didn't you read the link I sent you Shers? In there I cover Rotation and Flipping

I went through the link and found that it's only for image rotation. My problem is rectangle flip vertical.

I'm attaching an image. If I change the y in

Dim rect As New Rectangle(x, y, width, height) to

Dim rect As New Rectangle(x, -y, width, height), I still see no change in the image. I drew a line to see how it works, and it still is below the line

Thanks

[GremlinSA]

Firstly a recatangle no mater flipped which way will always look the same ... However if your trying to flip the image inside the rectangle the section titled Rotation on page two of Hanne's article is what your looking for... and you can use any of these options

[shers]

It is nothing concerning image. I'm only drawing rectangles. A looping through results in a cluster of small and big rectangles which looks in an orderly manner. I want the final result to be flipped vertical as a whole, or flip each rectangle while looping through. That's what I tried, but looks like there's no change, as I drew a line to see where it is placed, but how much ever change I do, it still is below the line.

Thanks

[GremlinSA]

Ahhh ....

You not Flipping anything.... All you want to do is shift the position of the rectangle ..

Dim Ycenter as integer = 0

Dim rect As New Rectangle(x, Ycenter- (y + height), width, height)

Now you can change Ycenter to where you want the 'Illusion' of the flip to take place...

[HanneSThEGreaT]

This why questions should be asked properly upfront, to avoid confusion

[shers]

Ahhh ....

You not Flipping anything.... All you want to do is shift the position of the rectangle ..

Dim Ycenter as integer = 0

Dim rect As New Rectangle(x, Ycenter- (y + height), width, height)

Now you can change Ycenter to where you want the 'Illusion' of the flip to take place...

WOW!!!! That's fantastic! I had been trying for soooo long to get to it. Thank you sooooo much!!

[HanneSThEGreaT]

Glad you came right.

WOW!!!! That's fantastic! I had been trying for soooo long to get to it. Thank you sooooo much!!

Sometimes when we are struggling with something that seems so basic and simple, we tend to look for much more complex solutions, than what we really need. I guess it is the despondancy, or even desperateness creeping in. It happens

[GremlinSA]

WOW!!!! That's fantastic! I had been trying for soooo long to get to it. Thank you sooooo much!!

Sure no problem .. Just it would be so much easier if the question was asked properly the first time..

Just glad we eventually worked it out...

[shers]

Sure no problem .. Just it would be so much easier if the question was asked properly the first time..

I apologize for that.

Is there any way I can crop the attached image to fit to the picturebox?

Thanks