Ejemplos usando el Api de windows para Visual basic

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

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

Colocar un Timer1 en el formulario

Código fuente en el formulario

' Declaraciones '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Estructura PointApi para saber las _ coordenadas del mouse en cualquier ventana Private Type POINTAPI x As Long y As Long End Type ' recupera el handle del hdc para dibujar en la ventana activa Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long ' Funcion Api para dibujar una ellipse Private Declare Function Ellipse Lib "gdi32" ( _ ByVal hdc As Long, _ ByVal X1 As Long, _ ByVal Y1 As Long, _ ByVal X2 As Long, _ ByVal Y2 As Long) As Long ' Api getCursorPos para Recuperar las cordenadas del mouse Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Form_Load() Timer1.Interval = 100 Timer1.Enabled = True End Sub Sub Timer1_Timer() Dim Cursor As POINTAPI ' Recuperamos la posición del cursor para pasarla a la función Ellipse Call GetCursorPos(Cursor) ' Dibujamos elipses en la pantalla Ellipse GetWindowDC(0), _ Cursor.x - 5, _ Cursor.y - 5, _ Cursor.x + 15, _ Cursor.y + 15 End Sub

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