تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب كود بسيط
#1
انا عامل صورة  PictureBox  عايز لما اضغط عليها يطلع من نحية اليمين الGroupBox1  وعند الضغط عليها  للقفل يكبر الPanel1 يعنى الى هيعمل الكود يكتب اى مقاس للPanel1 وانا هعدل بالمقاس الى عندى

عايز قائمة جانبية تظهر وتختفى عن طريق PictureBox 
الرد }}}
تم الشكر بواسطة:
#2
(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 وانا هعدل بالمقاس الى عندى
؟؟؟؟

إقتباس :اذا  أردت المساعدة من أي أحد لا تضع له مشروع فارغ
الرد }}}
تم الشكر بواسطة:
#3
(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
الرد }}}
تم الشكر بواسطة:
#4
فين الاجابة بعد ازن الاعضاء
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم