DrawRectangle in a Picture box.....

Question

0.00/5 (No votes)

See more:

I have a size of real rectangle in real life that I want Draw in a picturebox to scale.

In the old days (VB6 Days) I would get the Width if the picture box and divide it by the size of the real rectangle to the X Scale. I would repeat this for Y also.

The just procedure to draw retangle with in the picture box.

But I can seam to get this to work.

I was wondering if anyone could show me with some samples on how to translate a real world point to scale it to fit with in a picture box.

i.e.
VS 2010 Project
Rectangle is 10000 x 4500 in real life and me picture box is 450,400

So I want to fit the 10000 x 4500 Rectangle (to Sacle) within this picture box (with some clear space around the rectangle)

Regards
Stephan

Posted 26-Apr-12 15:31pm

StephanGumpert

Updated 26-Apr-12 15:37pm

v2

Add a Solution

Comments

VJ Reddy 26-Apr-12 23:29pm

Thank you for accepting the solution.

2 solutions

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)

Sergey Alexandrovich Kryukov · Accepted Answer · 2012-04-27T17:19:00

Solution 2

I'm adding this answer for clarification of my comment to the answer by VJ.

Please see my past answer explaining why you should not use PictureBox and what to do instead:
How do I clear a panel from old drawing[^].

This answer explains how to write in both image and a control:
draw a rectangle in C#[^].

See also this answer:
Append a picture within picturebox[^].

Some more detail on how to do rendering and invalidation:
Drawing Lines between mdi child forms[^],
capture the drawing on a panel[^],
What kind of playful method is Paint? (DataGridViewImageCell.Paint(...))[^].

—SA

Posted 27-Apr-12 17:19pm

Sergey Alexandrovich Kryukov

v2

Comments

Prasad_Kulkarni 28-Apr-12 0:05am

My +5!

Sergey Alexandrovich Kryukov 29-Apr-12 8:35am

Thank you, Prasad,
--SA

VJ Reddy 28-Apr-12 0:47am

Good points. 5!

Sergey Alexandrovich Kryukov 29-Apr-12 8:35am

Thank you, VJ.
--SA

lokeyg 15-Feb-13 10:07am

How to draw a line in rectangle according to ratio in your solution

Sergey Alexandrovich Kryukov 15-Feb-13 11:43am

What's a problem? It's geometry for elementary school. You have required aspect ratio, actual size, whatever. It's not according to my solution, it's a general thing...
—SA

VJ Reddy · Accepted Answer · 2012-04-26T16:30:00

In the following code a gap variable is declared to maintain a gap on the sides of the Rectangle. The scale is calculated as the Maximum value of the ratio of the Widths and Heights of PictureBox and Rectangle respectively.
To run the sample, create a Windows Forms application and replace the contents of the Form1 code file with the following code and run the application.

VB

Public Class Form1
    Dim button1 As New Button()
    Dim pictureBox1 As New PictureBox()
    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
        button1.Text = "Draw Rectangle"
        button1.Dock = DockStyle.Bottom
        Controls.Add(button1)
        AddHandler button1.Click, AddressOf button1_Click
      
        pictureBox1.Dock = DockStyle.Fill
        Controls.Add(pictureBox1)
        
        pictureBox1.BackColor = Color.White
        pictureBox1.Size = New Size(450, 400)
    End Sub

    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim gap As Integer = 20
        Dim rectangle1 As New Rectangle(0, 0, 10000, 4500)
        
        Dim scale As Double = Math.Max(rectangle1.Width / (pictureBox1.Width - gap * 2), _
                                    rectangle1.Height / (pictureBox1.Height - gap * 2))
        Dim scaledRectangle = New Rectangle(gap, gap, _
                                rectangle1.Width / scale, rectangle1.Height / scale)
        Dim graphics1 As Graphics = pictureBox1.CreateGraphics()
        graphics1.DrawRectangle(Pens.Red, scaledRectangle)
        graphics1.Dispose()
    End Sub
End Class