タイトル : ノートバッドの最大化を取得する 投稿日 : 2013/01/11(Fri) 09:59 投稿者 : 佐藤hs
ノートバッドが最大化しているかを取得したいのですが、下のコードを実行すると ノートバッドが起動していれば、最小化していても、最大化されていますと表示されます。 原因はわかるでしょうか? VB2005、Windows7です。 やりたいのは、リモートデスクトップで画面を最大化しているときに、VB2005で作成したフォームが表示されないようにしたくて、とりあえず、ノートバッドの最大化が取得出来るかを試しているところです。宜しくお願い致します。 Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' プロセス名 notepad のものを探す ' プロセス名によっては複数見つかることもあるので気をつけること For Each p As Process In Process.GetProcessesByName("notepad") ' notepad.exeが最大化されているかどうかを取得する Dim bRet As Boolean ' IsZoomedの引数にウインドウハンドルを指定する bRet = IsZoomed(p.MainWindowHandle) If bRet = True Then MessageBox.Show("最大化されています") Else MessageBox.Show("最大化されていません") End If Next End Sub |