|
ウィンドウの×ボタンを消す方法をネットで探していたら、
次のようなサイトを見つけました。
http://park11.wakwak.com/~miko/Excel_Note/03-01_gamen.htm#03-01-01
どうやら、下記のコードで×ボタンを消せるようです。
(長いのでAPI関数宣言は省きます。)
Public Sub HideSysMenu()
Dim Ret As Long
Dim hWnd As Long
Dim Wnd_STYLE As Long
hWnd = GetActiveWindow()
Wnd_STYLE = GetWindowLong(hWnd, GWL_STYLE)
Wnd_STYLE = Wnd_STYLE And (Not WS_SYSMENU)
Ret = SetWindowLong(hWnd, GWL_STYLE, Wnd_STYLE)
Ret = DrawMenuBar(hWnd)
End Sub
ここで、疑問なのですが、
Wnd_STYLE = Wnd_STYLE And (Not WS_SYSMENU)
とはどういうことなのでしょうか?
And (Not WS_SYSMENU)
というのがわかりません。
よろしくお願いします。
|
|