محاولتي مع Rise Event اول محاولة ولا اعلم ما الخطأ

المشروع المرفق بدون Classes

أخي الكريم ، أنا صممت مثال من قبل لإحدي أصدقائي بالمعهد عن كيفية تصميم مكتبة ( Class ) لتقليل الأعباء البرمجية وعدم التكرار داخل النماذج !!!

فهذا المثال يحتوي علي عديد من الأمثلة منها بناء حدث وإستدعائة - بناء الخصائص - الربط مع قاعدة بيانات بسيطة - طريقة ربط الفئة من داخل النماذج - ...... الي آخرة

فأحببت أن أرفق لك نفس المثال لعلي وعسي أن يفيدك بشيء

أما النسبة للمثال المرفق التابع لك فهو ناقص ملف الـ Class .

وشكراً

Project.rar

اسف اخي

msgbx.rar

اتمنى تقولوا بس الخطا فين :(

لست متأكد لكن حسب ماقرأت في الكود بالمفكرة

أرى أن المشكل في التسميات فأنت لا تحترم أسماء الاحداث عند استدعائها

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

اول خطأ هو

Public Sub msgonecmd()

'msgfrm.Show vbModal

'الصح

set my_frm =new msgfrm

my_frm.show vbmodal

set my_Frm =nothing

End Sub

وبدل Public Sub msgonecmd() ووضع خاصية مرر النص في نفس الدالة

Public Sub msgonecmd(byval msg as string)

وفي كود الفورم

Private Sub msgbox_cmdclicked()

'لا اعرف سبب وجودها

'Set msgbox = New Class1

Label1.Caption = ""

End Sub

هذه الملاحظات على السريع

أخي الكود أشتغل عندي تمام

بس تأكد من إرفاق المكتبة إلى مشروعك

Project>>> References

ثم أختر msgbox للي أنت عاملها

تحياااااتي

وبدل Public Sub msgonecmd() ووضع خاصية مرر النص في نفس الدالة 
Public Sub msgonecmd(byval msg as string)

وعند استخدام المكتبة ما ذا اكتب ؟؟

هل اكتب :

msg.msgonecmd

؟؟

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

بدل msg.msgonecmd

اكتب

msg.msgonecmd" hello arabteam"

MsgBox.rar

اخي mma_EG_cairo

بعد تعديلك هناك خطا ::

Set msgbox = New Class1

cant creat object ....

RunDll.rar

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

انظر المرفق

اورجو ان تفتح المشروع

Group1

msgbx.rar

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

أخواني ما هو Rise Event?

اقتباس

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

لا ليس ضروريا لكن وضعته للتسهيل عليك فيمكنك الاستغناء عنها لكن في المشروع التشغيلي(exe) يجب اضافة مرجع الى المكتبة dll

اقتباس

أخواني ما هو Raise Event?

هو اطلاق حدث معين واغلب الاوقات يستخدم في صنع الادوات usercontrols وتنبيه المستخدم بهذا الحدث مثل

control_click عند عملة كبسة ماوس على الاداة تنبه المستخدم بهذه الكبسة عن طريق raisevent click والمستخدم في برنامجه يستقبلها في control_click

اقتباس

لا ليس ضروريا لكن وضعته للتسهيل عليك فيمكنك الاستغناء عنها لكن في المشروع التشغيلي(exe) يجب اضافة مرجع الى المكتبة dll

ارجو الشرح لم افهم جيدا

ادخل على مشروع المكتبة واعمله dll

ثم افتح المشروع الثاني وادخل على references وابحث عن ال dll السابقة

وانتهى امر ال group

مرفق قديم لى هنا بالمنتدى Class Event Test

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

و أنت عايزة يشتغل من الهوا :lol:

طالما أنك مش هتشتغل من الـ Project Group يبقى تعمل Compiling لمشروع الـ DLL و تسجل الـ DLL و بعدين تضيفه هو كـ Reference

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

لحل مشكلة المجموعة افتح مشروع المكتبة ثم على خصائص المشروع توجد تبويبات (tabs) احداها components ويوجد بها ثلاث خيارات فيجب ان تختار اخر واحدة binary compatibility وتختار ملف ال dll الذي عملته سابقا في المربع الذي اسفل هذا الخيار وبعد ذلك اعمل ملف ال dll .

بعد ذلك افتح المشروع العادي ثم على references