الاخوه الكرام
السلام عليكم ورحمة وبركاته
هل يوجد مثال حول أستخدم هذه الاادرة الموجوده في الصورة المرفقه ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
وكل عام وانتم با الف صحه وعافيه
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
مشروع ActiveX.DLL ينتج مكتبة DLL تستدعيها من خلال المراجع ...References من القائمة Project
لعمل مثال:
قم بإنشاء مشروع ActiveX.DLL واجعل اسمه myActiveX
سنجد بداخلة بشكل افتراضي Class1 غير اسمه إلى Math
سنكتب بداخله دالة اسمها Sum تأخذ قيمتين وتقوم بجمعهما وترجع الناتج كالتالي
كود :
Option Explicit
Public Function Sum(n1 As Single, n2 As Single) As Single
Sum = n1 + n2
End Function
الآن نقوم بإنشاء ملف DLL للمشروع عن طريق القائمة File ومنها اختر ...Make myActiveX.DLL
طريقة استخدام ملف myActiveX.DLL:
ننشئ مشروع عادي جديد ثم ندرج ملف myActiveX.DLL كمرجع Reference عن طريق القائمة Project ومنها نختار ...References
نضغط استعراض Browse لنبحث عن الملف myActiveX.DLL ونختاره
نضيف زر Command للفورم ثم نضع هذا الكود ونشغل المشروع ونرى النتيجة
كود :
Option Explicit
Dim myMath As New myActiveX.Math
Private Sub Command1_Click()
MsgBox myMath.Sum(2, 2)
مشروع ActiveX.DLL ينتج مكتبة DLL تستدعيها من خلال المراجع ...References من القائمة Project
لعمل مثال:
قم بإنشاء مشروع ActiveX.DLL واجعل اسمه myActiveX
سنجد بداخلة بشكل افتراضي Class1 غير اسمه إلى Math
سنكتب بداخله دالة اسمها Sum تأخذ قيمتين وتقوم بجمعهما وترجع الناتج كالتالي
كود :
Option Explicit
Public Function Sum(n1 As Single, n2 As Single) As Single
Sum = n1 + n2
End Function
الآن نقوم بإنشاء ملف DLL للمشروع عن طريق القائمة File ومنها اختر ...Make myActiveX.DLL
طريقة استخدام ملف myActiveX.DLL:
ننشئ مشروع عادي جديد ثم ندرج ملف myActiveX.DLL كمرجع Reference عن طريق القائمة Project ومنها نختار ...References
نضغط استعراض Browse لنبحث عن الملف myActiveX.DLL ونختاره
نضيف زر Command للفورم ثم نضع هذا الكود ونشغل المشروع ونرى النتيجة
كود :
Option Explicit
Dim myMath As New myActiveX.Math
Private Sub Command1_Click()
MsgBox myMath.Sum(2, 2)
End Sub
.....
لك مني جزيل الشكر والتقدير اخي العزيز
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ