tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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))
としてみたところ、サイズ固定にすることができました(^^)!
助かりました。本当にありがとうございます。
ダブルクリックでも最大化しませんでした。

今後もまた何かありましたらアドバイスお願いいたします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。