اظهار واخفاء الفورم بالماوس

[مختار حسين محمود]

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

اخوتى وأحبابى فى المنتدى بناء على طلب أخينا سعد عايد  فى موضوعى الماضى

العمليات الحسابية الأربعة بمجرد المرور بالماوس فوق خلية

http://www.officena.net/ib/topic/64689-%D8%A7%D9%84%D8%B9%D9%85%D9%84%D9%8A%D8%A7%D8%AA-%D8%A7%D9%84%D8%AD%D8%B3%D8%A7%D8%A8%D9%8A%D8%A9-%D8%A7%D9%84%D8%A3%D8%B1%D8%A8%D8%B9%D8%A9-%D8%A8%D9%85%D8%AC%D8%B1%D8%AF-%D8%A7%D9%84%D9%85%D8%B1%D9%88%D8%B1-%D8%A8%D8%A7%D9%84%D9%85%D8%A7%D9%88%D8%B3-%D9%81%D9%88%D9%82-%D8%AE%D9%84%D9%8A%D8%A9/

أقدم لكم طريقة اظهار واخفاء الفورم  بالماوس مش بالـ

الأكواد المستعمله بسيطة . تفضلوا المرفق ولا تنسونا فى دعائكم

تقبل الله منا ومنكم صالح الأعمال

اظهار واخفاء الفورم بالماوس .rar

[ياسر خليل أبو البراء]

بسم الله ما شاء الله

نشاط منقطع النظير يا أخي الغالي مختار

رائع ..يبدو أن موضوع Rollover شغل تفكيرك بشكل مدهش ..تسلم على الأفكار المتميزة

 

[Yasser Fathi Albanna]

سلمت يمينك أخى الحبيب الغالى / مختار

جزاك الله كل الخير وزادك الله من فضلة وعلمه

 

[saad abed]

اخى مختار

جزاك الله خيرا

هذا هو المطلوب واكثر من المطلوب

انا تصورت برنامج محاسبى له فور طائر به الادخالات والمخرجات والتحكم في شكل واعدادات البرنامج

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

سرعه في الوصول للهدف

سانفذ واعرضه عليك قريبا جدا

وفقكم الله

[مختار حسين محمود]

أخى وأستاذى الغالى ياسر خليل  أنت الأروع دائما  يا أبا البراء

 

أخى الغالى ياسر فتحى سلمت من كل عيب و شر  جزاك الله كل خير

 

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

يلا شد حيلك قبل الغطسة   ( كل فترة بغيب شوية عن المنتدى ثم أعود بالجديد )

 

[خالد الرشيدى]

 السلام عليكم

الاخ الفاضل أ/ مختار حسين .. فكرة متميزة للغايه

جزاك الله خيرا

 

 

 

[عبد العزيز البسكري]

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

مميّز بمواضيع مميّزة كما عوَّدْتنا أستاذنا الغالي مختار حسين محمود

بارك الله فيك .. جزاك الله خيرًا و زادها بميزان حسناتك

فائق إحتراماتي

 

[طلعت محمد حسن]

بارك الله فيك اخي مختار فكره متميزة من انسان متميز فعلا.

[مختار حسين محمود]

أخى الحبيب خالد الرشيدى

أخى الحبيب عبدالعزيز البسكرى

أخى الحبيب طلعت محمد حسن

بارك الله فيكم  و مشكورون جزيل الشكر على مروركم الذى شرفت به

تقبل الله منا ومنكم صالح الأعمال

[محمد حسن المحمد]

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه

السلام عليكم ورحمة الله وبركاته...الحمد لله أننا رأينا إبداع شبابنا الأحبة وتعمقهم في البحث وتلقفهم للأفكار النيرة 

لتكون مجالاً كبيراً وأفقاً واسعاً ...

بكم البركة إخوتي الكرام ...مشاعل نور تضيء للحضارة الإنسانية وتعيد لحضارتنا العربية مجدها وسؤددها

هذا ما أكتبه لكم حباً بكم وإعجاباً بأعمالكم التي تسير قدما بوتيرة عالية .

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

[مختار حسين محمود]

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

أبانا و أستاذنا الغالى محمد حسن المحمد 

جزيل الشكر لك على كلماتك الغالية ....  لا فض فوك .            بارك الله فيكم  و جازكم عنا خيرا

[جعفر الطريبق]

بارك الله فيك أستاذ مختار حسين

هل فكرت في تطبيق هذه الفكرة على الأشكال (Shapes)أو الأزرار (Forms Buttons) عوض الخلايا بحيث عند تحريك الماوس فوق الشكل او الزر تظهر رسالة معينة   

تم تعديل نوفمبر 10, 2015 بواسطه جعفر الطريبق

[مختار حسين محمود]

بارك الله فيك أستاذنا جعفر

ردا على سؤالك نعم فكرت  لكن لم أصل لشىء حتى الآن

 

Macro When Your Mouse is over a Image1.rar

[جعفر الطريبق]

استاذ مختار حسين ... فكرت ادخال دالة ال Hyperlink في الخلايا الموجودة مباشرة  تحت الشكل (Shape) ... طبعا هذه الخلايا ينبغي أن تكون خالية و غير مستعملة ...بدأت في كتابة الكود و يبدو جيدا 

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

تم تعديل نوفمبر 12, 2015 بواسطه جعفر الطريبق

[مختار حسين محمود]

والله فكرة جيدة أستاذ جعفر  

لكن ماذا لو تم تحريك الـــ  Shape  الى مكان جديد من قبل المستخدم  بعيدا عن الخلية ؟!

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

وهى :   عمل  Group بين  Shape   و lable  (  لذلك تحريك الـــ  Shape يتبعه الـــ lable   )

الــ  lable  يكون شفاف أو عديم اللون وتحت الـــ  Shape مباشرة 

أما الــ  Shape  له لون واسم  وهو الذى يظهر أمام المستخدم

ونضع فى حدث الشيت الكود  التالى

Option Explicit

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 MsgBox "الزهرة اذا قطفتها فهى لك واذا تركتها فهى لك ولغيرك"
End Sub

جرب المرفق ده و قل لى رأيك

Macro When Your Mouse is over a shape .rar

Macro When Your Mouse is over a shape .rar

[Yasser Fathi Albanna]

رائع أخى الحبيب مختار

 

[ياسر خليل أبو البراء]

طيب لو واحد غلس فك الجروب Ungroup وبعدهم عن بعض ..مختار هيتصرف إزاي ؟؟

وقعت في مزنق بس إن شاء الله توصل لحل ..عارف دماغ الصعايدة (وبحب دماغهم ..أصل دماغي زيهم تمام)

 

[جعفر الطريبق]

استاذ مختار 

لقد جربت الملف اللذي أرفقته لكن عند تحريك الماوس فوق الشكل (Test) لا يظهر الليبل

شكرا 

[جعفر الطريبق]

عملت ملف جديد مبني على قكرة الليبل و ال Grouping  التي تفضل بها الاستاذ مختار  ... لاحظت أن عند جر أو تحريك ال Shape من مكان لأخر فان حجم الليبل يتغير 

فكرة الليبل و ال Grouping  جميلة لكن لو أردنا اضافة الليبل عن طريق ال VBA هنالك مشكل و هو أن ال VBA Project سيعمل RESET و تضيغ كل ال Varaibles

[الـعيدروس]

اضن عبر دالة GetCursorPos 

محاولات لم تنجح

api ليس لها الا جعفر الطريبق بارك الله فيه

[جعفر الطريبق]

19 دقائق مضت, الـعيدروس said:

اضن عبر دالة GetCursorPos 

محاولات لم تنجح

api ليس لها الا جعفر الطريبق بارك الله فيه

شكرا على مرورك يا استاذ العيدروس

تعم ال  API  ممكن أن تحل هذه المشكلة بسهوله لكنها تحتاج الى تنفيذ الكود داخل حلقة تكرارية أو داخل API Timer  و في كلتا الحالتين الكود سيبطئ و يثقل الاكسيل ... أنا أحاول اجتناب هذا الأمر و التفكير في طريقة أخرى أقل تكلفة و وقغ على الاكسيل 

[مختار حسين محمود]

أخوتى وأساتذتى  الأفاضل السلام عليكم و بارك الله فيكم 

ردا على آخى وأستاذى ياسر  اذا عمل المستخدم Ungroup  يبقى ناوى يعملها معاى

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

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Sorry ,Righ click is disable  ", vbInformation
End Sub

أو ممكن نفكر نلغى له بند Ungroup  فقط من القائمة المختصرة  للجروب  وبكده نكون ضيقنا على البعيد شويه 

ردا على آخى وأستاذى جعفر  أنا قصدت فعلا ألا يظهر الليبل أمام المستخدم  حتى يشعر بأن أمامه الـ Shape  فقط

تم تعديل نوفمبر 12, 2015 بواسطه مختار حسين محمود