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

(30-09-17, 08:03 PM)MOSTAFA.KAMEL كتب : [ -> ]عايز قائمة جانبية تظهر وتختفى عن طريق PictureBox

(30-09-17, 08:03 PM)MOSTAFA.KAMEL كتب : [ -> ]وعند الضغط عليها  للقفل يكبر الPanel1 يعنى الى هيعمل الكود يكتب اى مقاس للPanel1 وانا هعدل بالمقاس الى عندى

(30-09-17, 11:13 PM)wale90 كتب : [ -> ]

(30-09-17, 08:03 PM)MOSTAFA.KAMEL كتب : [ -> ]عايز قائمة جانبية تظهر وتختفى عن طريق PictureBox

كود :

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.GroupBox1.Dock = DockStyle.Right
       Me.GroupBox1.Enabled = False
       Me.GroupBox1.Width = 0
   End Sub


   Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
       If Me.GroupBox1.Width = 0 Then
           Me.GroupBox1.Enabled = True
           Me.GroupBox1.Width = 100
       Else
           Me.GroupBox1.Enabled = False
           Me.GroupBox1.Width = 0
       End If
   End Sub

End Class