+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: General (https://gambas-es.org/forum-4.html)
+--- Tema: TabStrip y TabPanel (/thread-1012.html)
TabStrip y TabPanel - Shell - 02-09-2022
Buenas!.
Después de una respuesta de Shordi, que a el le gusta más TabPanel que TabStrip, estuve haciendo un ejemplo
con los dos controles y es que aunque son parecidos no funcionan igual y en algunas de sus propiedades difieren.
Por ejemplo:
- En TabStrip al usar la propiedad Count, le decimos cuantas pestañas queremos que contenga y ademas nos la puede mostrar al ejecutar.
- En TabPanel no las muestra directamente al ejecutar.
Código:
Const NUMP As Integer = 5
Public Sub Form_Open()
TabPanel1.Count = NUMP
TabStrip1.Count = NUMP
'Rellenar(TabStrip1)
'Rellenar(TabPanel1)
End
Public Sub Rellenar(uncontrol As Object)
Dim n As Integer
For n = 0 To NUMP - 1
uncontrol[n].Text = n + 1
Next
End![[Imagen: hfl9EkC.png]](https://i.imgur.com/hfl9EkC.png)
- En TabStrip podemos usar para nombrar las pestaña, la propiedad Caption o Text
- En TabPanel solo podemos usar la propiedad Text.
En el caso de este ejemplo tuve que centrarme en la propiedad que ambos tienen. Text.
Código:
Const NUMP As Integer = 5
Public Sub Form_Open()
TabPanel1.Count = NUMP
TabStrip1.Count = NUMP
Rellenar(TabStrip1)
Rellenar(TabPanel1)
End
Public Sub Rellenar(uncontrol As Object)
Dim n As Integer
For n = 0 To NUMP - 1
uncontrol[n].Text = n + 1
Next
End![[Imagen: j9Qwp6Y.png]](https://i.imgur.com/j9Qwp6Y.png)
Fijaros ademas como se queda el foco en ambos controles.
Más observaciones que podáis destacar.
Saludos