问:在开发Lotus Notes应用系统时,如何隐藏Lotus本身的选单?
答:为了隐藏Lotus本身的选单条,我们需要添加以下定义:
Declare Function GetActiveWindow Lib "user32.dll" () As Long
Declare Function SetMenu Lib "user32.dll" ( Byval hmenu As Long, Byval newmenu As Long ) As Integer
然后,在你的脚本中添加下面的程序:
Dim hwnd As Long
hwnd = GetActiveWindow()
Call SetMenu(hwnd,0)
通过以上几个步骤,你就可以实现隐藏Lotus本身的选单条了。