Question

在VB.Net中如何画实心的圆

Answer 1

在PictureBox1上画红色的实心圆：
Private Sub DrawCircle(ByVal cp As Point, ByVal radius As Integer, ByVal color As Brush)
Dim gr As Graphics
gr = PictureBox1.CreateGraphics
Dim rect As Rectangle = New Rectangle(cp.X - radius, cp.Y - radius, 2 * radius, 2 * radius)
gr.DrawEllipse(Pens.Black, rect)
gr.FillEllipse(color, rect)
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
DrawCircle(New Point(120, 100), 80, Brushes.Red)
End Sub

Answer 2

Dim myBitmap As New Bitmap(640, 480)
Dim myGraphic As Graphics = Graphics.FromBitmap(myBitmap)
with mygraphic

.DrawImage....
.Drawline...
end with

PictureBox.Image=myBitmap

Answer 3

先画圆，后涂色

Answer 4

去玩儿体育【【