Añadir propiedades a controles de winforms
Hola a todos, algunas veces hachemos en falta algún automatismo o propiedad en los controles si este es tu caso , aquí puedes ver como realizarlo en unos pasos muy simples.
Primero el video explicando como se realiza y a continuación el código del ejemplo paso a paso.
Para ello lo que haremos sera crear una clase parcial y heredaremos el control principal,añadiremos la o las propiedades que queramos, funciones…. y compilaremos. (aquí esta dentro del Form1 como se indica en el video
|
1 2 3 4 5 6 7 8 9 |
Partial Public Class LabelSM : Inherits System.Windows.Forms.Label Public Property TextoSecundario As String Public Sub New() End Sub Public Function GuardarDato(ByVal str As String) TextoSecundario = str End Function End Class |
A continuación lo que haremos sera reescribir el código del diseñador para que recoja la clase que hemos creado y añada la propiedad.(esta es la parte del diseñador… solo pongo lo modificado)
|
1 2 3 4 5 6 7 8 9 10 |
... ... Private Sub InitializeComponent() Me.Label1 = New WindowsApp28.Form1.LabelSM() .... .... .... End Sub Friend WithEvents Label1 As Form1.LabelSM |
NOTA: Si no compilaste te dará fallo el diseñador y tendrás que volver a pintar el control.
y Listo ya tenemos el label personalizado con la propiedad nueva. Lo puedes realizar con cualquier control de winforms ya sea el Label, Button,RadioButton,Dropdown…. lo que quieras.
Este ejemplo esta hecho en la misma librería pero lo puedes hacer en una dll aparte. esto te permitirá añadir el control a el panel del controles.
y aquí te dejo el código del ejemplo del video con la función y todo.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Public Class Form1 Partial Public Class LabelSM : Inherits System.Windows.Forms.Label Public Property TextoSecundario As String Public Sub New() End Sub Public Function GuardarDato(ByVal str As String) TextoSecundario = str End Function End Class Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click MsgBox("Antes" & Me.Label1.TextoSecundario & vbCrLf & "Ahora:" & Me.TextBox1.Text) Me.Label1.GuardarDato(Me.TextBox1.Text) End Sub End Class |