Creo un nuovo programmino di sana pianta per esercitarmi...
Costruisco una classe che eredita da Label:
Class classe Inherits Label Sub New() BackColor = Color.Red End Sub Sub New(ByVal stringa As String) BackColor = Color.Cyan End Sub End ClassQuesta classe possiede due costruttori (overloading dei costruttori, ricordiamo dal C++): uno senza parametri, che dà alla casella un colore rosso, e uno con un parametro stringa che dà alla casella un colore celeste.
Istanzio la classe con i due costruttori e aggiungo i controlli al Form, con una diversa proprietà left perchè non si sovrappongano:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim cl As Object cl = New classe() Me.Controls.Add(cl) cl.left = 0 cl = New classe("uh") Me.Controls.Add(cl) cl.left = 300 End SubFunziona perfettamente: ottengo due etichette una di colore rosso a left=0 e una di color celeste a left=300. E finora, bene. Non ho usato alcuna funzione template...
Nessun commento:
Posta un commento