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

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

اريدكود لقائمة من الازرار بحيث تكون  في قروب بوكس مخفية وعند وظع الموس فوقها تظهر
وشكرا

في المرفقات
البرنامج

(25-02-16, 09:48 AM)عدنان الشمري كتب : [ -> ]في المرفقات
البرنامج

شكرا اخي الكريم على الرد الجميل والمتميز والسريع

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

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

ضع Groupbox1 على الفورم ثم ضع Button1 , Button2 بداخل الــ Groupbox1 ثم من خصائص الــ Button1\2 ابحث عن خاصية الــ Visible وغيرها من True إلى False ثم إضغط نقرتين على Groupbox1 ستجد نفسك في حدث Click في الاعلى يمين الشاشه غيرها الى حدث MouseMove

أكتب هذا الكود لإضهار الأزرار عند مرور الماوس

Private Sub GroupBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GroupBox1.MouseMove
Button1.Visible = True
Button2.Visible = True
End Sub

وفي حدث Mouseleave أكتب هذا الكود ويعني عند مغادرة الماوس تختفي الازرار من جديد

Private Sub GroupBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles GroupBox1.MouseLeave
Button1.Visible = False
Button2.Visible = False
End Sub

اتمنى الإستفادة للجميع

شكرا اخي الكريم على الرد القيم والجميل الله يفتح عليك ابواب الخر والبركات الله يجعلها لك في ميزان الحسنات
ساجربها وانشاء الله ارفق المثال لتعم الفائدة في المنتدى الغالي
وشكرا

---

(06-05-16, 06:35 AM)EHAB.NET كتب : [ -> ]السلام عليكم ورحمة الله

ضع Groupbox1 على الفورم     ثم    ضع Button1 , Button2  بداخل الــ  Groupbox1  ثم من خصائص الــ Button1\2  ابحث عن خاصية الــ Visible  وغيرها من True  إلى  False  ثم إضغط نقرتين على Groupbox1 ستجد نفسك في حدث Click في الاعلى يمين الشاشه  غيرها الى  حدث MouseMove  

أكتب هذا الكود لإضهار الأزرار عند مرور الماوس

Private Sub GroupBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GroupBox1.MouseMove
       Button1.Visible = True
       Button2.Visible = True
   End Sub

وفي حدث Mouseleave  أكتب هذا الكود  ويعني عند مغادرة الماوس تختفي الازرار من جديد

Private Sub GroupBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles GroupBox1.MouseLeave
       Button1.Visible = False
       Button2.Visible = False
     End Sub

اتمنى الإستفادة للجميع

المثال بالمرفقات بعد ادراج الكود اخي الكريم لكن عند الضغط على الزر بعد اعطائه امر فتح رابط في الويب براوزر لا يعمل اخي ممكن انا لم اظبط الامور بشكل جيد
وشكرا