求助:圆形窗体界面问题( PInvoke 签名的调用约定和参数与非托管的目标签名是否匹配。)
编译环境 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