VB 2005 - image/graphics on user control

Posted on 2008-06-11
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...
Question by:therealmongoose
  • 2
LVL 10

Author Comment

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


    End Sub

End Class

Open in new window


Accepted Solution

Bruce_1975 earned 500 total points
ID: 21758797
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.

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

LVL 10

Author Closing Comment

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...          

Featured Post

3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

Question has a verified solution.

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

More often than not, we developers are confronted with a need: a need to make some kind of magic happen via code. Whether it is for a client, for the boss, or for our own personal projects, the need must be satisfied. Most of the time, the Framework…
The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (…
This tutorial gives a high-level tour of the interface of Marketo (a marketing automation tool to help businesses track and engage prospective customers and drive them to purchase). You will see the main areas including Marketing Activities, Design …
Hi friends,  in this video  I'll show you how new windows 10 user can learn the using of windows 10. Thank you.

911 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now