Sección de códigos , trucos y ejemplos para visual basic

26 - Dibujar una mira y moverla cuando se mueve el mouse utilizando los métodos gráficos del visual basic

Simple ejemplo que dibuja mediante los métodos gráficos de visual basic, una mira, y en el evento mouseMove del Formulario, se sitúa la mira en el puntero y se mueve, es decir se redibuja cada ves que se dispara el evento MouseMove del form utilizando el método Circle y el método Line

Formulario

métodos gráficos en vb - line, circle y pset

Código fuente en un formulario

Option Explicit Private Sub Form_Load() 'Ponemos la escala del formulario para trabar en Pixeles Me.ScaleMode = vbPixels 'Establecemos el ancho de la linea para dibujar en el Form Me.DrawWidth = 2 'Le ponemos el cursor tipo Mira Me.MousePointer = 2 Me.BackColor = &H808080 End Sub Private Sub Form_MouseMove(Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) 'Borramos lo dibujado anteriormente Me.Cls 'Dibujamos el circulo con un radio de 25 pixeles Me.Circle (X, Y), 25, QBColor(15) ' Dibuja La linea horizontal Me.Line (X - 25, Y)-(X + 25, Y) 'Dibuja La linea vertical Me.Line (X, Y - 25)-(X, Y + 25) End Sub

Recursos vb6 - Enlaces relacionados

Recursos vb.net - Enlaces

Dibujar líneas en vb.net mediante el GDI

Buscar en Recursos vb