دوستان من به این سورس احتیاج داشتم ولی متاسفانه تو بخش سوالات ویژوال کسی جوابشو نداشت من خودم از یکی از فروم ها بدست اوردم و اینجا میزارم واسه بعد از ما هرکی نیاز داشت پیدا کنه
این سورس معادل border-radius در css هست که کناره های فرم را هلالی میکنه واسه زیبای فرم و استفادشم تو borderstyle none است
موفق باشید و با تشکر از اون فروم :19:
این سورس معادل border-radius در css هست که کناره های فرم را هلالی میکنه واسه زیبای فرم و استفادشم تو borderstyle none است
کد:
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موفق باشید و با تشکر از اون فروم :19: