گرد کردن گوشه فرم

[maniaf69]

سلام دوستان من یک کدی می خواهم که گوشه های فرم رو کمی گرد کنه قبلا کد رو داشتم ولی هاردم سوخت هرچی هم میگردم پیدا نمیکنم
اگر دوستان کسی داره ممنون می شوم کمک من کنه و کد رو به من بده

[joker_pok]

سورس گرد کردن لبه های فرم دریافت کن حالشو ببر

[maniaf69]

اینجوری نمیخواهم یک کد خیلی کوچولو داشته این با کامپوننت اجرا میشه من نمیخواهم کامپوننت داشته یاشه
دوستان کسی دیگه نیست که بتونه جواب من رو بده؟

[setroyd]

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

Private Sub Form_Load()
Dim Temp As Long
Me.ScaleMode = 3
Temp = CreateRoundRectRgn(0, 0, ScaleWidth, ScaleHeight, 12, 12) 'x
SetWindowRgn Me.hWnd, Temp, True
End Sub

[setroyd]

هرجاشو نفهمیدی بگو برات توضیح میدم تا جا بیفته برات .

[maniaf69]

این هم خوبه ولی اونی که من داشتم پیکسل پیکسل نبود خیلی نرم گرد شده بود این یکم خشن بریده
راهی نداره نرم تر ببره؟

[setroyd]

دوست عزیز اون که دیدی میاد pixel به pixel این کارو میکنه اونی که میخوای اینه ضمیمه کردم ولی این سبکتره . که بالا برات گذاشتم .
هر عکسی جای مربع بزاری فرم به همون شکل در میاد خودت کار کنی میفهمی .

[nefrat]

Dim p As New Drawing2D.GraphicsPath()
p.StartFigure()
p.AddArc(New Rectangle(0, 0, 35, 35), 180, 90)
p.AddLine(35, 0, Me.Width - 35, 0)
p.AddArc(New Rectangle(Me.Width - 35, 0, 35, 35), -90, 90)
p.AddLine(Me.Width, 35, Me.Width, Me.Height - 35)
p.AddArc(New Rectangle(Me.Width - 35, Me.Height - 35, 35, 35), 0, 90)
p.AddLine(Me.Width - 35, Me.Height, 35, Me.Height)
p.AddArc(New Rectangle(0, Me.Height - 35, 35, 35), 90, 90)
p.CloseFigure()
Me.Region = New Region(p)