VB 2005 - image/graphics on user control



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...
LVL 10
therealmongooseAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Bruce_1975Connect With a Mentor Commented:
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
 
therealmongooseAuthor Commented:
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
 
therealmongooseAuthor Commented:
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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.