- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 任务栏右键消失 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27396)
-- 发布时间：2012/12/30 12:53:00
-- 任务栏右键消失
此主题相关图片如下：搜狗截图121230_1.png
显示控制框设置成 false 后
任务栏的右键没有了，怎么弄出来，，，右键不重要，，重要的是原来单击任务栏图标可以显示隐藏程序，现在不行了
-- 发布时间：2012/12/30 23:49:00
--
鱼和熊掌不可兼得。
-- 发布时间：2012/12/31 9:26:00
--
应该有折中办法的，但我不明白楼主的意思。弄个小例子看看。
-- 发布时间：2012/12/31 10:26:00
--
应该有折中办法的，但我不明白楼主的意思。弄个小例子看看。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
现在这个文件，在任务栏点击不能显示隐藏程序窗口了
此主题相关图片如下：搜狗截图121231_1.png
-- 发布时间：2012/12/31 10:50:00
--
哦哦，你说的隐藏，是指最小化。这个没办法的了。
-- 发布时间：2012/12/31 12:39:00
--
算了吧，太麻烦了
-- 发布时间：2013/1/3 12:12:00
--
用 API 调用系统消息 可以实现你的要求
Public myform As Windows.Forms.Form
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_STYLE = (-16)
Public Const WS_SYSMENU = &H80000
Public Const WS_MINIMIZEBOX = &H20000
myform = basemainform
myForm.FormBorderStyle = Windows.Forms.FormBorderStyle.none
myform.ShowInTaskbar = True
Dim lStyle As Long
lStyle = GetWindowLong(myform.handle, GWL_STYLE)
lStyle = lStyle Or WS_MINIMIZEBOX Or WS_SYSMENU
SetWindowLong (myform.handle, GWL_STYLE,lStyle )
是这个吗，，不起作用啊