Notesクライアントメニューバーの非表示と表示

本機能は5.0,6.5のみである.7.0 Notesクライアントバージョンでは、クライアントはC++ベースであり、8.0,8.5のクライアントはEclipseベースであるため、この機能が実行可能かどうかはテストされませんでした.ホットスポットは2つあります.form全体でグローバル変数を設定します.

Dim hmenu As Long

ホットスポット1:(メニューバーを非表示)

Declare Function GetActiveWindow Lib "user32.dll" () As Long
Declare Function GetMenu Lib "user32.dll" ( Byval hmenu As Long) As Integer
Declare Function SetMenu Lib "user32.dll" ( Byval hmenu As Long, Byval newmenu As Long ) As Integer
Sub Click(Source As Button)
Dim hwnd As Long
hwnd = GetActiveWindow()
hmenu=GetMenu(hwnd) 
Call SetMenu(hwnd,0)
End Sub

ホットスポット2:(メニューバーを表示)

Declare Function GetActiveWindow Lib "user32.dll" () As Long
Declare Function GetMenu Lib "user32.dll" ( Byval hmenu As Long) As Integer
Declare Function SetMenu Lib "user32.dll" ( Byval hmenu As Long, Byval newmenu As Long ) As Integer 
Sub Click(Source As Button)
Dim hwnd As Long
hwnd = GetActiveWindow() 
If hmenu Then
Call SetMenu(hwnd,hmenu)
Else
Msgbox "        "
End If
End Sub