سؤال في صنع مكتبة DLL

المفروض تعمل فئة class وتضع لها خصائص مثل حجم الملف

Private m_fileSize As long

Property Get fileSize() As long

fileSize = m_fileSize

End Property

وعند قراءة الملف

تضع

m_file_size= lof(f)

أخي ممكن ترفق لي مثال لأن هذي أول مكتبة DLL لي.

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

Dim a As String
Dim f As Integer
Dim size As Long
a = Path
f = FreeFile
Open a For Binary As f
size = LOF(f)

هل في Method ام Function ام ماذا ؟؟؟؟

أخي أيوب هل من الممكن أن تضع لي مثال كامل لمكتبة فيها مهمة حساب حجم أحد الملفات وأنا أعلم أني قد أخالف قوانين المنتدى لكن المشكلة التي برأسي لم أعرف كيف أمثلها كتابيا وأكون لك من الشاكرين.

أخوك سعد....

من اجل معرفة الحجم الخاص بملف معين فعليك بدالة FileLen()

و هذا مثال على دالة ترجع لك حجم ملف :

Public Function GetFileSize(ByVal FileName as String) As Long
GetFileSize = FileLen(FileName)
End Function

مع العلم ان الدالة FileLen ترجع الحجم بال Byte يعني من اجل معرفة الحجم بالميجا مثلا او الكيلو يجب ان تعمل عملية حسابية صغيرة ;)

أخواني الكرام تظهر مشكلة في إضافة المكتبة وفيها النص التالي:-

Name conflicts with existing module, project, or object library

أرجو المساعدة.

اقتباس

أخواني الكرام تظهر مشكلة في إضافة المكتبة وفيها النص التالي:-

Name conflicts with existing module, project, or object library

هي أنا بعرفها ، معناها إن اسم المكتبة نفس اسم المشروع أو موديول أو مكتبة . وعلشان تتفادى هالشي غير اسم مشروع المكتبة بالنقر بالزر اليميني على نافذة المشروع واختيار Project1 Proprities وتغيير Project name

أخواني أنا إستخدمت الكود التالي لكن ظهرت معي مشاكل أرجو من أحد المحترفين وضع مثال للتوضيح وشكرا.

الكود:-

Public Function GetFileSize(ByVal FileName as String) As Long
GetFileSize = FileLen(FileName)
End Function

هذا الكود من أخينا أيوب.

ماهي المشاكل التي ظهرت لك ؟؟؟ المرجو توضيحها

أخي أنا صنعت مكتبة ولكن عندما أعرف المكتبة في مشروعي عن طريق الكود التالي:-

Dim a as FH.Class1

وعندما أضغط على حرف a ومن ثم . لايظهر لي الفنكشن؟؟

أخي الكريم ، هذا مثال بسيط أتمني أن يوضح لك كيفية بناء المكتبات بصفة عامة ،

Project.zip

ما هي FH ؟ هل هي فورم ؟

انا جربت عمل ذلك و ظهرت الفنكشن

Dim S as Class1
S.GetFileSize()

اذا استمر الخطأ المرجو ارفاق الكود كاملا او المشروع

ملحوظة أخري ،

الكود التالي غير سليم :

Dim a as FH.Class1

والكود الصحيح هو :

Dim a as New FH.Class1

وشكراً

أخي MMA_EG_Cairo هل من الممكن أن تعطيني مثال أبسط يعني فيه بس حساب الملف؟

أخي MMA_EG_Cairo هل من الممكن أن تعطيني مثال أبسط يعني فيه بس حساب الملف؟

وبالنسبة أخي أيوب FH إسم المكتبة.

أخي الكريم ، FH هو إسم مشروع المكتبة ( Project Name ) أما الـ Class1 هو إسم الفئة ، لأن من الطبيعي أن مشروع المكتبة تحتوي علي أكثر من فئة .

أما في مثالي الموضح فقد قمت بالإشارة الي إسم الفئة مباشرتاً كما يلي :

Dim objFileSys1 As New FileSys1

Dim objFileSys2 As New FileSys2

وكان بوسعي أن أكتبة كما يلي :

Dim objFileSys1 As New FileSysEx.FileSys1

Dim objFileSys1 As New FileSysEx.FileSys2

وشكراً

أخي الكريم ، أنا أعطيت لك مثال بسيط جداً وبطريقتين ، مجرد أنني قمت بإضافة تشييكات علي المسار !!!!!

علي العموم سأرفق لك المثال مرة أخري دون إضافة أي تشييكات علي المسار

Project.zip

أخي الكريم عندما أضغط على زر عرض الطول يعطيني خطأ؟؟

ملاحظة:أنا أعمل حاليا على ويندوز فيستا فهل الويندوز فيستا لا يتوافق مع الفيجوال؟

لازم يكون مجالها Public

مجال إيش؟

مجال الرؤية , تأكد من أنها Public و ليست Private

هي Public

RunDLL.rar

والله أخي المشكلة ما زالت قائمة الظاهر أن تسجيل المكتبات في فيستا غير.