Services
Technology Web App Development Mobile App Development Windows App Development Database Development UI/UX Development Cloud Development SEO Digital Marketing Guest Posting Content Writing Artificial Intelligence Data Science ERP Development CRM Development CMS Development LMS Development Business Listing Blockchain Technology Startup Promotion
Products
Data Converter Cleaner TUC - Unit Converter Import Export Survey Manager Tweet Controller
Developer
Article Blog Forum Interview Beginner News Startup Quiz
Users
Career
Apply Job Internship
Pricing
Login Sign Up Get a Quote

forum

home / developersection / forums / how to adjust the size of drawn rectangle at runtime
Ask Question

how to adjust the size of drawn rectangle at runtime

Madhu Mitha 2140 26 Mar 2015
hi,,


   it is possible to adjust the size of a rectangle which is drawn in a picturebox with drawrectangle function.. During run time i want to adjust my rectangle width using numericupdown control.. 


thank u
.net vb.net
Updated 01 Apr 2015
Madhu Mitha
Madhu Mitha

Other

Message

4 Answers

Madhu Mitha
Madhu Mitha 01 Apr 2015
Report Abuse
hai,,


       thank u it worked well...
Anonymous User
Anonymous User 30 Mar 2015 Accepted Answer
Report Abuse

According to my understanding about your problem scenario, you want to increase height and width according to the numericupdown control on click

Try this code:

Private Sub numericUpDown1_ValueChanged(sender As Object, e As EventArgs)
                Dim aa As Integer = Convert.ToInt32(numericUpDown1.Value.ToString())
                pictureBox1.Width = aa
                pictureBox1.Height = aa
End Sub

 Anonymous User

I hope it will work for u !! J

Madhu Mitha
Madhu Mitha 30 Mar 2015
Report Abuse
Hai..
Kamlakar Singh,

                I tried your code but what i needed is that... When i press my numeric updown control the width of my rectangle should be increased..

For Example..
if i created a rectangle with code
Dim width=50 
Dim height=25
Dim rect As New Rectangle(0, 0, width,height)
 g.DrawRectangle(Pens.Black, rect)
Now, When I press NumericUpDown control the width of my rectangle should be increased as 51,52 53, etc..
Is thr any possible way to do it..

Thank U

Anonymous User
Anonymous User 27 Mar 2015
Report Abuse
I have some code that might help you:

' Rectangle to draw

Private Rct As New Rectangle(0, 0, 0, 0)
Private offsetX As Integer = 0
Private offsetY As Integer = 0 
Sub Main() Handles MyBase.Load 
    ' Some image to
use
   
MiniPictureBox.Image = My.Resources.P6130003
   
MainPictureBox.Image = My.Resources.P6130003 
End Sub 
Private Sub MiniPictureBoMouseDown(sender As Object, e As
MouseEventArgs) Handles MiniPictureBox.MouseDown 
    If e.Button =
Windows.Forms.MouseButtons.Left Then 
        If Not
Rct.Contains(e.Location) Then
            ' New
rectangle
           
Rct.Location = New Point(e.X, e.Y)
        Else
            ' Moving a
rectangle
            offsetX =
Rct.X - e.X
            offsetY =
Rct.Y - e.Y
        End If 
    ElseIf e.Button =
Windows.Forms.MouseButtons.Right Then 
        ' Clears the
screen of a rectangle
        Rct = New
Rectangle(0, 0, 0, 0)
       
MiniPictureBox.Invalidate() 
    End If 
End Sub 
Private Sub MiniPictureBoMouseMove(sender As Object, e As
MouseEventArgs) Handles MiniPictureBox.MouseMove 
    ' Event handler to
update the picture of the rectangle
    If e.Button =
Windows.Forms.MouseButtons.Left Then 
        If
Rct.Contains(e.Location) Then
            ' Move the
box
            Rct.X =
e.X + offsetX
            Rct.Y =
e.Y + offsetY
           
MainPictureBox.Invalidate()
        Else
            ' Update
the size of the box
            Rct.Width
= e.X - Rct.X
            Rct.Height
= e.Y - Rct.Y
        End If 
       
MiniPictureBox.Invalidate() 
    End If  
End Sub 
Private Sub MiniPictureBoMouseUp(sender As Object, e As
MouseEventArgs) Handles MiniPictureBox.MouseUp 
    ' Event handler to
call the paint event for runtime display
   
MiniPictureBox.Invalidate()
   
MainPictureBox.Invalidate() 
End Sub 
Private Sub MiniPictureBoPaint(sender As Object, e As
PaintEventArgs) Handles MiniPictureBox.Paint 
    Dim myPen As Pen =
New Pen(Brushes.Red, 2)
   
e.Graphics.DrawRectangle(myPen, Rct) 
End Sub 
Private Sub MainPictureBoPaint(sender As Object, e As
PaintEventArgs) Handles MainPictureBox.Paint 
    If Rct.Width >
0 Then
        Dim biggerRec
As Rectangle = CalculateRectangle(MainPictureBox) 
        Dim myPen As
Pen = New Pen(Brushes.Red, 2)
       
e.Graphics.DrawRectangle(myPen, biggerRec)
    End If 
End Sub 
Private Function CalculateRectangle(currentPicture As
PictureBox) As Rectangle 
    Try
        Dim newWidth
As Integer = (Rct.Width / MiniPictureBox.Width) * currentPicture.Image.Width
        Dim newHeight
As Integer = (Rct.Height / MiniPictureBox.Height) * currentPicture.Image.Height
        Dim newX As
Integer = (Rct.X / MiniPictureBox.Width) * currentPicture.Image.Width
        Dim newY As
Integer = (Rct.Y / MiniPictureBox.Height) * currentPicture.Image.Height
        Return New
Rectangle(newX, newY, newWidth, newHeight)
    Catch ex As
Exception
       
MessageBox.Show(ex.Message + Environment.NewLine + Environment.NewLine +
ex.StackTrace)
    End Try 
End Function


This code will allow you to create, move, and clear a rectangle. One point of caution is in the calculations for changing the size of the rectangle, you have to ensure exception handling is properly inserted for any arithmetic exceptions.

MindStick Training