تسجيل مكتبات *.Dll مرفق خارجي او من خلال الاكسس

[Elsayed Bn Gemy]

السلام عليكم ورحمة الله تعالى وبركاته

اليوم اقدم لكم مرفق ليس ميكروسوفت اكسس انما .exe   وذلك لتسجيل مكتبات DLL  

 

 

هذا بالنسبة للمرفق
ارفقت المكتبة الخاصة بالمرفق يمكنك اضافتها الى برنامج الاكسس الخاص بك لتسجيل المكتبات الخاصة بك
 

المكتبة الذى ارفقتها بها ثلاث دوال

GetPathBySedo  وهى الدالة الخاصة باختيار ملف المراد تسجيله
InstallService   وهى الدالة الخاصة بتسجيل المكتبة
UnInstallService وهى الدالة الخاصة بالغاء تسجيل المكتبة
 

بعد اضافة المكتبة فى  قاعدة البيانات الخاصة بك

فى محرر اكود الاكسس تستطيع استدعاء الدوال  عن طريق الاتى

دالة تسجيل المكتبة + دالة جلب المسار
يمكنك الاستغناء عن دالة استدعاء المسار اذا كان مسار المكتبة المراد تسجيلها محدد

Dim dll As New Dll_Add_Remove.ClsTest
dll.InstallService (dll.GetPathBySedo)

 

دالة الغاء تسجيل المكتبة
 

Dim dll As New Dll_Add_Remove.ClsTest
   dll.UnInstallService (dll.GetPathBySedo)

برنامج تسجيل المكتبات.rar

 

[SEMO.Pa3x]

عليكم السلام، بارك الله بك..

سؤال 1: هل تقصد المكتبات المبرمجة بلغة اخرى يقبلها الاكسس؟

سؤال 2: هل يقبل المكتبات المبرمجة بلغة VB.NET ؟

تم تعديل يناير 23, 2021 بواسطه SEMO.Pa3x

[ابوخليل]

شكرا استاذ جمال هدية جمبلة

انا استخدم  ملف bat للنسخ والتسجل في الوقت نفسه وارفق هذا الملف ضمن حزمة التنصيب

[Elsayed Bn Gemy]

منذ ساعه, SEMO.Pa3x said:

عليكم السلام، بارك الله بك..

سؤال 1: هل تقصد المكتبات المبرمجة بلغة اخرى يقبلها الاكسس؟

نعم class library و Com Control 

منذ ساعه, SEMO.Pa3x said:

سؤال 2: هل يقبل المكتبات المبرمجة بلغة VB.NET ؟

نعم فالمكتبة المرفقة مصممة بلغة. Net 

منذ ساعه, ابوخليل said:

شكرا استاذ جمال هدية جمبلة

انا استخدم  ملف bat للنسخ والتسجل في الوقت نفسه وارفق هذا الملف ضمن حزمة التنصيب

بارك الله فيك بصراحة انا لم اقصد برنامج التسجيل في حد ذاته بل المكتبة المرفقة 

فهذه اول مكتبة اصممها واردت من الاخوة تجربتها في الاكسس 🙏🥰🥰

[SEMO.Pa3x]

2 دقائق مضت, Elsayed Bn Gemy said:

نعم class library و Com Control 

نعم فالمكتبة المرفقة مصممة بلغة. Net 

 

قمت بكتابة Class Library بلغة VB.NET

 

Public Class KillProcessLib
    Public Shared Function kProcess(ByVal prcName As String)
        Dim prc() As Process = System.Diagnostics.Process.GetProcessesByName(prcName)
        For Each xKill In prc
            xKill.Kill()
        Next
    End Function
End Class

 

الان كيف سأقوم بإستدعاءه في الاكسس؟ يظهرلي ملف امتداداه .InstallLog لما استدعيه من الريفرينس يرفض

[Elsayed Bn Gemy]

1 دقيقه مضت, SEMO.Pa3x said:

 

قمت بكتابة Class Library بلغة VB.NET

 

Public Class KillProcessLib
    Public Shared Function kProcess(ByVal prcName As String)
        Dim prc() As Process = System.Diagnostics.Process.GetProcessesByName(prcName)
        For Each xKill In prc
            xKill.Kill()
        Next
    End Function
End Class

 

الان كيف سأقوم بإستدعاءه في الاكسس؟ يظهرلي ملف امتداداه .InstallLog لما استدعيه من الريفرينس يرفض

بعد تسجيلها بالبرنامج ستجدها في الريفرنس تلقائيا  فقط قم باختيارها واستدعائها 

ولكن هل قمت باضافة مفتاح لها وتفعيل خيار com registered في البيسك نت 

[SEMO.Pa3x]

اقتباس

ولكن هل قمت باضافة مفتاح لها وتفعيل خيار com registered في البيسك نت 

 

أين تقصد؟

 

4 دقائق مضت, Elsayed Bn Gemy said:

بعد تسجيلها بالبرنامج ستجدها في الريفرنس تلقائيا  فقط قم باختيارها واستدعائها 

ولكن هل قمت باضافة مفتاح لها وتفعيل خيار com registered في البيسك نت 

اين تقصد ؟

[Elsayed Bn Gemy]

كما في هذه الصور 

[SEMO.Pa3x]

2 دقائق مضت, Elsayed Bn Gemy said:

كما في هذه الصور 

عذراً اخي، الصور صغيرة جدا ممكن ترفعها على مركز رفع وليكن مثلاً www.imgur.com

[Elsayed Bn Gemy]

ستجد الصور والشرح في هذا الرابط 

https://codedocu.com/Net-Framework/Controls/COM-ActiveX/Details_mobile?d=2382&z=1&t=Create+C%23+COM+Control+for+Office

[Ali Mohamed Ali]

أحسنت استاذ السيد جعله الله فى ميزان حسناتك