Solved

VB 2005 - image/graphics on user control

Posted on 2008-06-11
3
575 Views
Last Modified: 2012-05-05


I have a user control on which a bitmap image is painted using a graphics object (i.e. not a background image). I need to be able to capture a section of the bitmap in the mouse move event so as mouse moves, rectangle section (rct.x = e.x, rct.y = e.y, rct.width = 100, rct.height = 100) of the existing graphic is captured to an image object variable, and then transferred as the texture of a new brush object which is used to paint a copy of the defined section on a different area of the user control.

Any code examples of how to do this much appreciated...
0
Comment
Question by:therealmongoose
  • 2
3 Comments
 
LVL 10

Author Comment

by:therealmongoose
ID: 21758528
Here's the code I need help with....
Imports System.Drawing
 
Public Class UserControl1
 
    Dim rectCopy As Rectangle
    Dim imgCopy As Image
    Dim bBrushCopy As TextureBrush
    Dim rctPaintTo As New Rectangle(5, 70, 50, 50)
 
    Sub drawrect()
 
        Dim rect As New Rectangle(5, 5, 300, 50)
        Dim bBrush As New TextureBrush(My.Resources.Image1)
 
        Using g As Graphics = Me.CreateGraphics
 
            g.FillRectangle(bBrush, rect)
 
        End Using
 
    End Sub
 
    Private Sub UserControl1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
 
        rectCopy.X = e.X
        rectCopy.Y = e.Y
        rectCopy.Width = 50
        rectCopy.Width = 50
 
        'capture screen section to imgCopy - size and location of rectCopy
        '=======================
        ' How do I copy a section of the screen to the image control?
        '
        imgCopy = ????
        '=======================
 
        bBrushCopy = New TextureBrush(imgCopy)
 
        Using g As Graphics = Me.CreateGraphics
 
            g.FillRectangle(bBrushCopy, rctPaintTo)
 
        End Using
 
 
    End Sub
 
 
    Private Sub UserControl1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 
        drawrect()
 
    End Sub
 
End Class

Open in new window

0
 
LVL 6

Accepted Solution

by:
Bruce_1975 earned 500 total points
ID: 21758797
Hi,
I'm a C# guy so you might have to translate the code...
Instead of directly drawing the image on the screen I used a PictureBox. To draw an image you have to use the Graphics.DrawImage() method instead of a filled rectangle.

Regards,
Bruce
private void Form1_MouseMove(object sender, MouseEventArgs e)
{
    // may have a global bitmap  and graphics
    // to improve performance
    Bitmap map = new Bitmap(50, 50);
    Graphics g = Graphics.FromImage(map);
 
    // get actual mouse point as screen location
    Point pt = this.PointToScreen(new Point(e.X, e.Y));
    // capure specific area from screen
    g.CopyFromScreen(pt.X, pt.Y, 0, 0, map.Size);
    // populate bitmap in picturebox
    pictureBox1.Image = map;
}

Open in new window

0
 
LVL 10

Author Closing Comment

by:therealmongoose
ID: 31466102
Cool - thanks Bruce - just enough to let me solve it...

Dim pt As Point = Me.PointToScreen(New Point(e.X, e.Y))
(Point pt = this.PointToScreen(new Point(e.X, e.Y));)
 Was the bit I was missing - thanks for your time...          
0

Featured Post

Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Welcome my friends to the second instalment and follow-up to our Minify and Concatenate Your Scripts and Stylesheets (http://www.experts-exchange.com/Programming/Languages/.NET/ASP.NET/A_4334-Minify-and-Concatenate-Your-Scripts-and-Stylesheets.html)…
Many of us here at EE write code. Many of us write exceptional code; just as many of us write exception-prone code. As we all should know, exceptions are a mechanism for handling errors which are typically out of our control. From database errors, t…
Windows 10 is mostly good. However the one thing that annoys me is how many clicks you have to do to dial a VPN connection. You have to go to settings from the start menu, (2 clicks), Network and Internet (1 click), Click VPN (another click) then fi…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…

786 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question