الاخت الكريمة
انشئي وحدة نمطية جديدة
ضعي فيها الكود التالي :
Public Declare Function CreateEllipticRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" _
(ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
في حدث عند التحميل للنموذج ضعي الكود التالي :
SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 300, 200), True
كلما قمت بتغيير الارقام في الحدث يتغير شكل النموذج
شاهدي التعديل في المرفق ,,,
ونحن في العون ما استطعنا بأذن الله ,,,
db1.rar