Примоугольник с сглаженными углами.

[Alex_2005]

как методами VB.NET нарисовать прямоугольник с сглаженными улами?

[Thomas]

Привет.
Это в принципе не сложно.
Используем событие пайнт для формы или нужного контрола. Плюс метод графикс. И используя знания геометрии определяем значения координат линий и сегментов окружностей.

Код: Выделить всё


Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim g As Graphics = e.Graphics
        g.DrawArc(New Pen(Color.BlueViolet, 1), 380, 20, 40, 40, 270, 90)
        g.DrawArc(New Pen(Color.BlueViolet, 1), 380, 180, 40, 40, 0, 90)
        g.DrawArc(New Pen(Color.BlueViolet, 1), 20, 180, 40, 40, 90, 90)
        g.DrawArc(New Pen(Color.BlueViolet, 1), 20, 20, 40, 40, 180, 90)
        g.DrawLine(New Pen(Color.Red, 1), 40, 20, 400, 20)
        g.DrawLine(New Pen(Color.Red, 1), 420, 40, 420, 200)
        g.DrawLine(New Pen(Color.Red, 1), 20, 40, 20, 200)
        g.DrawLine(New Pen(Color.Red, 1), 400, 220, 40, 220)
    End Sub

Удачи