هل يمكن ان يكون هذا الكود كمكتبة DLL

عملك جيد فقط عند استدعائك للمكتبة استخدم الكود التالي للحصول على النتيجة

 Dim m As New HS.MyClass
 Dim n As Long
 n = m.HS(380, 100

)

تحياتي

اخي لم افهم ما تقصد

هل المكتبة بها خطا ؟؟

لماذا لا تصبح مثل الي يصبح عند وضع الكود في جنرال

Dim m As New HS.MyClass
Dim n As Long
n = m.HS(380, 100

هل اضع هذا الكود في المكتبة او اين

اريد ان اجعل المكتبة مثل ما اضع الكود في الجنرال

تحطه فى مشروعك اللى هتستخدم فيه المكتبة , لأن ده أعلان عنها , و هو ضرورى ولا يمكن الأستغناء عنه

أخي الكريم ، الغرض التي قمت بصناعتة من نوع محلي Private ، يجب تصريحة بحيث أن يكون عام Public كما يلي :

Public Function HS(ByVal a As Integer, ByVal b As Integer) As Integer

HS = a + b - 375

End Function

ومن ثم قم بإستخدام الدالة بعد إدراجها للمشروع كما يلي :

Dim m As New HS.MyClass

Dim n As Long

n = m.HS(380, 100)

وشكراً

ما اعرفه بان المكتبات لا يوجد بها

Dim m As New HS.MyClass
Dim n As Long
n = m.HS(380, 100)

لماذا يجب اضافة هذا الكود ؟؟

على العموم انظر بنفسك

dll.rar

اخي الكريم :

من المفروض انك تستخدم الكود التالي لمكتبتك

 Dim m As New Class1
 Dim n As Long
 n = m.HS(200, 230)

تحياتي

اخي لا فائدة انت عدل في المشروع و ارفقه

يمكن استدعاؤه مباشرة دون تعريف الفئة عن طريق :

من خصائض الفئة

Class properties --> instancing

وبعد ذلك GlobalMultiUse

حيث تصبح تطلبه في برنامجك كاي دالة للفيجوال بيسك

x= HS(1,2)

بسم الله

أخي العزيز مبرمج مبتدئ المشكلة هي أنك تعرف المتغير على أنه المكتبة بينما المفروض أنك تعرف المكتبة على إنها الكلاس يعني

dim m as new class1
dim n as long
n=m.hs(1,2)

جربها أخي وإنشاالله بتظبط

فتحت المشروع المرفق فالظاهر انك كنت تشتغل على مشروع عادي ثم حولته الى مشروع مكتبة لكن لو من الاساس عملت مشروع مكتبة ستجد ان خاصية الفئة في instancing هي multi use بينما حاليا موجودة عندك private .

لكن لا اعرف كيف تمكنت من تحويل المشروع الى dll.

طبعا للوصول الى خصائص الفئة افتح الفئة ثم اضغط f4

اخي طارق مشكوووووور لقد ساعدتني حيث claass proptis

وهذا ما اقصده :) لا اقصد dim m as new class1......

العفو يا اخي