02-12-13, 03:32 PM
(آخر تعديل لهذه المشاركة : 02-12-13, 03:57 PM {2} بواسطة ali.alfoly.)
السلام عليكمورحمة الله
عند صناعة اداة جديدة اريد ان اعرف الفورم الذي تم وضع الاداة عليه لاقوم بعمل تغيرات به
عند صناعة UserControl كنت استخدم ParentForm
انما لو انا بعمل كمبو بوكس مثلا لم اجد ParentForm
وجزاكم الله خيرا
قمة الاستعباط ومحدش يضحك عليا
الموضع كده بقي حكاية
عند صناعة اداة جديدة اريد ان اعرف الفورم الذي تم وضع الاداة عليه لاقوم بعمل تغيرات به
عند صناعة 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