アプリケーションの最大化の無効化

keis0727 0 評価のポイント
2024-11-21T02:13:33.2233333+00:00

Access 2016を使っています。 アプリケーションの閉じる、最大化、元のサイズに戻す、最小化、を無効にするために、 VbaでapiのDeletemenu を使い、 hMenu引数に、GetSystemMenu(Application.hWndAccessApp,false)を指定し、 nPosition引数に、最大化の4 wFlags引数に、1024を指定し、 実行したところ、最大化が無効にならず、 最大化、元のサイズに戻す、最小化は、nPositionを降順に4 3 0と指定しても、 無効になりませんでした。 閉じるのみ、6を指定すると、無効になります。 nPositionは、順番が変わるため、 処理順は降順に書いています。 Deletemenu で最大化、元のサイズに戻す、最小化を無効にすることは不可能でしょうか。 また、Deletemenu 以外で実現可能な方法があれば、ご教示下さい。

Windows 10
Windows 10
パーソナル コンピューターとタブレットで実行される Microsoft オペレーティング システム。
105 件の質問
Office
Office
ワープロ、電子メール、プレゼンテーション、データ管理と分析など、一般的なビジネス タスクをサポートする一連の Microsoft 生産性ソフトウェア。
99 件の質問
Visual Basic for Applications
Visual Basic for Applications
Microsoft 製品に組み込まれている Visual Basic の実装。
21 件の質問
0 件のコメント コメントはありません
{count} 件の投票

2 件の回答

並べ替え方法: 最も役に立つ
  1. simo-k 1,350 評価のポイント
    2024-11-21T05:23:41.6933333+00:00

    VBA(マクロ)の公式サポート場所は、海外コミュニティとなっています。
    有識者が集まっている所の方が、適切なアドバイスを受けやすいでしょう。
    Stack Overflow(VBA)
      [VBA プログラミングに関する質問]
      Stack Overflow には、説明的なタイトル、完全で簡潔な問題ステートメント、問題を再現する
      ための十分な詳細の要求などのガイドラインがあることに注意してください。
      機能要求または過度に広範な質問は、トピック外と見なされます。
      新しいユーザーの場合は、Stack Overflow ヘルプ センター にアクセスして詳細を確認して下さい。
    ※ 閲覧者・回答者が多い公式サポートサイトをお勧めします。
      英語で質問を送信してください。

    0 件のコメント コメントはありません

  2. とっちゃん 625 評価のポイント MVP
    2024-11-21T06:23:02.5833333+00:00

    システムメニュー(キャプションのアイコンのところで出るメニュー)の最大化・最小化の有効無効は、SetWindowLongPtr(64bitプログラム)または、SetWindowLong(32bitプログラム) API を使って実現します。

    x64環境だから64bit版が動いているとは限りませんので(インストールオプションで32bit版を選んでいる場合もあるため)、どのバージョンが動いているかなどを調査したうえで、APIを利用することになります(使い方はほぼ同じ)。

    以下はC++でのサンプルコードなので、VBAへの変換が必要ですが、参考にしていただければと思います。

    	// 64bit版のAPI
    	//WINUSERAPI LONG_PTR WINAPI GetWindowLongPtrW( _In_ HWND hWnd, _In_ int nIndex );
    	//WINUSERAPI LONG_PTR WINAPI SetWindowLongPtrW( _In_ HWND hWnd, _In_ int nIndex, _In_ LONG_PTR dwNewLong );
    	// 32bit版のAPI
    	//WINUSERAPI LONG WINAPI GetWindowLongW( _In_ HWND hWnd, _In_ int nIndex );
    	//WINUSERAPI LONG WINAPI SetWindowLongW( _In_ HWND hWnd, _In_ int nIndex, _In_ LONG dwNewLong );
    	// パラメータは一緒
    	//#define GWL_STYLE           (-16)
    	//#define WS_MINIMIZEBOX      0x00020000L
    	//#define WS_MAXIMIZEBOX      0x00010000L
    	// GetWindowLongPtr/SetWindowLongPtr は、UNICODE/x64 のコンパイルオプションに応じて、上記のいずれかの関数にコンパイル時に変換される
    	HWND hwndTarget = *this;
    	auto style = GetWindowLongPtr( hwndTarget, GWL_STYLE );
    	if( style & WS_MAXIMIZEBOX )
    	{
    		SetWindowLongPtr( hwndTarget, GWL_STYLE, style & ~WS_MAXIMIZEBOX );
    	}
    	else
    	{
    		SetWindowLongPtr( hwndTarget, GWL_STYLE, style | WS_MAXIMIZEBOX );
    	}
    

    参考 SetWindowLongPtrW API

    0 件のコメント コメントはありません

お客様の回答

回答は、質問作成者が [承諾された回答] としてマークできます。これは、ユーザーが回答が作成者の問題を解決したことを知るのに役立ちます。