How can I code such that the start position for cropping will work on top of a picture window

Question

0.00/5 (No votes)

See more:

I have some code (some from MSDN) that crops an area rectangle on a form, the rectangle must be inside the borders of the form to work. I then capture the cropped area and save it to a JPG file. This works quite well, however when I add a picture window with a picture on it the code doesn't work if I try to start (start position) inside the picture window. If I start outside the window it works fine. What can I do to my code to remedy this hiccup. Here is my code:

VB

Dim isDrag As Boolean = False
   Dim myRectangle As New Rectangle(New Point(0, 0), New Size(0, 0))
   Dim startPoint As Point
   Private memoryImage As Bitmap

   Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
       If (e.Button = MouseButtons.Left) Then isDrag = True
       Dim control As Control = CType(sender, Control)
       startPoint = control.PointToScreen(New Point(e.X, e.Y))
   End Sub

   Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove
       ' If the mouse is being dragged, undraw and redraw the rectangle as the mouse moves.
       If (isDrag) Then
           ' Hide the previous rectangle by calling the DrawReversibleFrame method with the same parameters.
           ControlPaint.DrawReversibleFrame(myRectangle, Me.BackColor, FrameStyle.Thick)
           Dim endPoint As Point = CType(sender, Control).PointToScreen(New Point(e.X, e.Y))
           Dim width As Integer = endPoint.X - startPoint.X
           Dim height As Integer = endPoint.Y - startPoint.Y
           myRectangle = New Rectangle(startPoint.X, startPoint.Y, width, height)
           'Draw the new rectangle by calling DrawReversibleFrame again.
           ControlPaint.DrawReversibleFrame(myRectangle, Me.BackColor, FrameStyle.Thick)
       End If
   End Sub

   Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp
       isDrag = False
       ControlPaint.DrawReversibleFrame(myRectangle, Me.BackColor, FrameStyle.Thick)
       ControlPaint.DrawReversibleFrame(myRectangle, Me.BackColor, FrameStyle.Thick)
   End Sub

   Private Sub CaptureScreen()
       memoryImage = New Bitmap(myRectangle.Width, myRectangle.Height)
       Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
       memoryGraphics.CopyFromScreen(myRectangle.X, myRectangle.Y, 0, 0, Me.Size)
   End Sub

Posted 11-Jun-14 18:03pm

Member 10628309

Updated 12-Jun-14 7:38am

Blutfaust

v2

Add a Solution

Comments

Dinesh.V.Kumar 12-Jun-14 0:52am

Check this site..
http://www.codeproject.com/Articles/20923/Mouse-Position-over-Image-in-a-PictureBox
I am not sure if this will help you. Just let me know if it helps. If not I will try to find some other solution

Regards

Member 10628309 12-Jun-14 17:41pm

I haven't tried it yet but what I think is needed is to add in the Handles of the mouse events>> PictureBox1.MouseDown PictureBox1.MouseMove and PictureBox1.MouseUp

Duncan Edwards Jones 12-Jun-14 7:18am

is it that the form's mouse methods are not fired when you are over the picture box?

Member 10628309 12-Jun-14 17:34pm

Yes, the mouse's methods are not fired when over the picture box

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Duncan Edwards Jones · Answer 1 · 2014-06-12T01:42:00

Use

VB

System.Windows.Forms.Control.Capture

to make your form receive mouse messages even when the mouse is over a different window (like a child window for example) - and set it off again to release mouse.

For example in a standard form with a checkbox on and a picturebox if you have the code:-

VB

Public Class Form1

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

        Me.Capture = CheckBox1.Checked

    End Sub


    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove

        Me.Text = e.X & "," & e.Y

    End Sub
End Class

Then when the checkbox is checked the x,y will display even when the mouse moves over the picturebox. When the checkbox is not checked it will not.

Member 10628309 · Answer 2 · 2014-06-20T14:27:00

Since my last posting I have experminted with every Cropping Code I could find. I was unable to find anything that I could use for cropping a Form where the cropping rectangle paints on top of controls. I did not want to use a picturebox or panel. In my continuous learning experience I learned that if the Form BackColor and TransparencyKey property are set to the same color, the form becomes invisible. This gave me the idea to have the cropping rectangle painted on the invisible Form. After considerable expermintation I was able to write code that does exactly what I wanted it to do.
I used two Forms, Form1 has the normal controls, e.g., TextBox, DataGridView, etc. I made Form2 invisible with no border, and the same size as Form1. The cropping rectangle paints over anything on Form1 (including the boarder) and the cropped image gets saved as a JPG file.

[Edit] Removed <pre> tags [/Edit]

How can I code such that the start position for cropping will work on top of a picture window

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0