主题：任务栏右键消失

此主题相关图片如下：搜狗截图121230_1.png

 

 

显示控制框设置成  false  后

  任务栏的右键没有了，怎么弄出来，，，右键不重要，，重要的是原来单击任务栏图标可以显示隐藏程序，现在不行了

鱼和熊掌不可兼得。

 应该有折中办法的，但我不明白楼主的意思。弄个小例子看看。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

现在这个文件，在任务栏点击不能显示隐藏程序窗口了
此主题相关图片如下：搜狗截图121231_1.png

 哦哦，你说的隐藏，是指最小化。这个没办法的了。

算了吧，太麻烦了

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 )

 

 

是这个吗，，不起作用啊