منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية إضافة فورم داخل بانل في الفورم الرئيسي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية إضافة فورم داخل بانل في الفورم الرئيسي (/showthread.php?tid=17727)

كيفية إضافة فورم داخل بانل في الفورم الرئيسي - bidaya - 20-10-16

بسم الله الرحمن الرحيم
السلم عليكم ورحمة الله تعالى وبركاته
اريد اضافة فورم داخل الفورم الرئيسي لكن داخل ادات البنل 
وشكرا لكم


RE: كيفية إضافة فورم داخل بانل في الفورم الرئيسي - silverlight - 20-10-16

PHP كود :
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Panel1.AutoScroll = True
        Dim frm2 As Form = New Form2

        AddHandler frm2.LocationChanged, Sub(obj As Object, objArgs As EventArgs)
                                             Dim f As Form = CType(obj, Form)
                                             Me.Panel1.SetAutoScrollMargin(f.Location.X, f.Location.Y)
                                         End Sub

        AddHandler frm2.SizeChanged, Sub(obj As Object, objArgs As EventArgs)
                                         Dim f As Form = CType(obj, Form)
                                         If f.Size.Width > Me.Panel1.Size.Width Or f.Size.Height > Me.Panel1.Size.Height Then
                                             Me.Panel1.SetAutoScrollMargin(Panel1.Size.Width - Panel1.Size.Width, f.Size.Height - Me.Size.Height)
                                         Else
                                             Me.Panel1.SetAutoScrollMargin(0, 0)
                                         End If
                                     End Sub
        frm2.TopLevel = False
        Me.Panel1.Controls.Add(frm2)
        If frm2.Size.Width > Me.Panel1.Size.Width Or frm2.Size.Height > Me.Panel1.Size.Height Then
            Me.SetAutoScrollMargin(frm2.Size.Width - Me.Panel1.Size.Width, frm2.Size.Height - Me.Panel1.Size.Height)
        End If
        frm2.Show()
    End Sub 


RE: كيفية إضافة فورم داخل بانل في الفورم الرئيسي - bidaya - 20-10-16

شكرا لك اخي على الكود الجميل
اشتغل 100/100

RE: كيفية إضافة فورم داخل بانل في الفورم الرئيسي - العواد الصغير - 21-10-16

هذا الكود لا يعمل بالفيجوال 2008  يعمل بالفيجوال 2015 
هل من طريقة ليعمل بالفيجوال 2008

RE: كيفية إضافة فورم داخل بانل في الفورم الرئيسي - silverlight - 21-10-16

PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Panel1.AutoScroll = True
        Dim frm2 As Form = New Form2

        AddHandler frm2.LocationChanged, AddressOf Me.Form2_LocationChanged
        AddHandler frm2.SizeChanged, AddressOf Me.Form2_SizeChanged

        frm2.TopLevel = False
        Me.Panel1.Controls.Add(frm2)
        If frm2.Size.Width > Me.Panel1.Size.Width Or frm2.Size.Height > Me.Panel1.Size.Height Then
            Me.SetAutoScrollMargin(frm2.Size.Width - Me.Panel1.Size.Width, frm2.Size.Height - Me.Panel1.Size.Height)
        End If
        frm2.Show()
    End Sub

    Private Sub Form2_LocationChanged(obj As Object, e As EventArgs)
        Dim f As Form = CType(obj, Form)
        Me.Panel1.SetAutoScrollMargin(f.Location.X, f.Location.Y)
    End Sub

    Private Sub Form2_SizeChanged(obj As Object, e As EventArgs)
        Dim f As Form = CType(obj, Form)
        If f.Size.Width > Me.Panel1.Size.Width Or f.Size.Height > Me.Panel1.Size.Height Then
            Me.Panel1.SetAutoScrollMargin(Panel1.Size.Width - Panel1.Size.Width, f.Size.Height - Me.Size.Height)
        Else
            Me.Panel1.SetAutoScrollMargin(0, 0)
        End If
    End Sub