' Crea una nueva Tab para alojar un nuevo grafico
Public Function NewTabForDrawing(sName As String) As Boolean
Dim idx As Integer
Me.tabDrawings.Count += 1 'Agrego un nuevo Tab
idx = Me.tabDrawings.Count - 1 'Obtengo el nuevo indice
Me.tabDrawings[idx].Text = sName
Me.tabDrawings[idx].Expand = True
Me.tabDrawings.Index = idx
Dim tabFileNew As New TabPanel(Me.tabDrawings[idx]) ' Agrego un tab al tab
tabFileNew.Count = 2 'Dos pestañas
tabFileNew.Expand = True ' Preparo para que se acomode
tabFileNew.Arrangement = Arrange.Fill
tabFileNew.Orientation = Align.Bottom
tabFileNew[0].Text = "Model"
tabFileNew[1].Text = "Paper"
Dim glaFile As New GLArea(tabFileNew[0]) 'Le inserto una GLArea
glaFile.Expand = True
glaFile.Tracking = True
Object.Attach(glaFile, Me, "GLArea1") 'Observo los eventos con ese nombre, ej GLArea1_Draw
Me.Refresh
Return True
End
(19-07-2022, 00:52)tercoide escribió: voy a abrir un archivo, entoces tengo que agregar una TabStrip al lado de Drawing1, y meter otra TabStrip (o TabPanel) tal como esta ahi, con un control GLArea metido. Se puede hacer? Supongamos que el user intentara abrir muchos archivos....