掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
IEが最小化されたことを知るには？ (ID:101347)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
IE にもWindowStateChanged イベントがあるのですが、VB からは使用できないようなので CommandStateChange イベント内でフラグを設定してWin32 APIのIsIconic で状態を取得 するのではどうでしょうか？ 目的によっては使えないかも知れませんが下記のような感じで。 Option Explicit Private WithEvents IE As InternetExplorer Private Declare Function IsIconic Lib "user32" _ (ByVal hWnd As Long) As Boolean Private FrgvbMinimized As Boolean Private Sub Form_Load() Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "http://www.google.com/webhp?hl=ja" IE.Visible = True End Sub Private Sub IE_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean) If Command = 1 Then Dim frg As Boolean frg = IsIconic(IE.hWnd) If FrgvbMinimized = False And frg Then MsgBox "最小化されました" FrgvbMinimized = True ElseIf FrgvbMinimized = True And Not frg Then MsgBox "最小化が解除されました" FrgvbMinimized = False End If End If End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.