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

162 - Método Circle de Visual basic

Ejemplo simple que dibuja un círculo en el formulario mediante el mouse

La sintaxis del método Circle de visual basic es :

ElObjeto.Circle (x, y), El Radio, El Color, Inicio, Final, Aspecto

El Objeto puede ser un control que permita utilizar los Método gráficos de visual basic, como por ejemplo los formularios, los controles Picture y la impresora ( el objeto Printer)

Los parámetros X e Y hacen referencia a la posición central del círculo, hay que tener en cuenta la propiedad ScaleMode

El parámetro Radio es obligatorio

Luego el parámetro Color es opcional, y se puede pasar por ejemplo un valor de tipo Long, una constante definida de las que pose Vb, por ejemplo VbRed (rojo) etc..

Nota: si no se especifica el color, se utilizará el valor de la propiedad ForeColor

Los demás parámetros son opcionales y se utilizan principalmente para dibujar elipses y modificar el aspecto del círculo, pero para este ejemplo, que solo se dibuja un círculo, no son necesarios.

Colocar el siguiente código en un formulario

Option Explicit Private flag As Boolean 'Variables Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single 'Dibuja el circulo en el formulario Private Sub Dibujar_Circulo() Dim cx As Single, cy As Single, dx As Single Dim dy As Single, Radio As Single cx = x1 cy = y1 dx = x1 - x2 dy = y1 - y2 ' calcula el radio Radio = Sqr(dx * dx + dy * dy) 'Dibuja el círculo Circle (cx, cy), Radio End Sub Private Sub Form_Load() Me.Caption = " Ejemplo para Dibujar circulos con el mouse " Me.DrawWidth = 3 Me.BackColor = vbBlack End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) flag = True DrawMode = vbInvert x1 = X: y1 = Y x2 = X: y2 = Y Call Dibujar_Circulo End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Not flag Then Exit Sub End If Call Dibujar_Circulo 'Almacena las coordenadas del mouse x2 = X: y2 = Y Call Dibujar_Circulo End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) ' Flag e false para que al mover el mouse ( MouseMove) no dibuje flag = False 'Dibuja Call Dibujar_Circulo 'Almacena las coordenadas del mouse x2 = X: y2 = Y Call Dibujar_Circulo End Sub

Recursos vb 6.0 - Enlaces relacionados

Recursos vb.net - Enlaces relacionados

Dibujar líneas y rectángulos en visual basic.net con la clase Graphics

Buscar en Recursos vb