Databases
StackOverflow2013
Postsdbo
POPicturebox - Get image inside drawn rectangle and show in another Picturebox
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POPicturebox - Get image inside drawn rectangle and show in another Picturebox
    primarykey
    data
    text
    <p>I made a search and successfully found a solution to draw a rectangle inside my Picturebox while mousemoving using a class named Rectangulo:</p> <pre><code>Public Class Form1 Dim SelectionBoxObj As New Rectangulo() Dim IsMouseDown As Boolean = False Public SelectedObjPoint As Point Private Sub PictureBox1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown If e.Button = Windows.Forms.MouseButtons.Left Then IsMouseDown = True SelectedObjPoint = New Point(e.X, e.Y) End If End Sub Private Sub PictureBox1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove If IsMouseDown = True Then If e.X &lt; SelectionBoxObj.X Then SelectionBoxObj.X = e.X SelectionBoxObj.Width = SelectedObjPoint.X - e.X Else SelectionBoxObj.X = SelectedObjPoint.X SelectionBoxObj.Width = e.X - SelectedObjPoint.X End If If e.Y &lt; SelectedObjPoint.Y Then SelectionBoxObj.Y = e.Y SelectionBoxObj.Height = SelectedObjPoint.Y - e.Y Else SelectionBoxObj.Y = SelectedObjPoint.Y SelectionBoxObj.Height = e.Y - SelectedObjPoint.Y End If Me.Refresh() End If End Sub Private Sub PictureBox1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp IsMouseDown = False End Sub Private Sub PictureBox1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint If SelectionBoxObj.Width &gt; 0 And SelectionBoxObj.Height &gt; 0 Then Dim oGradientBrush As Brush = New Drawing.Drawing2D.LinearGradientBrush(SelectionBoxObj.RectangleF, SelectionBoxObj.FillColor, SelectionBoxObj.FillColor, Drawing.Drawing2D.LinearGradientMode.Vertical) e.Graphics.FillRectangle(oGradientBrush, SelectionBoxObj.RectangleF) Dim TempPen = New Pen(SelectionBoxObj.BorderLineColor, SelectionBoxObj.BorderLineWidth) TempPen.DashStyle = SelectionBoxObj.BorderLineType e.Graphics.DrawRectangle(TempPen, SelectionBoxObj.RectangleF.X, SelectionBoxObj.RectangleF.Y, SelectionBoxObj.RectangleF.Width, SelectionBoxObj.RectangleF.Height) End If End Sub End Class </code></pre> <p>And the Rectangle Class code:</p> <pre><code> Public Class Rectangulo Private m_BorderLineColor As Color = Drawing.Color.FromArgb(255, 51, 153, 255) Private m_FillColor As Color = Drawing.Color.FromArgb(40, 51, 153, 255) Private m_BorderLineType As Drawing2D.DashStyle = Drawing2D.DashStyle.Solid Private m_BorderLineWidth As Integer = 1 Private m_X As Single Private m_Y As Single Private m_Width As Single Private m_Height As Single Private m_RectangleF As RectangleF Public Property BorderLineWidth() As Integer Get Return m_BorderLineWidth End Get Set(ByVal value As Integer) m_BorderLineWidth = value End Set End Property Public Property BorderLineType() As Drawing2D.DashStyle Get Return m_BorderLineType End Get Set(ByVal value As Drawing2D.DashStyle) m_BorderLineType = value End Set End Property Public Property BorderLineColor() As Color Get Return m_BorderLineColor End Get Set(ByVal value As Color) m_BorderLineColor = value End Set End Property Public Property FillColor() As Color Get Return m_FillColor End Get Set(ByVal value As Color) m_FillColor = value End Set End Property Public Property X() As Single Get Return m_RectangleF.X End Get Set(ByVal value As Single) m_RectangleF.X = value End Set End Property Public Property Y() As Single Get Return m_RectangleF.Y End Get Set(ByVal value As Single) m_RectangleF.Y = value End Set End Property Public Property Width() As Single Get Return m_RectangleF.Width End Get Set(ByVal value As Single) m_RectangleF.Width = value End Set End Property Public Property Height() As Single Get Return m_RectangleF.Height End Get Set(ByVal value As Single) m_RectangleF.Height = value End Set End Property Public Property RectangleF() As RectangleF Get Return m_RectangleF End Get Set(ByVal value As RectangleF) m_RectangleF = value End Set End Property End Class </code></pre> <p>So far I found this <a href="http://www.vb-helper.com/howto_net_copy_image_part.html" rel="nofollow">article</a> and adjusted with my code in mousemove event like this:</p> <pre><code>Dim top As Integer = Integer.Parse(SelectionBoxObj.Y) Dim left As Integer = Integer.Parse(SelectionBoxObj.X) Dim width As Integer = Integer.Parse(SelectionBoxObj.Width) Dim height As Integer = Integer.Parse(SelectionBoxObj.Height) ' Make a Bitmap to hold the result. If width &gt; 0 And height &gt; 0 Then Dim bm As New Bitmap(width, height) ' Associate a Graphics object with the Bitmap Using gr As Graphics = Graphics.FromImage(bm) ' Define source and destination rectangles. Dim src_rect As New Rectangle(left, top, width, _ height) Dim dst_rect As New Rectangle(0, 0, width, height) ' Copy that part of the image. gr.DrawImage(PictureBox1.Image, dst_rect, src_rect, _ GraphicsUnit.Pixel) End Using ' Display the result. PictureBox2.Image = bm </code></pre> <p>And It's almost done! But the only problem now is the points are incorrect, the image displayed is always from the middle of selection to right and not his full size of selection</p> <p>Thanks in advance</p>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PTQuestion
    1. USB1GB0Y
    1. USB1GB0Y
    plurals
    1. This table or related slice is empty.
    1. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. VO
      singulars
      1. POPicturebox - Get image inside drawn rectangle and show in another Picturebox
      1. This table or related slice is empty.
      1. VTApproveEditSuggestion
    1. COCan you post the definition for Rectangulo()? Are you trying to capture your entire image plus the box?...or just what is inside the box? Be more specific. What is the SizeMode() of the PictureBox set to?
      singulars
      1. POPicturebox - Get image inside drawn rectangle and show in another Picturebox
      1. USIdle_Mind
    2. COI just edited my original post and added the Rectangulo Class code. I need just the image inside the drawn rectangle without rectangle borders to show in a new picturebox. Thanks
      singulars
      1. POPicturebox - Get image inside drawn rectangle and show in another Picturebox
      1. USB1GB0Y
    3. CO"But the only problem now is the points are incorrect, the image displayed is always from the middle of selection to right and not his full size of selection" That code is working fine for me. Make sure that the SizeMode() of your PictureBox is set to "Normal", otherwise the image will be displayed differently than the coordinates being returned in your MouseMove() event.
      singulars
      1. POPicturebox - Get image inside drawn rectangle and show in another Picturebox
      1. USIdle_Mind
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload