Alguien nos puede indicar como se puede eliminar una pestaña de un TabStrip.
Gracias de antemano

A ver........... para este ejemplo, tenemos un TabStrip llamado TabStrip1, dos botones los cuales serán Button1 y Button2. El primer botón es para agregar pestañas y el otro para eliminarlas.



je, que código tan grande.
Lo importante es el TabStrip1.Current.Delete()

Saludos!

Bien. Recuerda que antes tienes que eliminar todo lo que esa pestaña contiene, o dará un error.

Ayortano escribió: [Ver mensaje]

Bien. Recuerda que antes tienes que eliminar todo lo que esa pestaña contiene, o dará un error.

Ese es el tema puesto que yo genero los controles dinamicamente es decir cunado le doy a incrementer una pestaña, me crea los controles que contiene cada pestaña.

Por eso me gustaria saber si alguien de uds. pudo crear una funcion para ese efecto.
Gracias...

Ricardo Prieto escribió: [Ver mensaje]

Ayortano escribió: [Ver mensaje]

Bien. Recuerda que antes tienes que eliminar todo lo que esa pestaña contiene, o dará un error.

Ese es el tema puesto que yo genero los controles dinamicamente es decir cunado le doy a incrementer una pestaña, me crea los controles que contiene cada pestaña.

Por eso me gustaria saber si alguien de uds. pudo crear una funcion para ese efecto.
Gracias...

TuTabStrip[x].Childern.Clear

Donde x es el numero de pestaña

Saludos

tincho escribió: [Ver mensaje]

TuTabStrip[x].Childern.Clear

tincho, ese codigo da error ya que "tabstrip[x].Children.Clear" no existe.

Se podría hacer algo asì:



...teniendo en cuenta que un TabStrip no puede tener la propiedad count en 0. Lo que se puede hacer en ese caso (count=1) es eliminar el TabStrip, pero eso ya depende de lo que quieras hacer en tu aplicaciòn.

Edito: Aclaraciòn, este codigo borra el seleccionado actualmente (TabStrip1.Current.Delete)

whisper escribió: [Ver mensaje]

tincho escribió: [Ver mensaje]

TuTabStrip[x].Childern.Clear

tincho, ese codigo da error ya que "tabstrip[x].Children.Clear" no existe.

Se podría hacer algo asì:

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

Public Sub Button2_Click()

  Dim uncontrol As Object

  For Each uncontrol In tabStrip1.Current.Children
    uncontrol.delete
  Next

  If tabStrip1.Count > 1 Then tabStrip1.Current.Delete

End

...teniendo en cuenta que un TabStrip no puede tener la propiedad count en 0. Lo que se puede hacer en ese caso (count=1) es eliminar el TabStrip, pero eso ya depende de lo que quieras hacer en tu aplicaciòn.

Edito: Aclaraciòn, este codigo borra el seleccionado actualmente (TabStrip1.Current.Delete)

Hola whisper ese codigo da error..

Inentento esto:

Public Function CerrarVentana(Indx As Integer)
 
  Dim F As Integer


  If Indx > 0 Then
 
  
   For F = 0 To Tab.Children.Count - 1
      Tab.Current.Children[0].Delete
    Next
  
     Tab[Indx].Delete
  Endif

End

Pero me sigue dando error..
Si alguien tiene otra solución les agradeceria..

Prueba ésto. Es una función que te borra la pestaña que quieras del tabstrip que quieras. Solo tienes que pasarle el tabstrip y el número de pestaña que quieres borrar

===================
No podemos regresar

shordi escribió: [Ver mensaje]

Prueba ésto. Es una función que te borra la pestaña que quieras del tabstrip que quieras. Solo tienes que pasarle el tabstrip y el número de pestaña que quieres borrar

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

public sub borrapestania(Tab as tabstrip, numero as integer)

Dim o As Object

For Each o In Tab[numero].Children
    o.delete
Next
Tab[numero].Delete
return

Mira creo lo que va a contener el tabsrip de esta manera:

Public Sub NuevaPestaña()
 
 
  Tab[Tab.Index].Text = "Factura " & Tab.Count
  Tab.Index = Tab.Count - 1
  
  With LbCliente = New Label(Tab) As "LbCliente"
  .H = 21
  .W = 105
  .x = 14
  .y = 7
  .Border = 2
  End With

  With LbDireccion = New Label(Tab) As "LbDireccion"
  .H = 21
  .W = 105
  .x = 14
  .y = 42
  .Border = 2
  End With

  With LbLocalidad = New Label(Tab) As "LbLocalidad"
  .H = 21
  .W = 105
  .x = 343
  .y = 42
  .Border = 2
  End With

  With LbCuit = New Label(Tab) As "LbCuit"
  .H = 21
  .W = 105
  .x = 343
  .y = 7
  .Border = 2
  End With
  
  With LbTipo = New Label(Tab) As "LbTipo"
  .H = 21
  .W = 105
  .x = 532
  .y = 7
  .Border = 2
  End With

  With DatFecha = New DateBox(Tab) As "DatFecha"
  .H = 28
  .W = 119
  .x = 721
  .y = 7
  End With
  
  With mbClientes = New MenuButton(Tab) As "mbClientes"
    .H = 25
    .W = 40
    .X = 287
    .y = 4
    .Picture = Picture["icon:/medium/find"]
  End With
  
  
  With tblPlanilla = New TableView(Tab) As "tblPlanilla"
  .H = 406
  .W = 840
  .Y = 7
  .X = 7
  .Border = 2
  End With

  With lbsubtotal = New Label(Tab) As "lbsubtotal"
    .H = 28
    .W = 231
    .X = 7
    .y = 420
    .Font = Font["Bold, +3"]
    .Text = "Sub Total"
  End With

  With lbimpuesto = New Label(Tab) As "lbimpuesto"
    .H = 28
    .W = 154
    .X = 485
    .y = 420
    .Font = Font["Bold, +3"]
    .Text = "Impuesto"
  End With

  With lbtotal = New Label(Tab) As "lbtotal"
    .H = 28
    .W = 210
    .X = 637
    .y = 420
    .Font = Font["Bold, +3"]
    .Text = "Total > "
  End With
  
End

Lo eliminao de esta manera:

Public Function CerrarVentana(Indx As Integer)
  Dim obj As Object
  Dim F As Integer

  If Indx > 0 Then

   For Each obj In Tab[Indx].Children
     obj.Delete
   Next

   Tab[Indx].Delete
  
Endif

End

Igualmente me produce un error..
Si puede uds. verificarlo y diganme que les ocurre..
Gracias

"Me produce un error" no significa nada. Sube un proyecto donde se reproduzca el error y te podremos ayudar.

Saludos

===================
No podemos regresar