معرفة خلف وقمة Usercontrol علي مستوي ال Screen

فين المثال,اخي

وهحاول مع ان اسئلتك في المواضيع السابقة كانت صعبة

آسف ، ها هو المثال ،

وشكراً علي إهتمامكم ،

Project.rar

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

بطبيعة الحال وقت التصميم الusercontrol لا يملك هاتين الخاصيتين لانهما تعبران عن مكان وجوده على الparent وهذا طبيعي وقت التصميم لانه غير موجود على فورم

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

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

Private Sub UserControl_Click()
	Print Extender.Left
	Print Extender.Top
End Sub

إخواني الكرام ، أشكركم كثيراً علي إستجابتكم لي ،ولكن أنا لم أقصد موقع الآداة علي النموذج ، فأنا علم أن خاصية Extender تمثل كافة خصائص الآداة علي النموذج سواء خاصية مصممة بيدي مثل ( BackColor ) و خاصية ثابتة مثل الـ Left و Height و غيرها . ولكن طلبي هو معرفة موقع الآداة علي مستوي الـ Screen بوجة عام.علي سبيل المثال كي أقوم بتوسيط النموذج بمنتصف الشاشة كما يلي :Me.Left = (Screen.Width - Me.Widht) /2Me.Top = (Screen.Height - Me.Height) / 2أنا أرغب في ذلك ، معرفة موقع أي آداة علي مستوي الـ Screen سواء CommandButton أو TextBox أو آداة جديدة UserControl .وشكراً لكم جميعاًإخواني ، أنا آسف أني موضحتش سؤالي من البداية ، فأكرر أسفي علي هذه الغلطة

طالما أنه ليها Handle فدالة GetWindowRect هتفى بالغرض :D

وشكراً للجميع

Project.rar

عندى ملحوظتين فى الأول :

1- بتعجبنى مشاريعك , بحس أنك عايز تتحرر من عادات العرب و من حبهم للأدوات الجاهزة :D .

2- طالما انك بتحب الخط اللى بتكتب بيه مشاركاتك ده فأكتب بيه براحتك بس ياريت لو تكبر حجمة شوية :) .

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

أنت أستعملت Form جديدة عليها الألوان و بالتالى اللى بيحصل ده هو الطبيعى.

أعمل الموضوع كله فى Usercontrol بمعنى بدون Form اخرى.

الـ UserControl بتغير فى طولها نفسها بحيث تبان أكن فيه قائمة خرجت منها لكن فى الحقيقة هى مجرد طولت الـ Length بتاعها و يبان على الجزء اللى طول الألوان اللى المستخدم يختار منها , و لما يختار لون أو يقع أى حدث خارجى زى النقر على الـ Form ترجع الـ Control لحجمها , مش عارف كده قصدى وضح و لا لأ , قللى أنت :)

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

1- عند تكبير إرتفاع الآداة لا تخفي أو لا تقع فوق الأدوات الموجودة بأسفلها ، علي سبيل المثال

إذا وضعت آداة Combo ومن ثم قمت بوضع TextBox تحتها ، عند النقر علي زر الـ Combo

يضع قائمة السرد أعلي الـ TextBox .

2- يحتوي برنامجي علي شريط أدوات أو عنصر Picture لإسخامها كشريط أدوات ، سأقوم بوضع

هذه الآداة علي شريط الأدوات ، عند تكبير العنصر يختفي الآداة داخل شرط الأدوات.

أنظر المثال المرفق !!!

أما بالنسبة للخط ، فأعتزر وسأحاول عدم تكرار هذا الخطأ مرة أخري ....

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

عدم إمكانية التعامل مع العديد من أنظمة التشغيل .... الي آخرة ..

وشكراً أخي الكريم

Project1.rar

زى ما حزوووم قال بالمشاركة 3 , الموضوع يتحل بفكرة الـ Z Order , أستعمل دالة BringWindowToTop و ناديها مع حدث الـ Click

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

ولكن ماذا عن مشكلتي الثانية ، عند إضافة الآداة في شريط الأدوات أو إضافتها في حاوية ، ماذالت موجودة ؟

فما هو الحل إذاً ؟؟؟؟؟؟

همممم , صحيح مفكرتش فى الموضوع ده.

نرجع لفكرة الـ Form + الموضوع دهKeep Form Titlebars in Focus when ToolWindows are Shown

معرفش ينفع مع النوافذ العادية و لا لأ بس جرب.

أخي الكريم ، أنا فتحت الرابط بس معرفتش أتعامل معاة ، ياريت سلو سمحت تعطيلي مثال بسيط عما تتحدث عنة

وشكراً

لو الشرح ملخبطك , نزل المشروع نفسه من هنـــــــــــــــــــــــــــــا و الـ ssubtmr6.dll من هنــــــــــــــــــــــــــــــــــا

وشكراً للجميع

ToolColors.rar

الـ SSubTmr6.dll مفتوح المصدر VB6 SSubTmr Source Code

الجزء الخاص بالـ Subclassing ممثل فى 2 Classes و واحد Module أسمائهم :

isubclass.cls

subclass.cls

subclass.bas

اقتباس

فهل هناك حل ؟

أمممممممممممممم !!!

بصراحة أخي الكريم أنا مشعارف ماذا أقول ، ولكن هذا خطأ مني لأنني لم أنفذ المشروع قبل طرح السؤال !!!!

فبالنسبة لأيقونة البرنامج بشريط المهام قد تمت حلها بمجرد تحويل الآداة الي OCX !!!!

ولكن ظهرت لي مشكلة أخري غير متوقعة !!!!

ففي المشروع المرفق كنت أستخدم الحدث Dectivate لإنهاء النموذج عند عدم التركيز علية !!!

ولكن عند تحويلة الي ملف تنفيذي OCX لم ينفذ الحدث نهائياً ، وأستخدمت أحداث أخري مثل LastFocus !!

فياريت لو سمحت ترفقلي مثال علي كيفية معرفة هل النموذج منشط Active أم لا ؟

وشكراً لك أخي الكريم ، وآسف علي الإزعاج ،

على ما أذكر ( مجربتش دلوقتى قبل ما أرد عليك بس كنت بعمل حاجة زى كده زمان ) كنا بنعمل Hook على الـ Form اللى عليها الـ Control لأصطياد رسالة WM_KILLFOCUS

Private Const WM_KILLFOCUS As Long = &H8

بصراحة أنا مشفاهم قصدق بالضبط ،

هوا اللغة الإنجليزية ضعيفة عندي شوية ، علشان كدة دايماً ملغبطني الكود ،

لكنني سأعطي لك ما أقصدة مرة أخري ،

إذا نظرت في آخر تحميل لملف الآداة MyColors ، كنت دائماً أستخدم حدث Dectivate كي أغلق النموذج المفتوح ، لأنني أفتحة كنموذج عادي وليس كديالوج !!!

وعند تحويلة الي آداة لا ينفذ الحدث Dectivate ؟

أنا كنت أستخدم هذا التابع الوظيفية لجعل نموذج منشط ( Activate ) :

Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

ولكن كيف أعرف أن النموذج الخاص بي غير منشط ( Activate ) ؟

وشكراً لك أخي الكريم ،

أقصد بعمل Subclass على الـ Form اللى عليها الـ Control و لما توصل رسالة WM_KILLFOCUS تعرف أن النافذة هتفقد التركيز.

أخي الكريم ، هوا بصراحة مش وصلالي الفكرة ، لكن ممكن تعطيلي مثال !!!!

لكن ما فهمتة منك هو التحكم الخارجي للآداة !!!

ولكن ما أقصدة أن أفصل الآداة عن أي عمل خارجي سواء Subclass أو غيرة .....

ولو كانت المشكلة في الـفأرة فكنت إستخدمت SetWindowPos كما ذكرت ...

ولكن المشكلة في التركيز نفسة علي النموذج ....

أعتقد أنني رأيت كود التركيز من قبل ، ولكن بصراحة غير قادر علي العثورعثر علية الآن ...

علي العموم أنا مش مستعجل ، وأشكرك علي ردك الكريم ....

والسلام ختام

عملتلك مثال بس بيعتمد على الرسالة WM_ACTIVATE لأن التانية فيها وجع دماغ و أشتغالات غريبة.

Container_focus.rar

بكده أنت من خلال الأداة هتعرف هل البرنامج فقد التركيز أم لا.

تعديل : أنا أستعملت الـ Self Sub كـ Subclasser فى المثال ده.

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

حقيقة الsubclassing يفقد الأعصاب :wacko:

الحمد لله أننا نستعمل الآن الوراثة على الدوت نت ومن ثم نقوم باستدعاء الإجراء WndProc

شكرا أخ محمد حقيقة لأول مرة أسمع ب Extender

بالتوفيق للجميع دائما