Ejemplos usando el Api de windows para Visual basic

19 - Dibujar elipse por toda la pantalla al mover el mouse

<Volver> - Anterior - Siguiente



 

 

 

Este ejemplo basado en el Api guide, muestra como podemos dibujar un círculo o elípse mediante el Api Ellipse tanto en la ventana activa, es decir en un formulario, como en toda la pantalla

Para dibujar en la pantalla se necesita obtener el hdc de la pantalla mediante el Api GetWindowDC.

Luego mediante un Timer y el Api GetcursorPos obtenemos las coordenadas del mouse, y cuando movemos el puntero, se va dibujando el circulo por donde va pasando

 

 

Una previa de la imágen del ejemplo:

 

Vista previa del ejemplo que usa el Api Ellipse para dibujar circinferencias y círculos en  una ventana de windows

 

Controles

 

Código fuente en el formulario

 

Nota, en los parámetros de la función Ellipse, el primero es el HDC de la pantalla, los demás son los x1, x2 etc..., que le podés espicificar los valores que determinan la forma del circulo a dibujar, el radio etc..

 


Enlaces relacionados:



Buscar en Recursos vb