Visual Basic.NET - Clonar un control

   
Vista:

Clonar un control

Publicado por miraloyvete (39 intervenciones) el 22/06/2011 19:28:21
Hola,

Necesito clonar un botón por código, es decir si existe algun método para que al hacer una acción me añada un botón o cualquier control con las mismas propiedades de uno que ya he colocado en el form en diseño, es decir el mismo tamaño, la misma imagen, etc......

Muchísimas gracias,
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Clonar un control

Publicado por Diego (81 intervenciones) el 23/06/2011 13:58:56
Este es el codigo para clonar un boton llamado BtnClonar en un formuario. espero que te sirva el ejemplo, adapta el codigo para tus necesidades
__________________________________________________________

'Recorremos los controles hasta encontrar el que queremos clonar
For Each Objeto As Object In Me.Controls
If Objeto.GetType.ToString = "System.Windows.Forms.Button" Then
BotonOriginal = Objeto

If BotonOriginal.Name = "BtnClonar" Then

'Declaramos el tipo del cotrol a crear
Dim BotonCrear As New System.Windows.Forms.Button

'copiamos las propiedades que deseemos ...
BotonCrear.Name = "Copia"
BotonCrear.Size = BotonOriginal.Size
BotonCrear.Text = BotonOriginal.Text
BotonCrear.TextAlign = BotonOriginal.TextAlign

Dim posicion As New Point
posicion.X = BotonOriginal.Location.X + 60
posicion.Y = BotonOriginal.Location.Y + 60
BotonCrear.Location = posicion
'.........
'.........

'Añadimos el control al formulario
Me.Controls.Add(BotonCrear)
End If

End If
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Clonar un control

Publicado por Diego (81 intervenciones) el 23/06/2011 14:00:02
Dim BotonOriginal As New System.Windows.Forms.Button

'Recorremos los controles hasta encontrar el que queremos clonar
For Each Objeto As Object In Me.Controls
If Objeto.GetType.ToString = "System.Windows.Forms.Button" Then
BotonOriginal = Objeto

If BotonOriginal.Name = "BtnClonar" Then

'Declaramos el tipo del cotrol a crear
Dim BotonCrear As New System.Windows.Forms.Button

'copiamos las propiedades que deseemos ...
BotonCrear.Name = "Copia"
BotonCrear.Size = BotonOriginal.Size
BotonCrear.Text = BotonOriginal.Text
BotonCrear.TextAlign = BotonOriginal.TextAlign

Dim posicion As New Point
posicion.X = BotonOriginal.Location.X + 60
posicion.Y = BotonOriginal.Location.Y + 60
BotonCrear.Location = posicion
'.........
'.........

'Añadimos el control al formulario
Me.Controls.Add(BotonCrear)
End If

End If
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Clonar un control

Publicado por miraloyvete (39 intervenciones) el 27/06/2011 12:06:45
Muchas gracias, me ha ayudado un montón.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar