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

ngbshzhn 2020-01-08 03:58:12
编译环境 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
...全文
201 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ngbshzhn 2020-01-16
  • 打赏
  • 举报
回复
谢谢“举杯邀明月”的鼓励!
舉杯邀明月 2020-01-15
  • 打赏
  • 举报
回复

恭喜楼主
ngbshzhn 2020-01-15
  • 打赏
  • 举报
回复
已经自己解决了

1,485

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧