عند استخدام عناصر تحكم الطرف الثالث في برمجة VB، يجب أن يكون البرنامج قادرًا على العثور على عناصر تحكم الطرف الثالث المستخدمة في دليل النظام أو دليل البرنامج. عادة ما تكون هناك طريقتان: الأولى هي جعل عنصر التحكم والبرنامج في حزمة مضغوطة وتوزيعها، ولكن عيب ذلك هو أنه قد يتسبب في فقدان ملف التحكم أثناء عملية نشر البرنامج. والثاني هو إنشاء برنامج التثبيت والعيب هو أن عملية الإنتاج مرهقة. توضح هذه المقالة كيفية حفظ عناصر التحكم الخارجية في البرنامج في شكل ملفات موارد مخصصة، بعد تشغيل البرنامج وقبل استخدام عناصر التحكم، يتم إنشاء عناصر التحكم المستخدمة في دليل البرنامج لإكمال إخراج عناصر التحكم من الملف القابل للتنفيذ. ملف.
الخطوات المحددة هي كما يلي:
الخطوة 1: انسخ عنصر التحكم الذي سيتم استخدامه إلى دليل المشروع الحالي، وانقر بزر الماوس الأيمن فوق عنصر التحكم، وحدد خصائص، ولاحظ حجم الملف. لاحظ أنه يجب عليك كتابة الرقم المحدد بالبايت، وليس عدد K، لأغراض البرمجة.
الخطوة 2: الرجوع إلى عنصر التحكم واستخدامه بشكل طبيعي.
الخطوة 3: قم بإنشاء ملف مورد جديد وإضافته إلى المشروع. أضف عنصر تحكم الجهة الخارجية المستخدم كمورد مخصص (CUSTOM) في محرر ملف المورد. استخدم الرقم الافتراضي 101 لرقم المورد. إذا تم استخدام عناصر تحكم متعددة، قم بإضافتها إلى عناصر الموارد 101، 102... في ملف المورد على التوالي، ويجب أيضًا تعديل كود القشرة وفقًا لذلك.
الخطوة 4: اكتب كود قشرة التحكم لقراءة بيانات ملف المورد وإنشاء عنصر التحكم في الدليل الحالي للبرنامج.
الرمز هو كما يلي:
Private Const OCXSIZE = 57344 'حجم عنصر التحكم الذي سيتم إنشاؤه هو 57344 بايت، والاسم هو CoolToolBar.ocx
فرعي رئيسي()
Dim Ocx() As Byte 'OCX عبارة عن مصفوفة من النوع Btye
عداد خافت طالما
Ocx = LoadResData(101, CUSTOM) 'اقرأ المورد رقم 101 في المورد المخصص في المصفوفة OCX
'لاحظ أن هناك خطأ في تعليمات تحميل الموارد المخصصة في تعليمات Microsoft. تم تعريف المورد المخصص على أنه CUSTOM بدلاً من الرقم 10 المذكور في التعليمات.
إذا كان Right(App.Path, 1) = ($%$43%^#ASD#2@$#f$%^) ثم "اقرأ مسار البرنامج، وحدد ما إذا كان هو الدليل الجذر وقم بمعالجته بشكل منفصل"
'البرنامج موجود في الدليل الجذر
إذا كان Dir(App.Path & CoolToolBar.ocx) = إذن، هل يوجد عنصر تحكم في مسار البرنامج؟ وإذا لم يكن الأمر كذلك، فسيتم إنشاء عنصر التحكم
'اكتب (أنشئ) عنصر التحكم (CoolToolBar.ocx) في الوضع الثنائي إلى الدليل الذي يوجد به البرنامج الرئيسي
افتح App.Path وCoolToolBar.ocx للملف الثنائي رقم 1
بالنسبة للعداد = 0 إلى OCXSIZE - 1 'لاحظ أنه نظرًا لأنه يبدأ من 0 بايت، فإن حجم الملف - 1 بايت هو القيمة النهائية
ضع رقم 1،، Ocx(العداد)
العداد التالي
إغلاق رقم 1
انتهي إذا
آخر
'البرنامج ليس في الدليل الجذر
إذا كان Dir(App.Path & /CoolToolBar.ocx) = إذن، هل يوجد عنصر تحكم في مسار البرنامج؟ إذا لم يكن الأمر كذلك، فسيتم إنشاء عنصر التحكم
'اكتب (أنشئ) عنصر التحكم (CoolToolBar.ocx) في الوضع الثنائي إلى الدليل الذي يوجد به البرنامج الرئيسي
افتح App.Path & /CoolToolBar.ocx للملف الثنائي رقم 1
بالنسبة للعداد = 0 إلى OCXSIZE - 1 'لاحظ أنه نظرًا لأنه يبدأ من 0 بايت، فإن حجم الملف - 1 بايت هو القيمة النهائية
ضع رقم 1،، Ocx(العداد)
العداد التالي
إغلاق رقم 1
انتهي إذا
انتهي إذا
Form1.Visible = True 'تم إنشاء عناصر التحكم المستخدمة في البرنامج الرئيسي، وعرض النموذج الرئيسي، والدخول إلى البرنامج الرئيسي.
نهاية الفرعية
ملاحظة: أضف الكود أعلاه إلى المشروع كوحدة نمطية، وحدد كائن بدء التشغيل باعتباره Sub Main في إعدادات خاصية المشروع، وهو رمز الصدفة أعلاه. ثم قم بتجميع ملف EXE وإنشائه، ونسخ ملف EXE إلى أجهزة الكمبيوتر الأخرى التي لم يتم تثبيت عنصر التحكم عليها، وتشغيله لمعرفة ما إذا تم تحقيق إمكانية نقل التحكم.