Visual Basic drawpolygon method using a do-while loop? - vb.net

Question

I am looking for help with the drawpolygon method. I haven't had any luck getting anything to work. Looking to do 5 triangles, same size, next to each other. Problem is I have to use a do-while loop. Thanks for taking the time to help me!!

Answer 1

Just define the points in an array an then write them with a pen:
Dim blackPen As New Pen(Color.Black, 3)
Dim point1 As New Point(50, 50)
Dim point2 As New Point(100, 25)
Dim curvePoints As Point() = {point1, point2}
Me.CreateGraphics.DrawPolygon(blackPen, curvePoints)
Take a look at the MSDN Documentation about it.
It doesn't matter if you do anything in a loop, depends how. If this didn't solve your problem post your code in order to help you more.
Example with a loop:
Do While i < 3
point1 As New Point(50 + i * 10, 50)
point2 As New Point(100 + i * 7, 25)
curvePoints = {point1, point2}
Me.CreateGraphics.DrawPolygon(blackPen, curvePoints)
i += 1
Loop

Answer 2

I haven't actually tested this construction but it's all snipped out of a working project; I suspect it'll work and some of this GDI+ stuff is really grungy to pick up the first time.
Public Class Form1
Private subject As Image
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
If Not subject Is Nothing Then
Dim g As Graphics = e.Graphics
g.DrawImage(subject, New Point(1, 1))
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tempBM As New Bitmap(subject)
tempBM.SetResolution(subject.HorizontalResolution, subject.VerticalResolution)
Using g As Graphics = Graphics.FromImage(tempBM)
g.DrawPolygon(OutlinePen, Polygon.GetPoints)
End Using
subject = tempBM
Invalidate()
End Sub
End Class
Oh, Polygon is a class in my code that you won't have. But just replace Polygon.GetPoints with whatever array of points you want to use.