求助自定义窗口最小化 - 专家坐堂 - 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

代码

Dim x As new BlueSkin(e.Form)
forms("窗口1").baseform.ShowInTaskBar = True

Dim WS_SYSMENU As Integer = &H00080000
Dim Min As Integer = &H00020000
Dim Size As Integer = &H00040000
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 Or size)

原本可以调整大小的呢，不希望多一个透明框。能不能在原基础上实现窗口最小化。

不改变原有功能与状态，就增加点击图标实现最小化

难道是熊掌与鱼么

测试了一下，你试试调换一下位置

forms("窗口1").baseform.ShowInTaskBar = True
Dim WS_SYSMENU As Integer = &H00080000
Dim Min As Integer = &H00020000
Dim Size As Integer = &H00040000
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 Or size)
Dim x As new BlueSkin(e.Form)

再测试了一下，不能并存的。

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