求助：圆形窗体界面问题（ PInvoke 签名的调用约定和参数与非托管的目标签名是否匹配。）

[ngbshzhn]

编译环境 window 7 32位 visual studio 2010
Imports System.Runtime.InteropServices

Public Class Form1
<DllImport("gdi32")> _
Public Shared Function CreateEllipticRgn(ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
End Function

<DllImport("gdi32")> _
Private Shared Function CreateRectRgn(ByVal nLeftRect As Integer, ByVal nTopRect As Integer, ByVal nRightRect As Integer, ByVal nBottomRect As Integer) As IntPtr
End Function

<DllImport("user32.dll")> _
Public Shared Function SetWindowRgn(ByVal hWnd As Long, ByVal hRgn As IntPtr, ByVal bRedraw As Boolean) As Long
End Function
<DllImport("gdi32")> _
Private Shared Function DeleteObject(ByVal hObject As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean

End Function

Dim hRgnC As Long
Dim hRgnR As Long

Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
hRgnC = CreateEllipticRgn(25, 25, 220, 220)
SetWindowRgn(Me.Handle, hRgnC, True)
End Sub


Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick
hRgnR = CreateRectRgn(0, 0, Me.Width, Me.Height)
SetWindowRgn(Me.Handle.ToInt32, hRgnR, True)
End Sub


End Class

[ngbshzhn]

已经自己解决了

[舉杯邀明月]

恭喜楼主

[ngbshzhn]

谢谢“举杯邀明月”的鼓励！