->في عملية تطوير البرمجيات، تعد جماليات الواجهة عاملاً مهمًا في تسويق البرنامج. تقدم هذه المقالة طريقة لتحقيق أنماط خلفية النموذج، ولهذا الغرض، يمكن تصميم خلفية جميلة ثلاثية الأبعاد بسهولة ومرونة. 1. قم بإنشاء نموذج جديد Form1 بالخصائص التالية:
التسمية التوضيحية = "تحقيق أنماط الخلفية"
Borderstyle=3 (لا يوجد أزرار الحد الأقصى والحد الأدنى)
2. قم بإنشاء شبكة تحكم Grid1. سيتم تحديد موضعها وحجمها في البرنامج (بنفس حجم Form1)، وخصائصها هي:
Enabled=False (لن يقع التركيز على عنصر تحكم الشبكة Grid1)
نمط التعبئة = 1 (تغيير خصائص النص لجميع الخلايا)
Fixedcols=0 (لا توجد صفوف ثابتة)
الصفوف الثابتة=0 (لا توجد أعمدة ثابتة)
خطوط الشبكة=خطأ (خطوط الشبكة غير مرئية)،
مرئي = صحيح
3. قم بإنشاء عنصر تحكم الصورة Picture1، وقم بوضع النمط الأساسي لنمط الخلفية فيه عند تشغيل البرنامج، والخصائص هي:
مرئي = خطأ (غير مرئي)
الحجم التلقائي = صحيح (ضبط الحجم تلقائيًا)
4. قم بإضافة Sheridan3DControls إلى عنصر التحكم، وحدد زر الأمر ثلاثي الأبعاد SSCommand، وقم بإنشاء زرين:
SSCommand1.Caption = "خروج"
SSCommand2.Caption="تغيير الخلفية" (يوضح أنماط خلفية مختلفة)
يمكن أن تستدعي الصورة الخاصة بها نفس النمط أو نمطًا مختلفًا مثل الخلفية. إذا كنت تستخدم أمر التحكم في زر الأمر العادي، فيمكن استخدامه أيضًا، ولكن زر الأمر ليس له نمط خلفية.
5. قم بإنشاء نمط خلفية يشكل روتينًا فرعيًا:
اسم ملف الصورة النقطية DimpictfileAsString
مسار الملف DimFILEPATHAsString
صورة خلفية فرعية (ملف الصورة)
الصورة1.ScaleMode=3
Form1.ScaleMode=3
الصورة 1. الصورة = تحميل الصورة (ملف الصورة)
'يغطي التحكم في الشبكة خلفية النموذج بالكامل
الشبكة1.الأعلى=-1
الشبكة1.اليسار=-1
Grid1.Width=Width
Grid1.Height=Height
Grid1.Cols=Int(Form1.ScaleWidth/picture1.ScaleWidth) 1
Grid1.Rows=Int(Form1.ScaleHeight/picture1.ScaleHeight) 1
'جميع أحجام الوحدات تساوي حجم النمط الأساسي
ForI=0Togrid1.Cols-1
Forj=0Togrid1.Rows-1
Grid1.ColWidth(I)=picture1.ScaleWidth*15
Grid1.RowHeight(j)=picture1.ScaleHeight*15
التاليج
التاليأنا
"اختر جميع الوحدات."
Grid1.SelStartCol=0
Grid1.SelStartRow=0
Grid1.SelEndCol=grid1.Cols-1
Grid1.SelEndRow=grid1.Rows-1
Grid1.Picture=Picture1.Picture
EndSub
6. نموذج البرنامج الرئيسي:
PRivateSubForm_Load()
'احصل على اسم مسار البرنامج قيد التشغيل، مع وجود شرطة مائلة عكسية بعد اسم المسار
IfRight(App.Path,1)<>"/"ثم
filePath=App.Path&"/"
آخر
filePath=App.Path
EndIf
'يعرض النموذج في البداية خلفية مكونة من أنماط Tiles.bmp الأساسية
pictfile = "c:/windows/Tiles.bmp"
الصورة الخلفية (ملف الصورة)
EndSub
7. زر أمر الخروج من البرنامج:
PrivateSubSSCommand1_Click()
نهاية
EndSub
8. عرض أنماط تظليل مختلفة: تحدد هذه المقالة صورة Windows Tiles.bmp، ويمكن للقراء أيضًا تحديد رسومات أخرى يريدونها. الرمز هو كما يلي:
PrivateSubSSCommand2_Click()'عرض توضيحي بديل لنمطين للخلفية
Ifpictfile=filePath&"Pict1.bmp"ثم
pictfile = "c:/windows/Tiles.bmp"
آخر
pictfile=filePath&"Pict1.bmp"
EndIf
الصورة الخلفية (ملف الصورة)
EndSub->
