منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تغير مكان ال panel ديناميكيا حسب مكان ال button.
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
مرحبا شباب 

عندي from يحتوي عى عدد من ال buttons تمثل التخطيط الواقعي لعده محلات تجاريه على الواقع، كل button فيها رقم المحل 

ما اريده هو ان أضع panel في ال form و هذا ال panel  يتغير موقعه حسب موقع ال buttons  ليظهر بيانات المحل،

الموضوع هنا سهل الى الأن وهو بتغير الموقع الخاص بال panel  حسب الموقع الخاص بال buttons  

المشكله هي عند ال buttons  التي في الاعلى و التي في الاطراف سوف يخرج ال panel  خارج نطاق ال from 

كيف استطيع التحكم به بطريقه سهله وشكرا 

و اذا كان عند احدكم فكره اسهل من ال panel لتظهر البيانات عند دذول مؤشر الفارة لل button ساكون مسرور 

مع العلم اني لا اريد عمل هذا الموصوع لكل button  منفردة اريد عمل الشيء لجميع ال buttons في كود واحد وشكرا
لم تبين في الصورم شكل ظهور ال panel

احسب مكان ظهور الpanel حسب حجم الفورم بحيث لا يتجاوز حدود الفورم

ضع كود إظهار الpanel

استخدم ToolTip
شكرا على الرد، 

ToolTip حجمها و شكلها لا يناسب ما اريد.


احسب مكان ظهور الpanel حسب حجم الفورم بحيث لا يتجاوز حدود الفورم.


هل لديك الطريقه ؟؟
هذه طريقة أخرى ما رأيك؟
اعمل مشروع جديد وضع Form1 فيه 3 buttons
وأضف Form2 لاستخدامه بدل ال panel مع تحديد حجم مناسب له مثل (150x100) مع جعل الاطار None وتفعيل TopMost مع Opacity 80% وخلفية صفراء (كاقتراح)
PHP كود :
Public Class Form1

    Private Sub Button_MouseLeave
(ByVal sender As ObjectByVal e As EventArgs_
    Handles Button1
.MouseLeaveButton2.MouseLeaveButton3.MouseLeave
        Form2
.Hide()
 
   End Sub

    Private Sub Button_MouseMove
(ByVal sender As ObjectByVal e As MouseEventArgs_
    Handles Button1
.MouseMoveButton2.MouseMoveButton3.MouseMove
        ShowDetails
(sender)
 
   End Sub

    Sub ShowDetails
(ByVal btn As Button)
 
       Dim pnt As New Point(MousePosition.5MousePosition.5)
 
       If pnt.Form2.Width Screen.PrimaryScreen.WorkingArea.Width Then pnt.MousePosition.Form2.Width 5
        If pnt
.Form2.Height Screen.PrimaryScreen.WorkingArea.Height Then pnt.MousePosition.Form2.Height 5
        Form2
.TopMost True
        Form2
.Location pnt
        Form2
.Show()
 
   End Sub

End 
Class 
والفكرة قابلة للتطوير
شكرا صديقي طالب البرمجة قمت بأستخدام customtooltip 
وهي جيدة نوعا ما، شكرا لك للتفاعل.