مكتبة Ms-AccessListviewACX1.00 اداة بخصائص جاهزة مكتبة dll من تصميمي دعوة للتطوير

[Elsayed Bn Gemy]

السلام عليكم ورحمة الله تعالى وبركاته
اخوانى الكرام منذ ان بدأت هذا المشروع ولم افكر لحظة فى ان احيد عنه

 

الان اقدم لكم مكتبة جديدة متلافيا فيها بعض المشاكل التي قابلتنا قديما وادرجت بها دوال جاهزة وسهلة

المكتبة بها اداة listview  
وبها ثلاث دوال

الدالة الاولي
 

ListFolder(ByVal FolderPath As String)
وهى دالة لعرض الملفات فى مجلد معين
حيث FolderPath هو مسار المجلد 

 

ويتم استدعااء الدوال بهذا الكود

  Option Explicit
  Option Compare Database
Public listv As MsAccessListviewACX1_00.UCBySedo

Private Sub Command115_Click()
Set listv = Me.UCBySedo2.Object
call listv.ListFolder ("C:\Users\Elsayed\Desktop\New folder\")
End Sub

حيث UCBySedo2 هي اسم Activex  التى ادرجتها فى النموذج

 

 

==========================

الدالة الثانية
 

FillListviewWithRecord(ByVal CurrntDb As String, ByVal QuerySQl As String)
وهذه الدالة لتعبئة الليست فيو بالسجلات وجهلها مثل النموذج الفرعي

حيث CurrntDb هي المسار الكامل لقاعدة البيانات وهذه خاصية جيدة حيث يمكن الاتصال ياقاعدة بيانات خارجية 
واذا كنت تريد نفس قاعدة البيانات يمكنك ادراج هذه الجملة بدل المسار 
CurrentProject.FullName
==============================
QuerySQl
وهو الاستعلام المراد عرضه ويتم ادراجه بطريقة SQL 
"SELECT Accounts.ID AS [م], Customers.Customer  AS [العميل], Accounts.Debit  AS [مدين], Accounts.Credit  AS [دائن], Accounts.Dates  AS [التاريخ], Accounts.Notes  AS [البيان] FROM Accounts INNER JOIN Customers ON Accounts.Customer_ID = Customers.Customer_ID;"

طبعا انشئ الاستعلام الخاص بك واعرضه بطريقة SQL  وانسخه وادرجه 

 

=======================

الدالة الثالثة

filLvWithImage(ByVal ImgType As String, ByVal FolderPath As String)
هذه الدالة لعرض الصور 
  حيث ImgType هي نوع الصور الموجودة في المسار 
 حيث FolderPath  هو المسار المراد عرض الصور بداخله 

طريقة التسجيل
 

في ١‏/١٠‏/٢٠١٩ at 18:00, Elsayed Bn Gemy said:

اما عن طريقة التسجيل   فستجد ملف من نوع .bat  ارفقته مع الاداه اسمه " تسجيل الاداة "

 

قم بفتحة با النوتباد وقم بتغيير مسار الاداه  وقم بحفظ الملف

 

وعن التسجيل قم بفتح الملف كمسؤل  وسيقوم بتسجيل المكتبةتلقائيا

بعد التسجيل تاممكد من وجود ملف tlp  فى قائمة الريفرنس هكذا

ثم بعد ذلك اختر عناصر Activex  ثم ادراج جديد واختر الاداة

 

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

---------------------------------------------------------------------------------------------------

تعديل : 12-02-2021 :

 

قمت بانشاء قاعدة بيانات مدرج بها الاداة والدوال الثلاثة وطريقة الاستخدام

الدالة الاولى  وهى تعبئة الاداة بالسجلات من نفس قاعدة البيانات

قم باختيار الاستعلام ( يتم عمل قائمة بالاستعلامات تلقائيا فى حدث عند التحميل وادرجها فى الكمبوبوكس )

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

الدالة الثانية

اختر المسار ونوع الصورة المراد عرضها فى المسار  ثم عرض

الدالة الثالثة

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

 

MsAccessListviewACX1.01.rar

[abouelhassan]

بارك الله فيك اخى

[ابو محمد 316]

السلام عليكم

بارك الله فيك وحفظك الله

فيه فكرة لــ أداة قد تستفيد مه مادين 

وهي خاصه بالصور

 

 

بالتوفيق إن شاء الله

تم تعديل فبراير 10, 2021 بواسطه ابو محمد 316

[Elsayed Bn Gemy]

7 ساعات مضت, abouelhassan said:

بارك الله فيك اخى

بارك الله لك اخي 🙏🙏

2 ساعات مضت, ابو محمد 316 said:

السلام عليكم

بارك الله فيك وحفظك الله

فيه فكرة لــ أداة قد تستفيد مه مادين 

وهي خاصه بالصور

 

 

بالتوفيق إن شاء الله

وعليك السلام اخي ♥️

وما هي فكرة الاداة اخي 

[أبو إبراهيم الغامدي]

أهلا أ. جمال..

واجهتني مشاكل في التسجيل 

[Elsayed Bn Gemy]

10 دقائق مضت, أبو إبراهيم الغامدي said:

أهلا أ. جمال..

واجهتني مشاكل في التسجيل 

اهلا استاذنا 

تاكد من مسار النت فريم ورك  كما هو موجود في ملف bat

[أبو إبراهيم الغامدي]

اتبعت الخطوات التي أشرت إليها لكن..

هل لنوات الأفس دخل بالموضوع؟

[Elsayed Bn Gemy]

6 دقائق مضت, أبو إبراهيم الغامدي said:

اتبعت الخطوات التي أشرت إليها لكن..

هل لنوات الأفس دخل بالموضوع؟

لا ولكن دعنا نري ان كان أحد من الاخوة واجهته مشكلة التسجيل 

[محمد سلامة]

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

أما بخصوص هذه الأداة جاري التجربه

تحياتي 🌹

 

[ابو محمد 316]

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

اخي الكريم  حفظك الله

فكرة أداة  هي 

1- سحب الصور من الكاميرا او الأسكنر او من مجلد على الجهاز

2- بعد إضافة الصورة الى المجلد المخصص لها من قبل المستخدم وحفظ الرابط في قاعدة البيانات عن طريق البرنامج . يتم تشفير الصورة بحيث لا يمكن مشاهدة الصورة او معرفة المحتوى الى عن طريق البرنامج والذي يستخدم الادة في فك الصور للمشاهدة على النموذج او التقرير او الطباعة 

3- ولو توفر في الادة إمكانية فك التشفير عن الصوره واخراجه الى مجلد مستقل يكون افضل 

 

 

بالتوفيق إن شاء الله

 

والسلام عليكم

[أبو إبراهيم الغامدي]

في ١٠‏/٢‏/٢٠٢١ at 01:17, Elsayed Bn Gemy said:

الان اقدم لكم مكتبة جديدة متلافيا فيها بعض المشاكل التي قابلتنا قديما وادرجت بها دوال جاهزة وسهلة

المكتبة بها اداة listview  

كان اختيار أ. جمال بالبدء بهذه الأداة في تطويره لأدوات تعمل مع أكسس موفقا جدا!

الأداة فيها ميزات كثيرة لعرض البيانات بشكل جذاب وملفت!

أنا استخدم الأداة المتوفرة ضمن الأدوات التقلدية في ويندوز .. إلا أنها تحتاج بعض العمل من أجل عرض البيانات العربية 

أتمنى ممن حمل الأداة وعملت معه أن يخبرنا. رجاءً 

[Elsayed Bn Gemy]

3 ساعات مضت, أبو إبراهيم الغامدي said:

كان اختيار أ. جمال بالبدء بهذه الأداة في تطويره لأدوات تعمل مع أكسس موفقا جدا!

الأداة فيها ميزات كثيرة لعرض البيانات بشكل جذاب وملفت!

أنا استخدم الأداة المتوفرة ضمن الأدوات التقلدية في ويندوز .. إلا أنها تحتاج بعض العمل من أجل عرض البيانات العربية 

أتمنى ممن حمل الأداة وعملت معه أن يخبرنا. رجاءً 

استاذنا  ابو عبد الله 

راعيت اثناء التصميم  ان تعمل فى بيئة فريمورك 3.5  وهو المتاح فى ويندوز 7  ..  حتى تعمل فى اصدرات الويندوز الحديثة

كما انها مصممة حتى تعمل على النواتين 32 و 64

 

ولكن دعنا نتاكد من  بعض البيانات فى ملف التسجيل الخاص بك

فى ملف التسجيل  يجب تعديل المسارات الاتية

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

C:\Windows\Microsoft.NET\Framework\v4.0.30319

هل هو موجود فعلا ام لا 

وهل اداة التسجيل موجودة فى الملف ام لا    regasm.exe

 

 

ثانيا   تعديل مسار الاداة  فى ملف التسجيل 

 

غير ذلك  يبقي ننتظر احد الاخوة   والله الموفق

 

[علاء محمد علي]

يا ليت لو تسوي شرح بالفيديو لكيفية تثبيت الادوات الذي عملتها لاني ما قدرت اثبتها ولا حتى فهمت كيف اثبتها بصراحة وهذا بسبب جهلي وليس بسببكم

شاكرين ومقدرين لكم هذا الابداع 🌹🌹

علاء محمد

[Elsayed Bn Gemy]

السلام عليكم اخوانى

قمت بانشاء قاعدة بيانات مدرج بها الاداة والدوال الثلاثة وطريقة الاستخدام

الدالة الاولى  وهى تعبئة الاداة بالسجلات من نفس قاعدة البيانات

قم باختيار الاستعلام ( يتم عمل قائمة بالاستعلامات تلقائيا فى حدث عند التحميل وادرجها فى الكمبوبوكس )

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

الدالة الثانية

اختر المسار ونوع الصورة المراد عرضها فى المسار  ثم عرض

الدالة الثالثة

الملفات فى مجلد معين اضافة الى ايقوناتها  اختر المسار ثم عرض

قاعدة البيانات

AcxListview_V1.00.rar

[ابوبسمله]

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

السلام عليكم اخوانى

قمت بانشاء قاعدة بيانات مدرج بها الاداة والدوال الثلاثة وطريقة الاستخدام

وعليكم السلام اخى واستاذى العزيز @Elsayed Bn Gemy بارك الله فيك وجزاك الله خيرا وان شاء الله موفق

قمت بتسجيل الاداه وتم التسجيل والحمدلله وعند تجربه المثال المرفق منك ظهر الخطأ ومرفق الصور

 

 

[Elsayed Bn Gemy]

2 دقائق مضت, احمد الفلاحجي said:

وعليكم السلام اخى واستاذى العزيز @Elsayed Bn Gemy بارك الله فيك وجزاك الله خيرا وان شاء الله موفق

قمت بتسجيل الاداه وتم التسجيل والحمدلله وعند تجربه المثال المرفق منك ظهر الخطأ ومرفق الصور

 

 

 

اخي هل ظهرت الاداة فى عناصر Activex  ?

[ابوبسمله]

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

اخي هل ظهرت الاداة فى عناصر Activex  ?

نعم اخى العزيز

 

[Elsayed Bn Gemy]

32 دقائق مضت, احمد الفلاحجي said:

نعم اخى العزيز

 

قم بتجربة النماذج الاخري وان ظهر معك نفس الخطأ اخبرني

[ابوبسمله]

منذ ساعه, Elsayed Bn Gemy said:

قم بتجربة النماذج الاخري وان ظهر معك نفس الخطأ اخبرني

نفس الخطأ اخى

[Elsayed Bn Gemy]

45 دقائق مضت, احمد الفلاحجي said:

نفس الخطأ اخى

اذن ازل الاداة واعد تركيبها من جديد   او علي قاعدة بيانات جديدة اعتقد  ان المشكلة تكمن في قاعدة البيانات التي ارفقتها  لاني اعدت تسمية المكتبة داخليا من اول وجديد 

[ابوبسمله]

4 ساعات مضت, Elsayed Bn Gemy said:

اذن ازل الاداة واعد تركيبها من جديد   او علي قاعدة بيانات جديدة اعتقد  ان المشكلة تكمن في قاعدة البيانات التي ارفقتها  لاني اعدت تسمية المكتبة داخليا من اول وجديد 

طيب اذا مكنش فيها تعب ارفق لنا المكتبه المعدله مع المثال وان شاء الله اقوم بالتجربه عليها

بالتوفيق اخى

[Elsayed Bn Gemy]

15 ساعات مضت, احمد الفلاحجي said:

وعليكم السلام اخى واستاذى العزيز @Elsayed Bn Gemy بارك الله فيك وجزاك الله خيرا وان شاء الله موفق

قمت بتسجيل الاداه وتم التسجيل والحمدلله وعند تجربه المثال المرفق منك ظهر الخطأ ومرفق الصور

 

 

اخي هل يمكنك تعديل  الكود الخاص بهذا الخطأ  ليصبح
 

Dim AcxLvw As  New MsAccessListviewACX1_00.UCBySedo
Call AcxLvw.FillListviewWithRecord(CurrentProject.FullName, Me.Text11)

وجرب وقولي

[علاء محمد علي]

بعد تعديل الكود ظهر خطا آخر

 

[ابوبسمله]

منذ ساعه, Elsayed Bn Gemy said:

اخي هل يمكنك تعديل  الكود الخاص بهذا الخطأ  ليصبح

اعطانى الخطا

 

[Elsayed Bn Gemy]

1 دقيقه مضت, احمد الفلاحجي said:

اعطانى الخطا

 

طب حط نفسك مكانى انت 🤣🤣🤣🤣  نحطله الاوبجكت يقولك لا كخ  وحش ههههههههه

نشيل الاوبجكت يقولك لا انا عاوز الاوبجكت

 

 

جرب هذه المكتبة مع المرفق  اعد التسجيل ثم جرب
 

MsAccessListviewACX1.01.rar