[ali.alfoly]

السلام عليكمورحمة الله
عند صناعة اداة جديدة اريد ان اعرف الفورم الذي تم وضع الاداة عليه لاقوم بعمل تغيرات به
عند صناعة UserControl كنت استخدم ParentForm
انما لو انا بعمل كمبو بوكس مثلا لم اجد ParentForm
وجزاكم الله خيرا

---

قمة الاستعباط ومحدش يضحك عليا

كود :

Public Class Class1

    Inherits ComboBox

    Private _ParentForm As Form
    Public Property ParentForm() As Form
        Get
            Return _ParentForm
        End Get
        Set(ByVal value As Form)
            _ParentForm = value
        End Set
    End Property


    Public WithEvents dd As New UserControl

    Public Sub New()
        With dd
            .Visible = False
            .Size = New Size(0, 0)
            .Show()
        End With
        Me.Controls.Add(dd)
    End Sub

    Private Sub dd_Load(sender As Object, e As EventArgs) Handles dd.Load
        Me.ParentForm = dd.ParentForm
    End Sub

End Class

---

الموضع كده بقي حكاية

كود :

Public Class Class1

    Inherits ComboBox

    Private _ParentForm As Form
    ''' <summary>الفورم الذي تم وضع الاداة عليه</summary>
    Public Property ParentForm() As Form
        Get
            Return _ParentForm
        End Get
        Set(ByVal value As Form)
            _ParentForm = value
        End Set
    End Property


    Private WithEvents UserContro As New UserControl With {.Size = New Size(0, 0), .Visible = False}

    Public Sub New()
        UserContro.Show()
        Me.Controls.Add(UserContro)
    End Sub

    Private Sub UserContro_Load(sender As Object, e As EventArgs) Handles UserContro.Load
        Me.ParentForm = UserContro.ParentForm
    End Sub

End Class