Título: Ayuda con Lines Publicado por: VirucKingX en 24 Julio 2006, 09:55 am Bueno mi duda es como puedo lograr que una Line, vaya aumentando de tamaño, ya de sea de derecha a izquierda o de arriba hacia abajo.
Bye ojala me haya exprezado con claridad :-* Título: Re: Ayuda con Lines Publicado por: _Sergi_ en 24 Julio 2006, 13:45 pm 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. Código: X1: Distancia desde la izquierda del principio 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. (http://img81.imageshack.us/img81/9137/ejemplolneasmd5.png) 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. Código: 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í...... Código: 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 Código: Private Sub Timer1_Timer() 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 Código: Private Sub Timer1_Timer() 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 Título: Re: Ayuda con Lines Publicado por: Hans el Topo en 24 Julio 2006, 13:47 pm chapo _Sergi_ ...xD
aki falta un slime de alabar... xD Título: Re: Ayuda con Lines Publicado por: VirucKingX en 24 Julio 2006, 20:10 pm excelente ;D
Gracias |