مساعده لعمل ملف Ocx

[AlOmmda]

سلامٌ عليكم و رحمه الله
أود أن أقوم بعمل ملف ocx أو Dll أضع فيه الـدوال Function التى قمت بكتابتها تحت الـ VB6P ؛ حيث أستطيع بعد ذلك من ضمها لاى برنامج أخر أقوم بعمله تحت الـ Vb

و لسيادتكم وافر الشكر.

[LaSer_26]

الموضوع ده طويل جدا وصعب الشرح لكن دعني أضع لك بعض الافكار طبعا عند بداية تشغيل الفجيوال يظهر لك رساله عن النظام المراد استخهدامه أختر منها Active Control ومنها تستطيع ان تتحكم بما تريد ويستحسن لو تجد كتاب يشرح لك هذه الجزئيه

[AlOmmda]

شكراً إليك Laser؛ أود فقط إضافه Modules و ليس ActiveX control لقد قمت بالفعل بعمل هذا الـActiveX و أضفت فقط الـ Modules التى أحتاجها؛ و قمت بعمل Create OCX ؛ بعد ذلك قمت بعمل import أو Append تحت الـ Prefrences ثم حاولت أو أقوم بنداء أى داله موجوده فى هذا الـ ocx و لكن لم يتعرف عليها.

مشكور لاهتمامك...

[LaSer_26]

تحت امرك أخي الكريم طيب تقدر ترفع نموذج للتطبيق وأشوف معاك فين مكان الخطا

[AlOmmda]

مشكور أخى الكريم؛
هاك الملفات؛ إستطعت بعون الله أن أعمل ملف cls_lib.dll ووضعته تحت system32 ثم قمت بربطه من تحت الـ Access فى الملف المرفق test_class.mdb و ذلك عن طريق الـ Refrences و أحوال من تحت الـAccess نداء function إسمها
IsTableExist(TableName As String, [whichDB])
لكنه لا يراها بالرغم من إنها موجوه catalog project فى Access

شكراً لاهتمامكم

[savage]

اخي الكريم خطواتك صح 100%
بس انت نسيت شيئ مهم
لا تستطيع ان تستخدم الدوال بدون متغير قيمة
و لحل المشكلة
Option Compare Database
Dim a As cls_Lib ' لقد اضفت هذا المتغير حتي يأخذ خواص الملف

Private Sub cmd_call_Click()
Set a = New cls_Lib ' يجب ان ننشئ المتغير

If Not a.IsTableExist("students") Then MsgBox "Table not found"
End Sub
و لقد جربت الملف و الان هو شغال 100%

[AlOmmda]

أخى العزيز savage لك الشكر على إهتمامك بالموضوع؛ الآن بعد شرحك أستطيع أن أرى الـ[Functions التى قمت بعملها فى ملف الـ dll
Option Compare Database
Dim myLib As New cls_Lib

مره أخى لك جزيل الشكر و بارك الله لك....