[ميدو الفنان]

(19-12-20, 09:54 PM)crazykinko كتب :

(19-12-20, 09:41 PM)ميدو الفنان كتب :

(19-12-20, 07:57 PM)crazykinko كتب :

السلام عليكم

كيفية عمل fullscreen panal

وعكس اخي الغالي

اين تضع المشغل اخي الكريم هل في panel ام ماذا ؟

نعم في panel داخل البرنامج وليس في فورم وحده

---

(19-12-20, 09:41 PM)ميدو الفنان كتب : اين تضع المشغل اخي الكريم هل في panel ام ماذا ؟

وضعته هكذا هل يوجد حل تكبير وتصغير الشاشة

ضع SplitContainer1 في الفورم ثم اجعل المشغل يعمل به
وضيف هذا الكود في مكان فارغ

كود :

   Public Sub GoFullScreen()
       MyBase.WindowState = FormWindowState.Maximized
       Me.SplitContainer1.Panel1Collapsed = True
       Me.splitContainer1.Dock = DockStyle.Fill
     
   End Sub
   Public Sub GoNormalScreen()
       MyBase.WindowState = FormWindowState.Normal
       Me.SplitContainer1.Panel1Collapsed = False
       Me.splitContainer1.Dock = DockStyle.Bottom
       
   End Sub

ثم ضغ button واضيف هذا الكود به

كود :

       If Me.SplitContainer1.Panel2Collapsed Then
           Me.GoNormalScreen()
           Return
       End If
       Me.GoFullScreen()