前台
代码
Imports System.Runtime.InteropServices
'我的操作系统是win7,64位,long类型是64位
'需要设置为:编译--高级编译--目标CPU--x64
'单击变椭圆,双击还原
Public Class Form1
<DllImport("gdi32.dll", EntryPoint:="CreateEllipticRgn", CallingConvention:=CallingConvention.Cdecl, ExactSpelling:=True)> _
Public Shared Function CreateEllipticRgn(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
End Function
<DllImport("gdi32.dll", EntryPoint:="CreateRectRgn", CallingConvention:=CallingConvention.Cdecl, ExactSpelling:=True)> _
Private Shared Function CreateRectRgn(ByVal nLef