31
Programmazione (Gambas 2) / Re: Creare oggetti che ereditano da altri oggetti
« il: 24 Agosto 2009, 21:04:44 »
PUBLIC SUB Button1_Click()
DIM hControl AS TextArea
TabStrip1.Count = TabStrip1.Count + 1
TabStrip1[TabStrip1.Count - 1].Caption = "Tab" & (TabStrip1.Count - 1)
TabStrip1.Index = TabStrip1.Count - 1
hControl = NEW TextArea(TabStrip1)
END
poi con move lo posizioni e gli dai le dimensioni volute.
DIM hControl AS TextArea
TabStrip1.Count = TabStrip1.Count + 1
TabStrip1[TabStrip1.Count - 1].Caption = "Tab" & (TabStrip1.Count - 1)
TabStrip1.Index = TabStrip1.Count - 1
hControl = NEW TextArea(TabStrip1)
END
poi con move lo posizioni e gli dai le dimensioni volute.