...insomma tu chiedi una cosa come questa ?
(Sul Form poniamo un "TextBox" e un "ValueBox")
Private ob As Object
Public Sub Form_Open()
TabStrip1.Current.Caption = 1
Object.Attach(TextBox1, Me, "Figlio")
Object.Attach(ValueBox1, Me, "Figlio")
End
Public Sub Button1_Click()
Dim b As Byte
Dim oo As New Object[]
' Memorizziamo il numero di "Figli" presenti nella prima scheda della "TabStrip":'
For b = 0 To TabStrip1.Children.Count - 1
oo.Push(TabStrip1.Children[b])
Next
With TabStrip1
' Aggiungiamo una linguetta:'
.Count = TabStrip1.Count + 1
' Ci poniamo sulla linguetta appena aggiunta...:'
.Index = .Count - 1
' ...e la intestiamo:'
.Text = CStr(.Count)
End With
' Creiamo gli esatti Oggetti presenti nella prima scheda della "Tabstrip",
' e li poniamo alle medesime coordinate sulla nuova scheda:
For b = 0 To oo.Max
With ob = Object.New(Object.Type(oo[b]), [TabStrip1])
.X = oo[b].X
.Y = oo[b].Y
.W = oo[b].W
.H = oo[b].H
.Name = Object.Type(oo[b]) & TabStrip1.Current.Caption
End With
' Attribuiamo al nuovo Oggetto un Gruppo per gli Eventi:'
Object.Attach(ob, Me, "Figlio")
Next
End
Public Sub Figlio_Enter() ' Proviamo un Evento qualsiasi...'
Print Last.Name
End