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
' 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