Bueno..... lo más probable es que ésto que te voy a explicar no sea lo que estás preguntando pero es lo que yo entiendo que quieres saber....Por lo que parece quieres dimensionar una línea, dibujada con la herramienta del mismo nombre del IDE de VB6
Veamos, la línea tiene dos propiedades de dimensionado, llamadas X e Y, y ambas almacenan/devuelven dos valores de tipo Integer, que vienen siendo las coordenadas en el eje X e Y del principio y del final de la línea.
X1: Distancia desde la izquierda del principio de la línea
X2: Distancia desde la izquierda del final de la línea
Y1: Distancia desde arriba del principio de la línea
Y2: Distancia desde arriba del final de la línea
Lo puedes ver más claro si te fijas en esta imagen. Como ves, el principio de la línea tiene dos valores Integer y el final, lo mismo.
Vale, ahora que ya más o menos sabes como se posiciona una línea en el formulario, veamos como aumentar sus dimensiones
Para aumentar sus dimensiones "tirando" de ella hacia arriba, reduciremos la distancia (Top) del principio de la línea. La operación es simple, cambiaremos el valor de Y1 reduciendo el valor actual en cien unidades, con lo que la distancia al borde superior del formulario será 100 veces inferior cada vez que sea ejecutada la orden.
Line1.Y1 = Line1.Y1 - 100
Para hacer lo mismo "tirando" hacia abajo, tendremos que modificar la propiedad Y2, sumandole, por ejemplo 100 unidades al valor actual. Esta sencillísima operación se hace así......
Line1.Y2 = Line1.Y2 + 100
Vale, ahora la operación para dimensionarla en el sentido del eje X (es decir, de derecha a izquierda) es la misma pero con X1 y X2 respectivamente (es cuestión de probar)
Bien, ahora supongamos que quieres hacer un timer que cada segundo la línea aumente de tamaño hacia abajo. Simplemente, añade un Timer al formulario, ponle a la propiedad Interval un valor de "1000" (1000 milisegundos = un segundo) y en el evento Timer, ponemos los sencillos comandos que aumentarán la línea hacia abajo
Private Sub Timer1_Timer()
Dim Valor As Integer
Valor = 100
Line1.Y2 = Line1.Y2 + Valor
Line1.X2 = Line1.X2 - Valor 'Corregimos la desviación
End Sub
Vale, por último supongamos que además de aumentar el tamaño hacia abajo corrigiendo la desviación queremos que la línea aumente de grosor. El grosor de la línea se almacena y devuelve en una propiedad que se llama BorderWidth.
Edita el código del Timer, de modo que aumente progresivamente el grosor del borde de la línea según va creciendo hacia abajo
Private Sub Timer1_Timer()
Dim Valor As Integer
Valor = 100
Line1.Y2 = Line1.Y2 + Valor
Line1.X2 = Line1.X2 - Valor 'Corregimos la desviación
Line1.BorderWidth = Line1.BorderWidth + 1
End Sub
Bueno yo creo que es muy fácil y también creo que ha quedado muy muy claro... lo que no estoy seguro de que sea ésto lo que quieras saber........ en ese caso, explícate mejor.
Un saludo
Mostrar Mensajes
