Shell 02-09-2022, 12:19
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]

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

Fijaros ademas como se queda el foco en ambos controles.

Más observaciones que podáis destacar.  Wink

Saludos
Archivos adjuntos
.gz
TabPanelTabStrip-0.0.1.tar.gz (Tamaño: 11.96 KB Descargas: 5)
tincho 02-09-2022, 10:43
Hola a todos.
Alguien podria decirme como ordenar una coleccion simple, donde el indice es un texto y el valor también.
Dejo un ejemplo con una coleccion similar, donde el indice es un año, y está ordenado de menor a mayor, luego el texto, que es lo que deseo ordenar de menor a mayor es un texto alfanumérico cualquiera.

Primer planteo de solucion
Código:
Public Function CSort(c As Collection) As Collection

  Dim aTmp As New String[]
  Dim cTemp As New Collection
  Dim sText As String

  For Each sText In c
    aTmp.Add(sText & "\t" & c.Key)
  Next

  aTmp.Sort(gb.Ascent)

  For Each sText In aTmp
    cTemp[Split(sText, "\t")[1]] = Split(sText, "\t")[0]
  Next

  Return cTemp

End

Pero la salida no contempla los caracteres diacríticos

...
1879: Uso de tarjetas perforadas para el senso
1938: Z1 - Computadora electromecánica
1941: Z3 - Primera máquina programable y completamente automática
1617: Ábaco neperiano
1854: Álgebra boleana
Archivos adjuntos
.gz
sample-sort-collection-0.0.1.tar.gz (Tamaño: 14.05 KB Descargas: 3)
alberto-moyano 01-09-2022, 22:54
Hola gente, la duda es la siguiente, estoy aplicando en los valores de Layout de un Splitter para la relación de tamaño de los paneles.

Código:
Splitter3.Layout = [2, 6]

Pero la relación se mantiene siempre en el redimensionamiento del formulario y lo que busco es que el panel izquierdo tenga un valor fijo en pixeles indistintamente del tamaño del formulario.

Hice algunas pruebas con las propiedades MinSize pero aplica a todo el Splitter.

Si alguien tiene idea de por donde van los tiros, se agradece.

Sls
Páginas (571):    1 281 282 283 284 285 571   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 306
Último miembro: Carles
Temas del foro: 1,761
Mensajes del foro: 9,151
Últimos temas
Problema con el repósito ...
Foro: Instalación
Último mensaje por: guizans, Hace 5 horas
Respuestas: 0 - Vistas: 19
UEFI y BIOS
Foro: Hardware & IoT
Último mensaje por: guizans, Hace 5 horas
Respuestas: 3 - Vistas: 2,255
Visual Studio Code con Ga...
Foro: General
Último mensaje por: guizans, 07-03-2026, 14:24
Respuestas: 2 - Vistas: 497
WebForm con mysql gridvie...
Foro: WebApp/WebForms
Último mensaje por: vjarvelo, 03-03-2026, 16:32
Respuestas: 2 - Vistas: 3,174
Sobre la proteccion del c...
Foro: General
Último mensaje por: Shordi, 19-02-2026, 11:07
Respuestas: 7 - Vistas: 1,029
Powered By MyBB, © 2002-2026 MyBB Group.
Made with by Curves UI.