タイトル : Re^5: Excelの最大化・最小化ボタン 投稿日 : 2010/03/18(Thu) 09:47 投稿者 : はる
> > Private Shared Function SetWindowLong( _ > > ByVal hWnd As IntPtr, _ > こちらでは、ウィンドウハンドルを IntPtr 型で渡しているのに、 > > > Public Shared Function GetWindowLong(ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer > こちらでは IntPtr にせず、Integer にしているのは何故でしょうか? 何も気にせずにGetWindowLongを.NET用に変換したものをネットで見つけてきて 使っていました。。ご指摘ありがとうございます。 > > Dim hWnd As IntPtr = FindWindow(Nothing, sAppCaption) > Excel のウィンドウであれば、API を使わずとも xlApp.Hwnd で取得できますよ。 そうなんですか!知りませんでした。 > > > 解決です。 > タイトルバーのダブルクリックは大丈夫ですね? > > ちなみにサイズの固定はできないですよね〜? > WS_THICKFRAME や WS_SIZEBOX も切ってしまえば良いかと。 教えていただいたとおりに SetWindowLong(hWnd, GWL_STYLE, wStyle And (Not WS_MAXIMIZEBOX) And (Not WS_MINIMIZEBOX) And (Not WS_SYSMENU) And (Not WS_SIZEBOX) And (Not WS_THICKFRAME)) としてみたところ、サイズ固定にすることができました(^^)! 助かりました。本当にありがとうございます。 ダブルクリックでも最大化しませんでした。 今後もまた何かありましたらアドバイスお願いいたします。 |