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

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

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 (…
Real-time is more about the business, not the technology. In day-to-day life, to make real-time decisions like buying or investing, business needs the latest information(e.g. Gold Rate/Stock Rate). Unlike traditional days, you need not wait for a fe…
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.

757 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

21 Experts available now in Live!

Get 1:1 Help Now