الاخوه الكرام
السلام عليكم ورحمة وبركاته
هل يوجد مثال حول أستخدم هذه الاادرة الموجوده في الصورة المرفقه ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
وكل عام وانتم با الف صحه وعافيه
.....
مشروع
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
.....
(28-06-14, 12:43 AM)vbnet كتب : [ -> ].....
مشروع 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
.....
لك مني جزيل الشكر والتقدير اخي العزيز
