draw a hexgon in vb.net

Question

0.00/5 (No votes)

See more:

Hi friends,

I need to draw a hexgon in vb.net. It has draw stack order (like one coloumn)as well as row type. for example "L" shape.

please help me.

by
Gopi A.

Posted 29-Mar-10 21:53pm

Member 4027617

Add a 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)

Christian Graus · Answer 1 · 2010-03-29T22:07:00

Using a picturebox control is pointless. If you want to have a control you can position and handle it's paint event, you may as well use a panel.

I found this with google:

Change count to 6 and draw a line...

Code:

VB

Private Sub Form_Load()
  Dim px As Double, py As Double, i%, cnt%, r1 As Double, r As Double
  px = ScaleWidth / 2 - Text1(0).Width / 2
  py = ScaleHeight / 2 - Text1(0).Height / 2
  r = 1365    ' radius
  cnt = 12    ' number of images
  Text1(0).Move px, py
  Text1(0).Visible = False
  For i = 1 To cnt
    If Not i = 0 Then Load Text1(i)
    With Text1(i)
       r1 = 360 / cnt * (i) * 3.1428571 / 180
      .Move px + r * Sin(r1), py - r * Cos(r1)
      .Text = i
      .Visible = True
    End With
Next i
End Sub

This draws numbers on a clock face

In other words, change cnt from 12 to 6, and draw lines between the points it creates to draw a hexagon.

ashwin_nair2011 · Answer 2 · 2010-03-29T22:06:00

You could use Graphics to draw lines in a picturebox or any other control. The disadvantage of this is that when u minimize and restore the window, you'll lose the image.

I'd recommend using a picturebox control, and servicing it's 'Paint' event. Something like this :

VB

Private Sub picBox_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles picBox.Paint

Public gPen As New Pen(Color.Green, 3)

e.Graphics.DrawLine(gPen , x1, y1, x2, y2)
e.Graphics.DrawLine(gPen , x1, y1, x2, y2)

'you can use a combination of these lines to draw a hexagon
'or decorate it further using rectangles, ellipses etc.
'type out e. graphics.draw and check out the intellisense
'to view your options

End sub

draw a hexgon in vb.net

2 solutions

Solution 2

Solution 1

Add your solution here

Preview 0