[MOSTAFA.KAMEL]

(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

 حضرتك مقاس الGroupBox1 عندى Width = 240  Height = 754  انا عايز لما اضغط يفتح على المقاس ده ولما يقفل يفتح الPoint على المقاس ده  Width = 1387 Height = 756