sábado, 3 de octubre de 2015

Ejemplo de Círculo


DrawingArea1.Cached=true


' gambas class file

' by postapase

Public Sub Form_Open()

Me.Center
' centramos el formulario
Me.Title = "Ejemplo Círculo"


Paint.Begin(DrawingArea1)
' con Begin indicamos que comenzamos el dibujo y le indicamos donde, en este caso en DrawingArea1 entre los paréntesis.
Paint.LineWidth = 1
' el grosor de línea de la circunferencia
Paint.Arc(DrawingArea1.Width / 2, DrawingArea1.Height / 2, 50)' coordenadas x y, después indicamos el radio de la circunferencia
Paint.Stroke
' arranca y visualiza el gráfico
Paint.End


End


No hay comentarios.:

Publicar un comentario