Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

VB.NET - Picture box - Highligting Rectanle area on picturebox.

Posted on 2009-04-13
1
Medium Priority
?
726 Views
Last Modified: 2013-11-26
Dear Experts

I have a jpeg file that I am displaying in my Vb.NET application using picture box control
I have the word coordinate position of all these words present in the jpeg file.

Right now I am using the pictirebox sizemode as stretch mode. I am able to highlight the word at the correct position as per the code snippet attached below.

But, as per a new requirement, I can no longer go with stretch mode of picturebox. I have to use the zoom mode.

How do I adjust the "rect" coordinates now so that it highlights the words in zoom mode. I have tried many ways to adjust the coordinates but no success.

I appreciate any help on this.

Thanks in advance

' READ target image file
 
        Dim origImage As New Bitmap(imageFileName)
        Dim targetimage As Bitmap = New Bitmap(origImage, origImage.Width , origImage.Height )
        PictBox_Target_Height_Ratio = PictureBox1.Height / targetimage.Height
        PictBox_Target_Width_Ratio = PictureBox1.Width / targetimage.Width
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
 
 
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim highlightColor As Color = Color.FromArgb(196, 255, 255, 0)
        Dim brush As New SolidBrush(highlightColor)
        Dim rect As New Rectangle(iLeft * PictBox_Target_Width_Ratio, iTop * PictBox_Target_Height_Ratio, (iRight - iLeft) * PictBox_Target_Width_Ratio, (iBottom - iTop) * PictBox_Target_Height_Ratio)
 
        e.Graphics.FillRectangle(brush, rect)
        brush.Dispose()
    End Sub

Open in new window

0
Comment
Question by:arsmed840
1 Comment
 
LVL 15

Accepted Solution

by:
oobayly earned 2000 total points
ID: 24133794
The following method will convert a point in control coordinates to a point in Image coordinates. All it does is determine the bounds of the actual image in control coordinates that the, and then maps the control coordinates to image coordinates.
Private Function GetImagePoint(ByVal pb As PictureBox, ByVal p As Point) As Point
    ' Get the Client rectangle and the scale at which the image is displayed
    Dim client As Rectangle = pb.ClientRectangle
    Dim scale As Double = Math.Min(CDbl(client.Width) / pb.Image.Width, CDbl(client.Height) / pb.Image.Height)
    
    ' Get the bounds of the image in control coordinates
    Dim imgBounds As New Rectangle(0, 0, CInt((pb.Image.Width * scale)), CInt((pb.Image.Height * scale)))
    imgBounds.X = CInt(((client.Width - imgBounds.Width) / 2))
    imgBounds.Y = CInt(((client.Height - imgBounds.Height) / 2))
    
    ' Return the point in image coordinates
    Return New Point(CInt(((p.X - imgBounds.X) / scale)), CInt(((p.Y - imgBounds.Y) / scale)))
End Function

Open in new window

0

Featured Post

Veeam Disaster Recovery in Microsoft Azure

Veeam PN for Microsoft Azure is a FREE solution designed to simplify and automate the setup of a DR site in Microsoft Azure using lightweight software-defined networking. It reduces the complexity of VPN deployments and is designed for businesses of ALL sizes.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In my previous two articles we discussed Binary Serialization (http://www.experts-exchange.com/A_4362.html) and XML Serialization (http://www.experts-exchange.com/A_4425.html). In this article we will try to know more about SOAP (Simple Object Acces…
This document covers how to connect to SQL Server and browse its contents.  It is meant for those new to Visual Studio and/or working with Microsoft SQL Server.  It is not a guide to building SQL Server database connections in your code.  This is mo…
This video shows how to quickly and easily deploy an email signature for all users in Office 365 and prevent it from being added to replies and forwards. (the resulting signature is applied on the server level in Exchange Online) The email signat…
Screencast - Getting to Know the Pipeline
Suggested Courses

578 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