[Visual Basic] 纯文本查看 复制代码Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim B As New Bitmap(Me.Width, Me.Height)
Using G As Graphics = Graphics.FromImage(B)
G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
Using Gp As New Drawing2D.GraphicsPath
Dim Rc1, Rc2 As Rectangle
Rc1 = New Rectangle(Me.Width / 3 - 35, Me.Height / 2 - Me.Height / 3, 100, 100)
Rc2 = New Rectangle(Me.Width / 3 * 2 - 65, Me.Height / 2 - Me.Height / 3, 100, 100)
Gp.AddArc(Rc1, 180, 135)
Gp.AddArc(Rc2, 225, 135)
Dim PtsLst, PtsLst2 As New List(Of Point)
With PtsLst
.Add(New Point(Rc1.Left, Rc1.Top + Rc1.Height / 2))
.Add(New Point(Rc1.Left + 10, Rc1.Top + Rc1.Height / 2 + Rc1.Height / 3))
.Add(New Point(Rc1.Left + Rc1.Width / 2, Rc1.T