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

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

Rabeea Qbaha

12-12-17, 04:15 PM
مرحبا شباب 

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

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

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

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

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

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

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

طالب برمجة

12-12-17, 04:46 PM
لم تبين في الصورم شكل ظهور ال panel
احسب مكان ظهور الpanel حسب حجم الفورم بحيث لا يتجاوز حدود الفورم
ضع كود إظهار الpanel
استخدم ToolTip

Rabeea Qbaha

12-12-17, 05:02 PM
شكرا على الرد، 

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


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


هل لديك الطريقه ؟؟

طالب برمجة

12-12-17, 07:22 PM
هذه طريقة أخرى ما رأيك؟
اعمل مشروع جديد وضع 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 
والفكرة قابلة للتطوير

Rabeea Qbaha

12-12-17, 08:20 PM
شكرا صديقي طالب البرمجة قمت بأستخدام customtooltip 
وهي جيدة نوعا ما، شكرا لك للتفاعل.
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > تغير مكان ال panel ديناميكيا حسب مكان ال button.