Question

vb无标题栏窗体 如何显示任务栏右键菜单

记得你以前有遇到过这个问题 能帮我回答下这个问题吗?
小fisher 你的回答史实是我想要的 不过我还想问下怎么给它再添加一个自定义的菜单 而且现在的菜单关闭项不好用 这是为什么

Answer 1

将窗体的ShowInTaskbar设置为True，然后使用下列代码：
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000
Private Const WS_MINIMIZEBOX = &H20000

Private Sub Form_Load()
Dim lStyle As Long
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
lStyle = lStyle Or WS_MINIMIZEBOX Or WS_SYSMENU
SetWindowLong Me.hwnd, GWL_STYLE, lStyle
End Sub

Answer 2

http://hi.baidu.com/333su/blog/item/1264b9fd9804b541d6887dd2.html
看看吧~
http://hi.baidu.com/aisacvv/blog/item/20949f06f451ee730308810f.html
还有这个

Answer 3

全部在视图菜单下添加，简单吧~