Estoy construyéndome otra base de datos, en OpenOffice Base, casi todo el trabajo está realizado en Macros.
Se trata de una herramienta para elaborar Planing de trabajo. Rellenas el trabajo que realizas, se almacena y ofrece unos cálculos.
A la hora se rellenar el planing de un usuario mensual no hay problema, este es el aspecto:
La entrada de datos se realiza al clickar en controles label y rellenar un Dialogo que aparece.
El problema viene con el nuevo formulario que estoy realizando. Ahora quiero que me aparezca todo el planing mensual de todos los usuarios en el formulario, imaginar algo así:
Yo quisiera que al hacer click en la barra de scroll, se movieran los controles Label. Pero no lo he conseguido, he probado:
Código: Seleccionar todo
Sub Scroll(oEvent as object)
dim oForm as object, oScroll as object
oScroll=oEvent.source.model
oForm=oScroll.parent
dim mLabel as object, oLabel as object
dim x as long, y as long', width as long, height as long
'y=oLabel.getPosSize.y
dim contador as long
for contador=1 to 7
mLabel=oForm.getbyname("d"+cStr(contador))
oLabel=ThisComponent.getCurrentController().GetControl(mLabel)
y=oLabel.getPosSize.y
oFigura=SeleccionaFigura("s"+cstr(contador),oForm)
if oScroll.ScrollValue>contador then
x=50
Point.x=0
else
x=200+(50*(contador-oScroll.ScrollValue))
Point.x=5200+(1500*(contador-oScroll.ScrollValue))
endif
oLabel.setVisible(False)
oLabel.setPosSize(x,y,,,com.sun.star.awt.PosSize.POSSIZE)
oLabel.setVisible(true)
next
Nota: El GridControl de los formulario no me sirve, por la forma en la que quiero mostrar los datos. Incluso el grid de los dialogos también me vendría corto, porque es mucha la información (estática en un lateral) que quiero mostrar en cada fila.
¿ Alguien sabe alguna forma de mover un control label en el formulario?