Question

如何在vb.net中创建圆角窗体

Answer 1

如下所示：

Private Sub Type(ByVal sender As Control, ByVal p_1 As Integer, ByVal p_2 As Double)
        Dim oPath As New Drawing2D.GraphicsPath()
        oPath.AddClosedCurve(New Point() {New Point(0, sender.Height / p_1), New Point(sender.Width / p_1, 0), New Point(sender.Width - sender.Width / p_1, 0), New Point(sender.Width, sender.Height / p_1), New Point(sender.Width, sender.Height - sender.Height / p_1), New Point(sender.Width - sender.Width / p_1, sender.Height), _
        New Point(sender.Width / p_1, sender.Height), New Point(0, sender.Height - sender.Height / p_1)}, CSng(p_2))
        sender.Region = New Region(oPath)
    End Sub



 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
                Type(Me, 20, 0.1)
    End Sub