Как нарисовать полигон по указанным координатам? - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д