سورس معادل border-radius در فرم وِیژوال بیسیک ؟؟؟؟؟؟

[saji777]

سلام دوستان

قبلا سورسی رو تو ویژوال بیسیک دیدم که کناره های فرم رو هلالی میکرد و تو خوردگی میداد معادل border-radius
در طراحی وب حالا کسی سورس شو داره من نیاز دارم مرسی

[Hashemvp]

نمیدونم منظورت دقیقا این هست یا نه ولی چیزی ک من فهمیدم فکر کنم این ب دردت بخوره

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32.dll" (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 Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Public Sub HvP_SmoothForm(Frm As Form, Optional ByVal Curvature As Double = 25)' متغیر دومی برای میزان منحنی گوشه های فروم هست
Dim hRgn As Long
Dim X1 As Long, Y1 As Long
X1 = Frm.Width / Screen.TwipsPerPixelX
Y1 = Frm.Height / Screen.TwipsPerPixelY
hRgn = CreateRoundRectRgn(0, 0, X1, Y1, Curvature, Curvature)
SetWindowRgn Frm.hWnd, hRgn, True
DeleteObject hRgn
End Sub

Private Sub Form_Load()
HvP_SmoothForm Me
End Sub

موفق باشی

[saji777]

مرسی داداش من :X