[ali.alfoly]

السلام عليكم
عندي Label قمت بالتعديل علي خصائصه
واريد انشاء Label جديد بنفس الخصائص والالوان
Dim lbl As New Label

[a.ahmed]

PHP كود :

Dim lbl As New YourLabel
lbl.Parent = Me
lbl.Location = New Point(10, 10) 


PHP كود :

Class YourLabel
    Inherits Label

    Sub New()
        Me.BackColor = Color.Red
        Me.AutoSize = False
        Me.Size = New Size(100, 100)
        Me.BorderStyle = Windows.Forms.BorderStyle.FixedSingle
    End Sub

End Class 


[ali.alfoly]

شكرا لسرعة الرد
الـ Label الاصلي موجود علي الفورم
اريد نسخ كل خصائصة الي ليبل جديد

[a.ahmed]

PHP كود :

Dim lbl As Control = ControlFactory.CloneCtrl(Me.Label1)
lbl.Location = New Point(10, 10)
lbl.Parent = Me 


PHP كود :

Imports System.Windows.Forms
Imports System.Reflection
Imports System.Collections
Imports System.ComponentModel
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary

#Region "ControlFactory"
 ''' <summary>
 ''' Summary description for FormControlFactory.
 ''' </summary>
Public Class ControlFactory
    '
    ' TODO: Add constructor logic here
    '
    Public Sub New()
    End Sub

    Public Shared Function CreateControl(ByVal ctrlName As String, ByVal partialName As String) As Control
        Try
            Dim ctrl As Control
            Select Case ctrlName
                Case "Label"
                    ctrl = New Label()
                    Exit Select
                Case "TextBox"
                    ctrl = New TextBox()
                    Exit Select
                Case "PictureBox"
                    ctrl = New PictureBox()
                    Exit Select
                Case "ListView"
                    ctrl = New ListView()
                    Exit Select
                Case "ComboBox"
                    ctrl = New ComboBox()
                    Exit Select
                Case "Button"
                    ctrl = New Button()
                    Exit Select
                Case "CheckBox"
                    ctrl = New CheckBox()
                    Exit Select
                Case "MonthCalender"
                    ctrl = New MonthCalendar()
                    Exit Select
                Case "DateTimePicker"
                    ctrl = New DateTimePicker()
                    Exit Select
                Case Else
                    Dim controlAsm As Assembly = Assembly.Load(partialName)
                    Dim controlType As Type = controlAsm.[GetType](Convert.ToString(partialName & Convert.ToString(".")) & ctrlName)
                    ctrl = DirectCast(Activator.CreateInstance(controlType), Control)
                    Exit Select

            End Select

            Return ctrl
        Catch ex As Exception
            System.Diagnostics.Trace.WriteLine("create control failed:" + ex.Message)
            Return New Control()
        End Try
    End Function

    Public Shared Sub SetControlProperties(ByVal ctrl As Control, ByVal propertyList As Hashtable)
        Dim properties As PropertyDescriptorCollection = TypeDescriptor.GetProperties(ctrl)

        For Each myProperty As PropertyDescriptor In properties
            If propertyList.Contains(myProperty.Name) Then
                Dim obj As [Object] = propertyList(myProperty.Name)
                Try
                    myProperty.SetValue(ctrl, obj)
                Catch ex As Exception
                    'do nothing, just continue
                    System.Diagnostics.Trace.WriteLine(ex.Message)

                End Try

            End If
        Next

    End Sub

    Public Shared Function CloneCtrl(ByVal ctrl As Control) As Control

        Dim cbCtrl As New CBFormCtrl(ctrl)
        Dim newCtrl As Control = ControlFactory.CreateControl(cbCtrl.CtrlName, cbCtrl.PartialName)

        ControlFactory.SetControlProperties(newCtrl, cbCtrl.PropertyList)

        Return newCtrl
    End Function

    Public Shared Sub CopyCtrl2ClipBoard(ByVal ctrl As Control)
        Dim cbCtrl As New CBFormCtrl(ctrl)
        Dim ido As IDataObject = New DataObject()

        ido.SetData(CBFormCtrl.Format.Name, True, cbCtrl)
        Clipboard.SetDataObject(ido, False)

    End Sub

    Public Shared Function GetCtrlFromClipBoard() As Control
        Dim ctrl As New Control()

        Dim ido As IDataObject = Clipboard.GetDataObject()
        If ido.GetDataPresent(CBFormCtrl.Format.Name) Then
            Dim cbCtrl As CBFormCtrl = TryCast(ido.GetData(CBFormCtrl.Format.Name), CBFormCtrl)

            ctrl = ControlFactory.CreateControl(cbCtrl.CtrlName, cbCtrl.PartialName)

            ControlFactory.SetControlProperties(ctrl, cbCtrl.PropertyList)
        End If
        Return ctrl
    End Function


End Class

#End Region

#Region "Clipboard Support"
 ''' <summary>
 ''' Summary description for CBFormCtrl.
 ''' </summary>
<Serializable()> _
Public Class CBFormCtrl
    'clipboard form control
    Private Shared m_format As DataFormats.Format
    Private m_ctrlName As String
    Private m_partialName As String
    Private m_propertyList As New Hashtable()

    Shared Sub New()
        ' Registers a new data format with the windows Clipboard
        m_format = DataFormats.GetFormat(GetType(CBFormCtrl).FullName)
    End Sub

    Public Shared ReadOnly Property Format() As DataFormats.Format
        Get
            Return m_format
        End Get
    End Property
    Public Property CtrlName() As String
        Get
            Return m_ctrlName
        End Get
        Set(ByVal value As String)
            m_ctrlName = value
        End Set
    End Property

    Public Property PartialName() As String
        Get
            Return m_partialName
        End Get
        Set(ByVal value As String)
            m_partialName = value
        End Set
    End Property

    Public ReadOnly Property PropertyList() As Hashtable
        Get
            Return m_propertyList
        End Get
    End Property




    Public Sub New()
    End Sub

    Public Sub New(ByVal ctrl As Control)
        CtrlName = ctrl.[GetType]().Name
        PartialName = ctrl.[GetType]().[Namespace]

        Dim properties As PropertyDescriptorCollection = TypeDescriptor.GetProperties(ctrl)

        For Each myProperty As PropertyDescriptor In properties
            Try
                If myProperty.PropertyType.IsSerializable Then
                    m_propertyList.Add(myProperty.Name, myProperty.GetValue(ctrl))
                End If
            Catch ex As Exception
                'do nothing, just continue
                System.Diagnostics.Trace.WriteLine(ex.Message)

            End Try

        Next
    End Sub


End Class
#End Region 


[ali.alfoly]

جزاك الله خيرا انا ظنيت هناك دالة او خاصية موجودة لفعل ذلك ههههههههههه
طيب سؤالين مهمين واسف لتعبك معي
الاول : انا بحثت بجوجل كتير ولم اصل حتي لهذه النتيجة : كيف حصلت حدرتك عليها ما نص البحث للوصول لهذه النيجة؟
الثاني : هناك بعض الخصائص لا يتم نسخها او توريثها مثل كل خصائص الـ Border مثل اللون والحجم وذلك كان علي Button ؟

[a.ahmed]

PHP كود :

Public Sub ControlCopy(ByVal sourceControl, ByRef targetControl)
    Try
        For Each prop As System.Reflection.PropertyInfo In sourceControl.GetType().
            GetProperties().Where(Function(x) x.CanWrite And Not x.Name.Equals("WindowTarget"))
            CallByName(targetControl, prop.Name, Microsoft.VisualBasic.CallType.Set,
            CallByName(sourceControl, prop.Name, Microsoft.VisualBasic.CallType.Get, Nothing))
        Next
    Catch ex As Exception
        MsgBox("Can't copy", MsgBoxStyle.Exclamation)
    End Try
End Sub 


PHP كود :

Dim lbl As New Label
ControlCopy(Me.Label1, lbl)
lbl.Location = New Point(10, 10)
lbl.Parent = Me