Me estoy adaptando a la clase Paint.
Se ve que han cambiado cosas que hay que aprender si queremos hacer uso de gráficos.
En este ejemplo, se dibuja un circulo repartido en cuatro porciones, cada una de un color.
El código del botón es este:
Public Sub btnCirculoPartes_Click()
Dim contador As Integer
Dim anguloinicio As Float
Dim centrox As Float
Dim centroy As Float
Dim divisor As Float
'Centro de la pizarra
centrox = Pizarra.Width / 2
centroy = Pizarra.Height / 2
Paint.Begin(Pizarra)
anguloinicio = 0
'Ancho del trazado
Paint.LineWidth = 6
For contador = 90 To 360 Step 90
divisor = contador / 90
Paint.Arc(centrox, centroy, 100, Rad(- anguloinicio), Rad(-90), True)
anguloinicio = contador
'Color segun divisor
Select Case divisor
Case 1
Paint.Brush = Paint.Color(Color.Yellow)
Case 2
Paint.Brush = Paint.Color(Color.Blue)
Case 3
Paint.Brush = Paint.Color(Color.Red)
Case 4
Paint.Brush = Paint.Color(Color.Green)
End Select
'Rellenar
Paint.Fill(True)
Paint.Brush = Paint.Color(0)
'Acabamos cada trazado completando cada sector
Paint.Stroke
Next
Paint.End
End
Dim contador As Integer
Dim anguloinicio As Float
Dim centrox As Float
Dim centroy As Float
Dim divisor As Float
'Centro de la pizarra
centrox = Pizarra.Width / 2
centroy = Pizarra.Height / 2
Paint.Begin(Pizarra)
anguloinicio = 0
'Ancho del trazado
Paint.LineWidth = 6
For contador = 90 To 360 Step 90
divisor = contador / 90
Paint.Arc(centrox, centroy, 100, Rad(- anguloinicio), Rad(-90), True)
anguloinicio = contador
'Color segun divisor
Select Case divisor
Case 1
Paint.Brush = Paint.Color(Color.Yellow)
Case 2
Paint.Brush = Paint.Color(Color.Blue)
Case 3
Paint.Brush = Paint.Color(Color.Red)
Case 4
Paint.Brush = Paint.Color(Color.Green)
End Select
'Rellenar
Paint.Fill(True)
Paint.Brush = Paint.Color(0)
'Acabamos cada trazado completando cada sector
Paint.Stroke
Next
Paint.End
End
La manera de como funciona es: primero hace la operación de crear un sector, luego el otro hasta que haga cuatro.
(Ahora siempre hacemos la función de dibujo antes y luego coloreamos con nuestro pincel).
Después de cada trazado, usa los colores. Como veis el parámetro antes del true (para que haga un sector), siempre
es 90. Parte del angulo de inicio que se incrementa y va añadiendo 90. Si usamos un valor positivo coloca los sectores
y colores al revés. Cambiarlo para verlo.
Ah, y usamos la función Rad para que convierta grados a radianes.
Saludos.