form2.vb

来自「学籍管理系统 源代码 希望大家能用上 谢谢」· VB 代码 · 共 12 行

Imports System.Drawing.Drawing2D
Public Class Form2
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        paintform()
    End Sub
    Private Sub paintform()
        Dim gp As New GraphicsPath
        gp.AddEllipse(New Rectangle(70, 80, 500, 500))
        Dim r As New Region(gp)
        Me.Region = r
    End Sub
End Class