+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تغير مكان ال panel ديناميكيا حسب مكان ال button. (/showthread.php?tid=22904)
تغير مكان ال panel ديناميكيا حسب مكان ال button. - Rabeea Qbaha - 12-12-17
مرحبا شباب
عندي from يحتوي عى عدد من ال buttons تمثل التخطيط الواقعي لعده محلات تجاريه على الواقع، كل button فيها رقم المحل
ما اريده هو ان أضع panel في ال form و هذا ال panel يتغير موقعه حسب موقع ال buttons ليظهر بيانات المحل،
الموضوع هنا سهل الى الأن وهو بتغير الموقع الخاص بال panel حسب الموقع الخاص بال buttons
المشكله هي عند ال buttons التي في الاعلى و التي في الاطراف سوف يخرج ال panel خارج نطاق ال from
كيف استطيع التحكم به بطريقه سهله وشكرا
و اذا كان عند احدكم فكره اسهل من ال panel لتظهر البيانات عند دذول مؤشر الفارة لل button ساكون مسرور
مع العلم اني لا اريد عمل هذا الموصوع لكل button منفردة اريد عمل الشيء لجميع ال buttons في كود واحد وشكرا
RE: تغير مكان ال panel ديناميكيا حسب مكان ال button. - طالب برمجة - 12-12-17
لم تبين في الصورم شكل ظهور ال panel
احسب مكان ظهور الpanel حسب حجم الفورم بحيث لا يتجاوز حدود الفورم
ضع كود إظهار الpanel
استخدم ToolTip
RE: تغير مكان ال panel ديناميكيا حسب مكان ال button. - Rabeea Qbaha - 12-12-17
شكرا على الرد،
ToolTip حجمها و شكلها لا يناسب ما اريد.
احسب مكان ظهور الpanel حسب حجم الفورم بحيث لا يتجاوز حدود الفورم.
هل لديك الطريقه ؟؟
RE: تغير مكان ال panel ديناميكيا حسب مكان ال button. - طالب برمجة - 12-12-17
هذه طريقة أخرى ما رأيك؟
اعمل مشروع جديد وضع Form1 فيه 3 buttons
وأضف Form2 لاستخدامه بدل ال panel مع تحديد حجم مناسب له مثل (150x100) مع جعل الاطار None وتفعيل TopMost مع Opacity 80% وخلفية صفراء (كاقتراح)
PHP كود :
Public Class Form1
Private Sub Button_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) _
Handles Button1.MouseLeave, Button2.MouseLeave, Button3.MouseLeave
Form2.Hide()
End Sub
Private Sub Button_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) _
Handles Button1.MouseMove, Button2.MouseMove, Button3.MouseMove
ShowDetails(sender)
End Sub
Sub ShowDetails(ByVal btn As Button)
Dim pnt As New Point(MousePosition.X + 5, MousePosition.Y + 5)
If pnt.X + Form2.Width > Screen.PrimaryScreen.WorkingArea.Width Then pnt.X = MousePosition.X - Form2.Width - 5
If pnt.Y + Form2.Height > Screen.PrimaryScreen.WorkingArea.Height Then pnt.Y = MousePosition.Y - Form2.Height - 5
Form2.TopMost = True
Form2.Location = pnt
Form2.Show()
End Sub
End Class
RE: تغير مكان ال panel ديناميكيا حسب مكان ال button. - Rabeea Qbaha - 12-12-17
شكرا صديقي طالب البرمجة قمت بأستخدام customtooltip
وهي جيدة نوعا ما، شكرا لك للتفاعل.