
' 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....