求助自定义窗口最小化 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这是天问的自定义窗口，我希望点击任务栏图标可以最小化：
图片点击可在新窗口打开查看

此主题相关图片如下：01_副本.png

安装bin老师提供的

全局代码

<DllImport("user32.dll", EntryPoint := "GetWindowLong", CharSet := CharSet.Auto)> _

Public Function GetWindowLong(hWnd As HandleRef, nIndex As Integer) As Integer

End Function

<DllImport("user32.dll", EntryPoint := "SetWindowLong", CharSet := CharSet.Auto)> _

Public Function SetWindowLong(hWnd As HandleRef, nIndex As Integer, dwNewLong As Integer) As IntPtr

End Function

窗口afterload代码

Dim WS_SYSMENU As Integer = &H00080000

Dim Min As Integer = &H00020000

Dim windowLong As Integer = GetWindowLong(new HandleRef(e.Form.Baseform, e.Form.Baseform.Handle), -16)

SetWindowLong(new HandleRef(e.Form.Baseform, e.Form.Baseform.Handle), -16, windowLong Or WS_SYSMENU Or min)

这样可以实现，但是导致窗口大小不能调整了。

求助老师帮忙解决这个问题，即点击任务栏可以最小化，又不影响窗口调整大小。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:自定义皮肤商业版.zip

主题：求助自定义窗口最小化