هل فكرت يومًا في تصميم متصفح رسومي خاص بك؟ في الواقع، هذا ليس بالأمر الصعب على الإطلاق، يمكننا بسهولة استخدام برمجة VB لتحقيقه.
تتم عملية تصميم المتصفح الرسومي كما يلي:
1. قم بتشغيل VB، وقم بإنشاء ملف مشروع قياسي جديد، وفي النموذج Form1، قم بتغيير التسمية التوضيحية الخاصة بـ Form1 = "Graphic Browser".
2. أضف عناصر تحكم محرك الأقراص والمجلدات والملفات إلى النموذج من مربع الأدوات. اسم محرك الأقراص هو Diver1، واسم المجلد هو Dir1، واسم الملف هو File1، واضبط المواضع المناسبة.
3. قم بإضافة عنصر التحكم PictureBox إلى النموذج من مربع الأدوات. اسم PictureBox هو Picture1، وقم بضبط الموضع والارتفاع والعرض المناسب.
4. من مربع الأدوات، أضف عنصر التحكم CommandButton إلى النموذج. اسم CommandButton هو Command1، وقم بضبط الموضع والارتفاع والعرض المناسب.
5. انقر نقرًا مزدوجًا فوق الماوس في المساحة الفارغة من النموذج لتنبثق نافذة تحرير التعليمات البرمجية وأدخل الكود التالي:
PRivateSubForm_Load()
"قم بتعيين محرك الأقراص والدليل الذي يوجد به التطبيق باعتباره محرك الأقراص والدليل الحاليين."
'التطبيق هو كائن التطبيق الحالي
Drive1.Drive=App.Path
Dir1.Path=App.Path
File1.Pattern = "*.bmp;*.ico;*.wmf"
EndSub
6. انقر نقرًا مزدوجًا فوق عنصر تحكم برنامج التشغيل في النموذج لإظهار نافذة تحرير التعليمات البرمجية وأدخل الرمز التالي:
PrivateSubDrive1_Change()
'عندما يتغير محرك الأقراص المحدد، قم بتحديث المحتويات في مربع قائمة الدليل؛ وعندما يتغير الدليل، قم بتشغيل حدث التغيير في مربع قائمة الدليل
Dir1.Path=Drive1.Drive
EndSub
7. انقر نقرًا مزدوجًا بالماوس على عنصر تحكم مجلد النموذج لتنبثق نافذة تحرير الكود، أدخل الكود التالي:
PrivateSubDir1_Change()
'عندما يتغير الدليل، قم بتحديث محتويات مربع قائمة الملفات
File1.Path=Dir1.Path
EndSub
8. انقر نقرًا مزدوجًا بالماوس على عنصر تحكم ملف النموذج لتنبثق نافذة تحرير التعليمات البرمجية، أدخل الكود التالي:
PrivateSubFile1_Click()
'الدليل الجذر، الحرف الأخير في المسار هو شرطة مائلة عكسية "/"، مثل: C:/
'عندما يكون الدليل غير جذر، فإن الحرف الأخير في المسار ليس شرطة مائلة عكسية "/"
'للحصول على اسم الملف الكامل، يجب عليك إضافة شرطة مائلة عكسية "/" في نهاية المسار
IfRight(File1.Path,1)〈〉"/"ثم
'عندما يكون الدليل غير جذر، أضف شرطة مائلة عكسية "/" في نهاية المسار
tempstring=File1.Path&&"/"&&File1.FileName
آخر
tempstring=File1.Path&&"/"&&File1.FileName
EndIf
"تحميل الملفات المحددة."
Form1.Picture1.Picture=LoadPicture(tempstring)
EndSub
9. انقر نقرًا مزدوجًا فوق عنصر التحكم "إغلاق" في النموذج لإظهار نافذة تحرير التعليمات البرمجية وأدخل الكود التالي:
PrivateSubCommand1_Click()
UnloadMe
نهاية
EndSub
احفظ الملف وقم بتشغيله، وسيكون المتصفح الرسومي الخاص بك جاهزًا. ->