Drawing Shapes in Images - Codoid
Select Page
Codoid Blog

Drawing Shapes in Images

Irrespective of the business that your client is in, marketing is an integral part of their operations. In fact, in this day and age of social.

When we capture screenshots, we might need to draw some shape over the screenshot to highlight some errors or some object. In such cases, we can use Dot .Net factory wherein we can draw different shapes with different colors. The below code draws rectangle in an image.

Code

Function DrawRectangle(ByVal strImagePath,ByVal inX,ByVal inY,ByVal inHeight,ByVal inWidth,ByVal strColor)
Dim oPens,oGraphics,oImage,oBitmap,oRect,oFile

Set oImage=DotNetFactory.CreateInstance("System.Drawing.Image","System.Drawing")
Set oGraphics=DotNetFactory.CreateInstance("System.Drawing.Graphics","System.Drawing")
Set oRect=DotNetFactory.CreateInstance("System.Drawing.Rectangle","System.Drawing",inX,inY,inHeight,inWidth)
Set oPens=DotNetFactory.CreateInstance("System.Drawing.Pens","System.Drawing") 
Set oFile=DotNetFactory.CreateInstance("System.IO.File","")
Set oImage=oImage.FromFile(strImagePath)
Set oBitmap=DotNetFactory.CreateInstance("System.Drawing.Bitmap","System.Drawing",oImage) 
Set oGraphics = oGraphics.FromImage(oBitmap)

Execute "oGraphics.DrawRectangle oPens."&strColor&", oRect"

oImage.Dispose
oFile.Delete(strImagePath)
oBitmap.Save(strImagePath)

Set oPens=Nothing
Set oGraphics=Nothing
Set oImage=Nothing
Set oFile=Nothing
Set oBitmap=Nothing
Set oRect=Nothing
End Function


DrawRectangle "C:img.jpg",20,20,40,40,"RED"

  

Synopsis

The DrawRectangle function requires the following six argument values to be passed.

Argument 1: Image path
Argument 2: X point
Argument 3: Y point
Argument 4: Rectangle Height
Argument 5: Rectangle Width
Argument 6: Color

Note: We can use multiple colors to draw shapes. Refer the below link for different colors.

http://msdn.microsoft.com/en-US/library/system.drawing.pens_members(v=vs.80).aspx

Written By

Submit a Comment

Your email address will not be published. Required fields are marked *


When we capture screenshots, we might need to draw some shape over the screenshot to highlight some errors or some object. In such cases, we can use Dot .Net factory wherein we can draw different shapes with different colors. The below code draws rectangle in an image.

Code

Function DrawRectangle(ByVal strImagePath,ByVal inX,ByVal inY,ByVal inHeight,ByVal inWidth,ByVal strColor)
Dim oPens,oGraphics,oImage,oBitmap,oRect,oFile

Set oImage=DotNetFactory.CreateInstance("System.Drawing.Image","System.Drawing")
Set oGraphics=DotNetFactory.CreateInstance("System.Drawing.Graphics","System.Drawing")
Set oRect=DotNetFactory.CreateInstance("System.Drawing.Rectangle","System.Drawing",inX,inY,inHeight,inWidth)
Set oPens=DotNetFactory.CreateInstance("System.Drawing.Pens","System.Drawing") 
Set oFile=DotNetFactory.CreateInstance("System.IO.File","")
Set oImage=oImage.FromFile(strImagePath)
Set oBitmap=DotNetFactory.CreateInstance("System.Drawing.Bitmap","System.Drawing",oImage) 
Set oGraphics = oGraphics.FromImage(oBitmap)

Execute "oGraphics.DrawRectangle oPens."&strColor&", oRect"

oImage.Dispose
oFile.Delete(strImagePath)
oBitmap.Save(strImagePath)

Set oPens=Nothing
Set oGraphics=Nothing
Set oImage=Nothing
Set oFile=Nothing
Set oBitmap=Nothing
Set oRect=Nothing
End Function


DrawRectangle "C:img.jpg",20,20,40,40,"RED"

  

Synopsis

The DrawRectangle function requires the following six argument values to be passed.

Argument 1: Image path
Argument 2: X point
Argument 3: Y point
Argument 4: Rectangle Height
Argument 5: Rectangle Width
Argument 6: Color

Note: We can use multiple colors to draw shapes. Refer the below link for different colors.

http://msdn.microsoft.com/en-US/library/system.drawing.pens_members(v=vs.80).aspx