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

بسم الله الرحمن الرحيم

السلم عليكم ورحمة الله تعالى وبركاته

اريد اضافة فورم داخل الفورم الرئيسي لكن داخل ادات البنل

وشكرا لكم

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 

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

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

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

bidaya

silverlight

bidaya

العواد الصغير

silverlight