Ejemplos usando el Api de windows para Visual basic

42 - Dibujar rectángulos usando el Api Rectangle

<Volver> - Anterior - Siguiente



 

 

Este código es una pavada que hice, pero muestra como dibujar mediante el Api rectángulos en un formulario en forma aleatoria.

 

La función Api se llama Rectangle. En el primer parámetro se le debe especificar el Hdc donde dibujar el rectángulo, en este caso le pasamos Me.hdc, es decir el dispositivo de contexto del formulario, si quisieramos dibujar en un Picturebox por ejemplo, le pasariamos MiPicture.Hdc

Los demás parámetros son las dimensiones del recuadro, es decir x1, y1, x2, y2.

El ejemplo para no hacerlo tan simple, aunque sea una pavada como ya dije, lo que hace es dibujar mediante un Timer cada 100 milisegundos, rectángulos con tamaños aleatorios usando las funciones Randomize y Rnd de Visual basic

 

 

Para el ejemplo colocar un Timer1 con el Interval en 100 o a gusto

 


Enlaces relacionados

 



Buscar en Recursos vb