+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ممكن طلب بسيط (/showthread.php?tid=22105)
ممكن طلب بسيط - MOSTAFA.KAMEL - 14-10-17
بعد ازن الاعضاء ممكن
اولا انا عامل 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 SubRE: ممكن طلب بسيط - MOSTAFA.KAMEL - 14-10-17
محدش عارف يحل الموضوع؟
RE: ممكن طلب بسيط - حريف برمجة - 14-10-17
حمل المرفق
RE: ممكن طلب بسيط - MOSTAFA.KAMEL - 14-10-17
تسلم يابشا
RE: ممكن طلب بسيط - حريف برمجة - 14-10-17
بالتوفيق للجميع .