Imprimir página | Cerrar ventana

Posicionar un grupo de opciones

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86350
Fecha de impresión: 27/Marzo/2026 a las 04:08


Tema: Posicionar un grupo de opciones
Publicado por: Nomada
Asunto: Posicionar un grupo de opciones
Fecha de publicación: 21/Mayo/2022 a las 17:00
Buenas.
Estoy intentando posicionar un grupo de opciones (Grupo1) con el siguiente código:
Me.Grupo1.Top = 0

pero lo que hace es modificar su tamaño.
Yo deseo mover el grupo completo con todas sus casillas.

También he intentado con el método Move, pero hace lo mismo, me modifica el tamaño desde su posición actual.

Hay alguna forma de colocar el grupo de opciones donde desee, además de modificar el tamaño?

Gracias y un saludo.

 




Respuestas:
Publicado por: xavi
Fecha de publicación: 22/Mayo/2022 a las 11:06
Al tratarse de un grupo de opciones se trata de un grupo de controles por lo que deberás moverlos todos. No lo he hecho nunca por código pero de tener que hacerlo, lo plantearía así (a grosso modo)

1. Almacenar el Height del grupo
2. Almacenar la diferencia de Top de cada opción con respecto al Top del grupo
3. Posicionar el Top del grupo a la altura desea
4. Posicionar las opciones con la diferencia obtenida en 2
5. Posicionar las etiquetas (tanto de grupo como de opción)
6. Reducir el Height del grupo al valor obtenido en el punto 1

Si yo tuviera que hacerlo, y viendo que es un poco laborioso, dedicaría un poco más de tiempo a diseñar una función que tomara el formulario, el control y la altura deseada de forma que la misma función me sirviera para cualquier otro momento y grupo de opciones en cualquier aplicación.

Un saludo


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: Nomada
Fecha de publicación: 02/Septiembre/2023 a las 12:20
Gracias.
Este hilo se puede cerrar satisfactoriamente.



Imprimir página | Cerrar ventana