Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 2
Ir a la página 1, 2  Siguiente
 
TabStrip, Eliminacion De Pestañas
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje TabStrip, Eliminacion De Pestañas 
 
Alguien nos puede indicar como se puede eliminar una pestaña de un TabStrip.
Gracias de antemano
 



 
fjvidals - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TabStrip, Eliminacion De Pestañas 
 
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.

PUBLIC SUB Button1_Click()

  TabStrip1.Count = TabStrip1.Count + 1

END

PUBLIC SUB Button2_Click()

  TabStrip1.Current.Delete()

END
 


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

Saludos!
 



 
razaAztk - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuarioVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TabStrip, Eliminacion De Pestañas 
 
Bien. Recuerda que antes tienes que eliminar todo lo que esa pestaña contiene, o dará un error.
 



 
 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TabStrip, Eliminacion De Pestañas 
 
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 - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TabStrip, Eliminacion De Pestañas 
 
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 - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TabStrip, Eliminacion De Pestañas 
 
tincho escribió:  

TuTabStrip[x].Childern.Clear


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

Se podría hacer algo asì:

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)
 



 
última edición por whisper el Martes, 14 Noviembre 2017, 20:04; editado 2 veces 
whisper - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TabStrip, Eliminacion De Pestañas 
 
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ì:

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



 
Ricardo Prieto - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TabStrip, Eliminacion De Pestañas 
 
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


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

 




===================
No podemos regresar
 
última edición por shordi el Miercoles, 15 Noviembre 2017, 20:56; editado 1 vez 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TabStrip, Eliminacion De Pestañas 
 
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


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
 



 
Ricardo Prieto - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TabStrip, Eliminacion De Pestañas 
 
"Me produce un error" no significa nada. Sube un proyecto donde se reproduzca el error y te podremos ayudar.

Saludos
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes PictureBox En Pestañas De Un TabStrip En ... karpaga Controles/Librerías/Componentes 7 Viernes, 19 Octobre 2012, 20:06 Ver último mensaje
Shell
No hay nuevos mensajes ¿Pestañas Con Boton Cerrar? yyeshua General 3 Lunes, 12 Octobre 2009, 21:38 Ver último mensaje
soplo
No hay nuevos mensajes Cerrar Pestañas En Tabstrip Ricardo Prieto General 3 Martes, 14 Noviembre 2017, 12:00 Ver último mensaje
shordi
No hay nuevos mensajes TabStrip O TabPanel Shell Controles/Librerías/Componentes 4 Martes, 08 Octobre 2013, 06:31 Ver último mensaje
jousseph
 

Publicar nuevo tema  Responder al tema  Página 1 de 2
Ir a la página 1, 2  Siguiente

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario