Question

VB程序托盘

Public Function NewWindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = TRAY_CALLBACK Then
If lParam = WM_LBUTTONUP Then
If TheForm.WindowState = vbMinimized Then
TheForm.WindowState = vbNormal
End If
TheForm.Show
Exit Function
End If
If lParam = WM_RBUTTONUP Then
TheForm.PopupMenu TheForm.mnu_file
Exit Function
End If
End If
NewWindowProc = CallWindowProc(OldWindowProc, hwnd, Msg, wParam, lParam)
End Function
运行程序程序最小化至托盘，然后我鼠标指住程序图标，左出现下面的提示！
我运行时这句《TheForm.PopupMenu TheForm.mnu_file》对象不支持该属性或方法 怎么办啊！

高分悬赏！
说错了 应该是右键！

Answer 1

在菜单编辑器中新建一个菜单，如名为“the menu”，“TheForm.PopupMenu TheForm.mnu_file”这句里的TheForm.mnu_file，应改成你的菜单名“TheForm.PopupMenu themenu”，试一下。