none
Clonar un Objeto (Button, PicutreBox, y MetroTileItem) RRS feed

  • Pregunta

  • Me podrían ayudar a crear un clonación, he estado probando varios códigos pero no consigo encontrar el correcto, Les agradezco ante mano su ayuda., este es uno de los códigos que he probado y el que a mi parecer es mejor pero no está bien porque no me lo clona.

      Dim itemoriginal As New DevComponents.DotNetBar.Metro.MetroTileItem

            'Recorro los controles hasta encontrar el que queremos clonar
            For Each Objeto As Object In Me.Controls
                If Objeto.GetType.ToString = "DeVComponents.DotnetBar.Metro.MetroTileItem" Then
                    itemoriginal = Objeto

                    If itemoriginal.Name = "Item1" Then

                        'Declaro el tipo del cotrol a crear
                        Dim itemnuevo As New DevComponents.DotNetBar.Metro.MetroTileItem
                        'copio las pro
                        With itemnuevo
                            .Name = itemoriginal.Name
                            .Size = itemoriginal.Size
                            .TileStyle.BackgroundImage = itemoriginal.TileStyle.BackgroundImage

                        End With


                        'Añado el control al formulario
                        Favoritos.MetroTilePanel1.Items.Add(itemnuevo)

                    End If

                End If
            Next

    lunes, 20 de julio de 2015 7:12

Respuestas

  • Hola Al3x007, puedes utilizar esta línea de código para clonar tu objeto:

    Dim temp As DevComponents.DotNetBar.Metro.MetroTileItem = DirectCast(itemoriginal.Clone(), DevComponents.DotNetBar.Metro.MetroTileItem)
    Espero resulte útil.

    Saludos.


    Christian Amado
    Software Engineer | MCPD: Windows Phone Developer | MCTS: Silverlight Developer
    Don't forget to mark the right answer and vote up if helps you.
    MCP Profile
    My code samples

    lunes, 20 de julio de 2015 13:04