أمر RaiseEvent

إخواني الكرام ، أنا ملاحظ أن طلبي بالفعل غير عادي ،

أنا آسف إخواني ولكنني بالفعل في أشد الإحتياج لحل هذه المشكلة ، فياريت حد يحاول معانيا

ويساعدني لحل هذه المشكلة ، لإنها ستفيدني كثيراً وتمنعني عن تكرار العديد من الأكواد داخل

الفيجوال بيزيك . وليس طلبي مقيد ، بل حلها بأي شكل من الأشكال.

وشكراً

إخواني ، هل أنا قد جرحت شخصٍ منكم.

أعزروني أخواني ، فأنا قد عرضت هذا الموضوع بأكثر من منتدي من قبل ، وحتي الآن لم أحصل علي حل جزري لهذه المشكلة . وأنا أيضاً أتعشم فيكم جميعا .

وشكراً

رجاء

رجاء

رجاء

المساعدة

لتنفيذ حدث ما من داخل فورم بداخل DLL أستعمل الطريقة اللى فى المشروع المرفق , و هى ليست من أبتكارى ( حصلت على مساعدة فيها سابقا ) :

Class_Event_Test.rar

EventTest.rar

بالنسبة لحدث ClosingAboutWindow فهو بيتنفذ عندى عادى بدليل أن النافذة يعود أسمها لـ Test مرة أخرى.

بالنسبة لحدث ShowingAboutWindow فنفذه زى ما أنت عايز , لاحظ أن أسم النافذة أتغير وخلاص من أول مرة , حط مثلا Beep , هتسمعها كل مرة عادى.

بالنسبة لـ ObjPtr فهى Hidden Keyword مش هتلاقيها فى الـ Object Browser ليه بقى معرفش بس أهى تناحة من مايكروزفت.

عموما راجع Unofficial Documentation for VarPtr, StrPtr, and ObjPtr

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

بس ليا رجاء عندك و هو أنك تكبر حجم الخط اللى بتستعملة , أو تستعمل خط تانى لأنه صعب فى القرأة قوى.

ها ها ها ها هااااااااااااااااة

بالفعل أخي ، هناك العديد من الأوامر المخفية داخل الفيجوال بيزيك ، وكما قلت مجرد تناحة من ميكروسوفت ، بس والنبي ياريت بلاش الأسلوب دة علشان في مصر بيقولوا الملافظ سعد !!!!!!!!!!!!!!!!!!!!!!!!!!!!!

بس بردو أنا مقيد لكلامك الواقعي !!!!!!

أخي الكريم ، أنا جربت الكود ولم ينفذ معي ، فياريت ترفقلي مثال بسيط يوضح كيفية إستدعاء هذه الأحداث أكثر من مرة من داخل الديالوج ، ويجب أن تعلم جيداً أنني صفر في اللغة الإنجليزية ، فياريت تشرحلي هذه الدالة والدوال التي قمت بذكراها .

وشكراً أخي ، ولا تزعل مني فأنا أحببت أن أجاريمك في خفة دمك

وشكراً

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

ملاحظة: أخي الكريم لا يجوز الحلف يغير الله فلوسمحت لو تترك عادة انك تحلف بالنبي وأدري أنك موقاصد تحلف بغير الله ولكن هذا يعتبر في الدين شرك أصغر أرجو تقبل النصيحة بصدر رحب.

أخوك سعد.

يا خوفى أنك تكون من محبى مايكروزفت :lol: !

عموما بالنسبة لـ ObjPtr تقدر تقول أنها أختصار لـ Object pointer طبعا الكلام ده لمبرمجى السى و الدلفى ( والباسكال ) و الأسمبلى مفهوم جدا لأن الـ Pointers جزء أساسى فى برامجهم و التعامل مع الـ Pointers عندهم مدعوم بشكل كامل فلا تتوقع أنك هتعرف الدالة دى بسهولة.

الـ Pointer بالبلدى و عموما عبارة عن متغير من نوع Long يحمل عنوان شئ ما فى الذاكرة.

دالة ObjPtr بتجيب لنا العنوان ده ( اللى هو على هيئة Long ) و الخاص بـ Object ما.

و راجع الموضوع ده كمان : How To Get the Address of Variables in Visual Basic ( أنجليزى هو كمان )

بالنسبة للمشروع أنا مش شايف فيه أى مشكلة !

عموما جربه تانى من المرفق ده ( فيه تعديل بسيط ).

Class_Event_Test.rar

RaiseEvent.rar

أخي أرجو التوضيح جيدا أين المشكلة ومتى تحصل.

هو أنا المثال شغال عندى عادى من داخل الـ VB

بس قبل ما نحكم على نسخة الـ VB بتاعتك على أن فيها مشاكل تأكد من :

1 - أنك بتفتح ملف الـ Project Group و ليس كل Project على حده.

2- من مشروع الـ Standard EXE أختر References و تأكد من أن أسم المشروع الآخر موجود و تم أختياره ( لاحظ أنك مش محتاج تعمله DLL علشان تتأكد من شغله طالما أنك داخل الـ IDE لأن الـ VB بيظهر عنصر فى قائمة الـ References خاص بمشروع الـ DLL لوحده ).

أن كانت لسه المشاكل دى ظاهرة عندك يا أما تستحملها و تعمل Compile للـ DLL كل مرة عايز تجربه أو تجرب تنزلة تانى ( يفضل بعد أزالة النسخة المنصبه ).

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

بالنسبة لرد الأخ Saad AL.Moosa فكان فيه نصيحة و هى واجبة عليه طالما أنه أخد باله من ما يستدعى النصح و شكرا له على حرصه على أخوانه بالمنتدى.

بالنسبة لردى فمفيش مانع أن أحنا نمزح بين كلامنا عادى مش لازم يبقى كله تعليمات و وظائف و أوامر و مناقشة أخطاء طالما أن الموضوع لم يقلب بالكامل لمزاح و لم تفرد مشاركات بالكامل بغرض الفكاهة و التسلية.

عموما حصل خير و ياريت ننهى النقاش الجانبى فى الموضوع.

1- بالنسبة للـ Group ، استخدمته ولم يعمل معي ، ولكن يجب أن تعلم جيداً بأنني سأضع هذا الكود بداخل مكتبة DLL وليس من داخل المشروع ذاته ، أي أنني أرغب في بناء مكتبة DLL كي أستخدمه أكثر من مرة داخل مشاريع EXE . وهذه هي مشكلتي من البداية ، فقد تم حلها في بداية المشاركة ، ولكنني قمت بإعادة فتح الموضوع لهذه المشكلة ، مع العلم أنني قمت بتنصيب الويندوز والفيجوال بيزيك مرتين خلال هذه الفترة .

2- أخي الكريم ، مشكلتي ليست في الـ DLL ذاته ، ولكن مشكلتي مع الـ EXE ، فلا يتم تنفيذ أحداث المكتبة DLL أثناء تصميم مشروع جديد من نوع Standerd EXE ، ولكن يتم تنفيذ الأحداث الموجودة بداخل المكتبة بعد تحويل المشروع الي ملف تنفيذي EXE

مثال :

 

Dim WithEvents obj As Dialog

 

''هذا الحدث يتم استدعائه من داخل نموذج الديالوج الموجود بالمكتبة عند النقر علي زر الأمر.

Private Sub obj_ClickButton()

		MsgBox "EXE هذا الحدث لا ينفذ أثناء التصميم ، ولكنة ينفذ أثناء التنفيذ"

End Sub

 

Private Sub Form_Load()

	   Set obj = New Dialog

End Sub

أنظر الي المثال المرفق ، ونفذ المشروع Test علي حدة ، بحيث أن يتعامل مع المكتبة DLL ، ثم قم بتحويلة الي Exe تجد انه يعمل طبيعي ، ولكن أثناء التصميم لا يعمل .

وأشكرك كثيراً علي مساعدتك لي

أما عن الموضوع الخاص بـرد الأخ Saad AL.Moosa فصدقني أنا والله نسيت الموضوع ، وعلي العموم كلنا أخوة في هذا الوطن .

آسف أخري الكريم ، ها هو المثال مرة أخري :

 

Dim WithEvents obj As Dialogs.Dialog

 

Private Sub obj_ClickButton()

	  MsgBox "هذا لا يعمل أثناء التصميم ، ولكنة يعمل أثناء تحويل المشروع الي ملف تنفيذي"

End Sub

أنا آسف يا إخواني ، فأنا معتاد أن أكتب في NotePad ثم أنسخ هنا ، ولكنني الآن كتبت في Word ، فآسف مرة أخري ، وها هو

المثال :

 

Dim WithEvents obj As Dialogs.Dialog

Private Sub obj_ClickButton()

MsgBox "هذا لا يعمل أثناء التصميم ، ولكنة يعمل أثناء تحويل المشروع الي ملف تنفيذي"

End Sub

أنا مشعارف أية المشكلة بالضبط :

Dim WithEvents obj As Dialogs.Dialog

Private Sub obj_ClickButton()

MsgBox "هذا لا يعمل أثناء التصميم ، ولكنة يعمل أثناء تحويل المشروع الي ملف تنفيذي"

End Sub

لا تكتب اى Tag داخل الـ Code Tag لأنه لن ينفذ , يعنى جوا الـ Code Tag لا تستعمل Right أو Left أو Center أو Font أو Color أو خلافة من الـ BBcode tags

تعديل : ولا حتى الابتسامات .

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

بالنسبة لمشروعك فى المشاركة 35 :

المشروع داخل المجلد Normal هو شغال من الـ VB نفسه لكن :

- أنت مكرر الأحداث يعنى حاطط نسخة من أحداث الـ Class فى الـ Form ليه :blink:

- فى مشروع الـ EXE أنت كاتب :

Dim WithEvents obj As frmDialog

يعنى عامل نسخة من الـ Form مش من الـ DLL !!!! طب ايه لازمة أنك تعمل DLL أساسا ؟!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

- لم تستخدم فكرة الـ Collection !

المشروع التانى ده المثال بتاعى.

RaiseEventExample.rar