|
|
دليل استخدام إجراءات VBAppAss.dllللمبرمجين بلغة Visual Basic 6.0 |
تلوين خلفية نافذة (أو عنصر، مثل PictureBox) بلون متدرج.
الصيغة:
Sub GradientPaintWindow(hwnd As Long, TopLeftColor As OLE_COLOR, BottomRightColor As OLE_COLOR, Direction As TGradientPaintDir)
الصنف:
TUserInterface.
الوسائط (Parameters):
| hwnd | مقبض النافذة أو العنصر. في Visual Basic، الخاصية hWnd تحتوي على مقبض النافذة أو العنصر أثناء التشغيل. | |
| TopLeftColor | اللون عند الزاوية العلوية اليسرى للنافذة أو العنصر. | |
| BottomRightColor | اللون عند الزاوية السفلية اليمنى للنافذة أو العنصر. | |
| Direction | اتجاه تدرج اللون. استعمل إحدى قيم المرقم TGradientPaintDir. |
الشرح:
يمكنك استخدام هذا الإجراء لإضفاء مظهر جذاب على نوافذ برنامجك و ذلك بتلوين خلفياتها بألوان متدرجة، كما يبدو في هذه الصورة.
إذا كانت قيمة البارامتر Direction هي GPD_VER فإن التدرج اللوني يكون رأسياً حيث يستعمل اللون المحدد بالبارامتر TopLeftColor في الأعلى و يستعمل اللون المحدد بالبارامتر BottomRightColor في الأسفل. أما إذا كانت قيمة البارامتر Direction هي GPD_HOR فإن التدرج اللوني يكون أفقياً حيث يستعمل اللون المحدد بالبارامتر TopLeftColor في الجهة اليسرى و يستعمل اللون المحدد بالبارامتر BottomRightColor في الجهة اليمنى.
ينبغي استدعاء هذا الروتين من معالج الحدث Paint الخاص بالنموذج (Form_Paint).
الاستخدام:
Dim ObjUI As New TUserInterface
ObjUI.GradientPaintWindow Me.hWnd, &HD7FF&, &H7280FA, GPD_VER