Как нарисовать полигон по указанным координатам? - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Стоит такая задача: я динамически создаю несколько TextBox по клику на PictureBox, затем заполняю их координатами. Вот код:
Как сделать так, чтобы потом я мог прорисовывать фигуру по указанным мной координатам? Помогите. Есть такой вариант прорисовки, но не понимаю как правильно указать координаты:

Решение задачи: «Как нарисовать полигон по указанным координатам?»

textual
Листинг программы
Public Class Form1
    Dim I As Integer
    Dim Pol As Point() = New Point() {}
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal g As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.Click
        Array.Resize(Pol, Pol.Length + 1)
        Dim TB As New TextBox With {.Left = 1000, .Top = I * 20 + 15, .Parent = Me, .Width = 50, .Text = g.X.ToString & ", " & g.Y.ToString}
        Pol(I) = PictureBox1.PointToClient(Cursor.Position)
        I += 1
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim g As Graphics = PictureBox1.CreateGraphics
        Dim pn As New Pen(Color.DarkSlateBlue, 3)
        g.DrawPolygon(pn, Pol)
        Pol = New Point() {}
        I = 0
    End Sub
End Class

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.4 из 5
Похожие ответы