Drawing to a rectangle.

Question

2.00/5 (1 vote)

See more:

I am trying to draw a dynamically created image to a rectangle but it seems to keep drawing it to the form. Any advice would be great.

VB

Private Sub BGMap_Paint(sender As Object, e As PaintEventArgs) Handles BGMap.Paint
    'System Rectangle drawn in design time.
    Dim g As Graphics
    For X = 0 To 9
        For Y = 0 To 7
            If genArr(X, Y) = 2 Then
                lRect = New Rectangle(0, 0, 64, 64)
                dLRect = New Rectangle(X * 64, Y * 64, 64, 64)
                g.DrawImage(lBMP, dLRect, lRect, GraphicsUnit.Pixel)
            ElseIf genArr(X, Y) = 1 Or genArr(X, Y) = 0 Then
                lRect = New Rectangle(64, 0, 64, 64)
                dLRect = New Rectangle(X * 64, Y * 64, 64, 64)
                g.DrawImage(lBMP, dLRect, lRect, GraphicsUnit.Pixel)
            End If
        Next
    Next
End Sub

I invalidate the rectangle onLoad which is where the array that the image is drawn from is populated.

Posted 2-Dec-12 9:11am

Daniel Verbatim Hallam

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Dave Kreskowiak · Answer 1 · 2012-12-02T10:58:00

First, this code should be throwing a "Object not set to an instance of an object" exception because you never set the value of g. Your code should begin like this:

Private Sub BGMap_Paint(sender As Object, e As PaintEventArgs) Handles BGMap.Paint
    'System Rectangle drawn in design time.
    Dim g As Graphics = e.Graphics

Next, what do you mean by "It keeps drawing it to the form"?? Your code SHOULD be prepared to redraw the contents of the form at any time as Windows will repaint your form on an as-needed basis, determined by Windows.