** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Redimensionar tabControl
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoRedimensionar tabControl

 Responder Responder
Autor
Mensaje
Erick Gamer Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 08/Mayo/2016
Localización: Mexico
Estado: Sin conexión
Puntos: 387
Enlace directo a este mensaje Tema: Redimensionar tabControl
    Enviado: 12/Mayo/2023 a las 21:09
Hola que tal de nuevo a todos,

Estoy trabajando con un Menu Lateral en Access, el cual por cierto esta quedando chulo, pero con lo que tengo problemas es con con el control Tab donde almacenare los controles que ocupe..

Como puedo redimensionar el control tab y su controles en el, en base al Menu Lateral es decir:

Si mi ControlBox0= 3600 (Ancho)
Entonces
Redimensionar el ControlTab a 16000 (Ancho),
Caso contrario
Redimensionar el ControlTab a 22000 (Ancho,

Tengo esto en mi Load del formulario pero no me esta ajustando el ControlTab.

Private Sub Form_Load()

Box0.Width = 3600
For i = 0 To 4
    Me("btn" & i).Width = 3600
    Me("btn" & i).PictureCaptionArrangement = acBottom
    Next
    Forms("Copy Of Menuf").Controls("TabCtl").TabFixedWidth = 16000
    Debug.Print "Tab Widht:" & TabCtl.Pages(1).Width
    Debug.Print "Tab Height:" & TabCtl.Height

    
End Sub

NOTA: Al ajustar el ControlTab tambien ajustar los controles dentro de el.

Alguna idea de lo que estoy haciendo mal?

Agrego un par de imagenes.

Espero me puedan ayudar.

Erick Gamer.



Aprendiz de todos, maestro de nadie.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 12/Mayo/2023 a las 22:04
Primero tienes que cambiar el tamaño de todos los controles que contiene y situarlos, y después podrás redimensionar el control pestañas.
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
Erick Gamer Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 08/Mayo/2016
Localización: Mexico
Estado: Sin conexión
Puntos: 387
Enlace directo a este mensaje Enviado: 26/Mayo/2023 a las 16:38
Gracias, Mihura.

Encontre algunos ejemplos de lo que requiero, dejo el enlace:


Se puede cerrar el hilo.

Gracias.

Erick Gamer
Aprendiz de todos, maestro de nadie.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable