Аналог CreateRoundRectRgn

[VB-constructor]

Добрый день, уважаемые!

Скажите, есть ли аналог CreateRoundRectRgn в VB.NET, а то АПИ юзать как-то не хочется и если нет, то возможно ли как-то его симитировать

Помогите пожалуйста, заранее спасибо!

[Alex[fj]]

Всегда использовал Api... В справке тоже, вроде, ничего нет.

[Viper]

Через GraphicsPath можно попробовать

[gaidar]

Да, стоит объектами, начиная с Graphics поиграться.
Посмотрите, например:
http://www.eggheadcafe.com/articles/gdi ... orners.asp

Вот еще функция может пригодится:

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

Private Function GetRoundedRect(ByVal BaseRect As RectangleF, ByVal
Radius As Single) As Region
' If corner radius is less than or equal to zero, return the
original rectangle
If Radius <= 0 Then Return New Region(BaseRect)
' If corner radius is greater than or equal to half the width or
height (whichever is shorter) then
' return a capsule instead of a lozenge.
If Radius >= (Math.Min(BaseRect.Width, BaseRect.Height) / 2.0) Then
Return GetCapsule(BaseRect)

Dim Diameter As Single = Radius + Radius
Dim ArcRect As New RectangleF(BaseRect.Location, New SizeF(Diameter,
Diameter))
Dim RR As New Drawing2D.GraphicsPath()

With RR
' top left arc
.AddArc(ArcRect, 180, 90)

' top right arc
ArcRect.X = BaseRect.Right - Diameter
.AddArc(ArcRect, 270, 90)

' bottom right arc
ArcRect.Y = BaseRect.Bottom - Diameter
.AddArc(ArcRect, 0, 90)

' bottom left arc
ArcRect.X = BaseRect.Left
.AddArc(ArcRect, 90, 90)

.CloseFigure()
End With

Return New Region(RR)
End Function