Skip to main content

Round your corners

 
Many people face a problem when it comes to drawing the controls with rounded corners. So I got down and dirty with some simple drawing and came up with this. All you have to do is to call this Sub Procedure with the parameters passed to it and you are done. Enjoy!
 
   1:    Public Sub DrawRoundedRectangle(ByVal objGraphics As Graphics, _
   2:                                 ByVal m_intxAxis As Integer, _
   3:                                 ByVal m_intyAxis As Integer, _
   4:                                 ByVal m_intWidth As Integer, _
   5:                                 ByVal m_intHeight As Integer, _
   6:                                 ByVal m_diameter As Integer, _
   7:                                 ByVal g As Graphics)
   8:   
   9:   
  10:          Dim path As New GraphicsPath()
  11:          'Dim g As Graphics
  12:          Dim BaseRect As New RectangleF(m_intxAxis, m_intyAxis, m_intWidth,
  13:                                        m_intHeight)
  14:          Dim ArcRect As New RectangleF(BaseRect.Location,
  15:                                    New SizeF(m_diameter, m_diameter))
  16:          'top left Arc
  17:          path.AddArc(ArcRect, 180, 90)
  18:          path.AddLine(m_intxAxis + CInt(m_diameter / 2),
  19:                               m_intyAxis,
  20:                               m_intxAxis + m_intWidth - CInt(m_diameter / 2),
  21:                               m_intyAxis)
  22:   
  23:          ' top right arc
  24:          ArcRect.X = BaseRect.Right - m_diameter
  25:          path.AddArc(ArcRect, 270, 90)
  26:          path.AddLine(m_intxAxis + m_intWidth,
  27:                               m_intyAxis + CInt(m_diameter / 2),
  28:                               m_intxAxis + m_intWidth,
  29:                               m_intyAxis + m_intHeight - CInt(m_diameter / 2))
  30:   
  31:          ' bottom right arc
  32:          ArcRect.Y = BaseRect.Bottom - m_diameter
  33:          path.AddArc(ArcRect, 0, 90)
  34:          path.AddLine(m_intxAxis + CInt(m_diameter / 2),
  35:                               m_intyAxis + m_intHeight,
  36:                               m_intxAxis + m_intWidth - CInt(m_diameter / 2),
  37:                               m_intyAxis + m_intHeight)
  38:   
  39:          ' bottom left arc
  40:          ArcRect.X = BaseRect.Left
  41:          path.AddArc(ArcRect, 90, 90)
  42:          path.AddLine(
  43:                               m_intxAxis, m_intyAxis + CInt(m_diameter / 2),
  44:                               m_intxAxis,
  45:                               m_intyAxis + m_intHeight - CInt(m_diameter / 2))
  46:          g.CompositingQuality = CompositingQuality.HighQuality
  47:          g.SmoothingMode = SmoothingMode.AntiAlias
  48:          g.DrawPath(Pens.Black, path)
  49:      End Sub

Popular posts from this blog

Sri Sri & Homosexuality – Another media hit job in the making

Sri Sri Ravi Shankar (henceforth named as Mr. Shankar) is not new to controversy. Not even with topics like homosexuality. What the event wasAt an event in the Jawaharlal Nehru University, Ravi Shankar gave a talk on the occasion of the Nehru Memorial lecture on 13th November, 2017. One among the audience lamented that he was ill-treated since he was known to be a homosexual. Then Mr. Shankar stated that he needed to accept himself as he was and love knew no boundaries. Let’s see and hear what he said…Let’s quote Mr. Shankar verbatim as reported by some of the newspapers.
You treat yourself better, doesn’t matter how others treat you. You don’t think you are sick or something’s wrong with you. If you stand up, nobody can insult you… But if you feel weak and meek, and if you feel bad about yourself, nobody can make you feel better.’ Indian Express reported this in addition as well. Let me quote it directly here as well.
This is your tendency now. Just acknowledge it and accept it, and kno…

Once again in Mirik

This is a guest post by my mother, Lily Ray Gangopadhyay.

Once again in Mirik after 17 years, I felt very nostalgic because when we used to visit this place, my sons were little kids. Mirik is one of my favorite places. In 17 years it has obviously changed a lot, but still it remains sparsely populated,little crowded and a clean place.



Dad striking a pose (caption by Sarthak) Since this hill station is not at very high altitude one can enjoy a very comfortable stay here and the roads are very inviting.The lake is the main attraction of this place, the Buddha monastery,view point are very nice. I was lucky that the weather was so clear that Mt. Kanchenjunga was clearly seen all the time. Just for a restful walking around the lake, sitting on the grass and gazing at the bushes of pine and fur trees and the peaks of the Himalayas, this is my most preferred destination.











How to go>> one can take a taxi , share taxi or bus from NJP station,Siliguri bus stand or Bugdogra airport.It is l…

Salesmen of God

Christian evangelicals are similar to parasites[1]. The similarities are simply astounding. Among all predatory religions, Evangelical Christianity has done, by far, the greatest harm to humankind[2]. Like leeches, the Evangelical sucks the lifeblood of an unchristian society till it descends either into chaos and incessant civil conflict or the relegation of the culture to the pages of history(Bowden, 1985). Even in the 21st century this unashamed activity continues(Bhosle, 2003).[3]
Evangelicals usually have a similar methodology when it comes to proselytization. Like parasites, the target is usually one belonging to the most vulnerable section of society. This does not necessarily mean that they try harvesting only the most down trodden of the society(Kelly, 2001). And most certainly, the objective is never the upliftment of the persons involved. The target groups may, for example, belong to ethnic minorities, refugees (both economic and political), caste groups, the poor and the si…