对按钮重新绘制

Private Sub Button2_Paint()Sub Button2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Button2.Paint




Dim MyGp As New System.Drawing.Drawing2D.GraphicsPath


MyGp.AddEllipse(New Rectangle(-50, -50, 125, 125))


MyGp.AddEllipse(New Rectangle(55, 55, 20, 20))


' MyGp.AddEllipse(New Rectangle(0, 0, 125, 125))


'MyGp.AddEllipse(New Rectangle(0, 0, 125, 125))


Button2.BackColor = Color.Blue


Button2.BackgroundImage = Image.FromFile("F:壁纸 _6289.jpg")


MyGp.AddString("中华人民共和国", New FontFamily("宋体"), FontStyle.Regular, 15, New PointF(5, 40), StringFormat.GenericDefault)




'Button2.Size = New Size(256, 256)


Button2.Region = New Region(MyGp)


End Sub