منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] طلب كود بسيط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=21949)

طلب كود بسيط - MOSTAFA.KAMEL - 30-09-17

انا عامل صورة  PictureBox  عايز لما اضغط عليها يطلع من نحية اليمين الGroupBox1  وعند الضغط عليها  للقفل يكبر الPanel1 يعنى الى هيعمل الكود يكتب اى مقاس للPanel1 وانا هعدل بالمقاس الى عندى

عايز قائمة جانبية تظهر وتختفى عن طريق PictureBox 


RE: طلب كود بسيط - wale90 - 30-09-17

(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

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

RE: طلب كود بسيط - MOSTAFA.KAMEL - 30-09-17

(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

RE: طلب كود بسيط - MOSTAFA.KAMEL - 02-10-17

فين الاجابة بعد ازن الاعضاء