📄 form2.vb
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -