Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41508 / 76735

←次へ　｜　前へ→


	【40306】Re:（Not WS_SYSMENU）ってどういう意味です...

mutu - 06/7/11(火) 10:35 -


	引用なし

	パスワード

メールでの質問は受け付けていないそうなので、
お忙しい中申し訳ありませんが、よろしくお願いします。

引用元：
http://park11.wakwak.com/~miko/Excel_Note/03-01_gamen.htm#03-01-01

Public Sub RestoreSysMenu()
　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 Or WS_SYSMENU
　Ret = SetWindowLong(hWnd, GWL_STYLE, Wnd_STYLE)
　Ret = DrawMenuBar(hWnd)
End Sub

また、×ボタンを復活させるときに、
　Wnd_STYLE = Wnd_STYLE And WS_SYSMENU

ではなく、
　Wnd_STYLE = Wnd_STYLE Or WS_SYSMENU

にしているのも理解がしにくいところです。

重ねてよろしくお願いします。

0 hits

▼

【40304】（Not WS_SYSMENU）ってどういう意味です... mutu 06/7/11(火) 10:18