غير شكل نموذجك

الآن نتطرق لشفرة تغيير شكل النموذج .

ما المقصود من هذا؟

* حسنا أنت دائما ترى في الفجوال بيسيك شكل النموذج التقليدي ( مستطيل ) . تريد أن تغير من شكله ليكن

مثلا شكله بيضاوي أو دائري , نعم يمكنك عمل ذلك ألم تصدق بعد ؟؟؟ إذا تابع مايلي :

صيغة شفرة تغيير شكل النموذج كالتالي :

قم بوضع الشفرة التالية في ملف مدوال ( Module ):

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

ثم قم بوضع هذه الشفرة في حدث ( التحميل ) لود ( Load ):

SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 300, 200), True

لاحظ في الشفرة السابقة كلما غير الأرقام التي بين القوسين يتغير شكل النموذج .

استمتع بنموذجك ........