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

タイトル ： Re^4: ノートバッドの最大化を取得する
投稿日： 2013/01/16(Wed) 18:41
投稿者： 佐藤hs
出来るはずと言うご回答頂き、再度確認しましたら、出来ました。
大変有り難うございました。
タイマー５秒として、ボタンを押した後に、リモートデスクトップを最大画面にしてメッセージを待つ事で確認しました。

Declare Function IsZoomed Lib "user32" (ByVal hwnd As IntPtr) As Boolean
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        max_chk()
        Timer1.Enabled = False
    End Sub

    Private Sub max_chk()
        ' プロセス名 notepad のものを探す
        ' プロセス名によっては複数見つかることもあるので気をつけること
        For Each p As Process In Process.GetProcessesByName("mstsc") 'notepad mstsc
            ' 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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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