14-10-17, 12:57 AM
بعد ازن الاعضاء ممكن
اولا انا عامل PictureBox1_Click لما بضغط عليه يقفل الGroupBox1 ويكبر الPanel1 بجم الفروم بالكامل بس ولما اضغط تانى على PictureBox1_Click بيرجع الى نفس المقاسات تانى
موجود المشروع واقف على كتابة الكود انا عملت الكود ده ومفيش حل برضو
كود :
Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.Click
If but = False Then
but = True
GroupBox1.Location = New Point(0 - GroupBox1.Width, GroupBox1.Location.Y)
PictureBox1.Location = New Point(0, PictureBox1.Location.Y)
PictureBox1.Image = My.Resources._2
GeckoWebBrowser1.Size = New Size(GeckoWebBrowser1.Size.Width + 261, GeckoWebBrowser1.Size.Height)
GeckoWebBrowser1.Location = New Point(0, 24)
Else
but = False
GroupBox1.Location = New Point(0, 16)
PictureBox1.Location = New Point(254, PictureBox1.Location.Y)
PictureBox1.Image = My.Resources._1
GeckoWebBrowser1.Size = New Size(GeckoWebBrowser1.Size.Width - 261, GeckoWebBrowser1.Size.Height)
GeckoWebBrowser1.Location = New Point(261, 24)
End If
End Sub