C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[5]: ウィンドウを最前面にするには？

分類:[VB.NET/VB2005]　

「SHDocVw」ライブラリを使用して作成または取得した
「IntegernetExplorer」を表示した後に、
ウィンドウの最前面に持ってくる方法を教えて頂けないでしょうか。
タスクバーに最小化されている「InternetExplorer」を取得する場合もありますので、
そちらにも対応できることが前提となります。

参考までに今作成しているソースを添付します。

Dim SWs As New SHDocVw.ShellWindows
Dim IE As SHDocVw.InternetExplorer
Dim helpIE As SHDocVw.InternetExplorer
Dim newflg As Boolean = True
Dim Doc As Object
Dim documentName = "既に開いているか探すhtmlファイル名"
-既にウィンドウが開かれているか検索する-
For Each IE In SWs
　 Doc = IE.Document
If TypeOf Doc Is mshtml.HTMLDocument Then
If Instr(Doc.url, documentName) <> 0 Then
helpIE = IE
newflg = False
Exit For
End If
End If
Next
　
'既に開かれていない場合は新規で開く
If newflg = True Then
-新規に開く場合-
Dim uri As String = "開くhtmlファイルへのパス"
helpIE = New SHDocVw.InternetExplorer
helpIE.Navigate(uri)
'ページ読み込みまで待機
Do While helpIE.Busy = True
System.Windows.Forms.Application.DoEvents()
Loop
helpIE.Visible = True　
End If

'ここで「helpIE」に格納されている「InternetExplorer」を最前面に持ってくる操作をしたい！

HWNDプロパティがあるようなので、APIを使う方法があります。

ShowWindow
SetForeGroundWindow
IsIconic

このあたりを調べてください。

■No22554 (まどかさん) に返信
> HWNDプロパティがあるようなので、APIを使う方法があります。
>
> ShowWindow
> SetForeGroundWindow
> IsIconic
>
> このあたりを調べてください。
>

以下のコードを前述の「ここで「helpIE」に格納されている「InternetExplorer」を最前面に持ってくる操作をしたい！」
の箇所に追加したら、最前面に持ってくることができました。
ただし、WindowsVistaにおいては、最前面に表示されず、タスクバーが点滅するだけです。
WindowsVistaにおける対処法等ご存知の方がいましたら、教えていただけないでしょうか。

' ShowWindowAsync関数のパラメータに渡す定義値
Const SW_RESTORE As Integer = 9 ' 画面を元の大きさに戻す

ShowWindow(helpIE.HWND, SW_RESTORE)

　Declare Function ShowWindow Lib "user32.dll" _
(ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer

■No23120 (らんぺるーるさん) に返信
> ただし、WindowsVistaにおいては、最前面に表示されず、タスクバーが点滅するだけです。
> WindowsVistaにおける対処法等ご存知の方がいましたら、教えていただけないでしょうか。
>

下記の方法ではどうでしょうか？
Vista で Excel を最前面に表示する
http://maglog.jp/moosoft/Article205140.html

■No23127 (やじゅさん) に返信
> ■No23120 (らんぺるーるさん) に返信
>>ただし、WindowsVistaにおいては、最前面に表示されず、タスクバーが点滅するだけです。
>>WindowsVistaにおける対処法等ご存知の方がいましたら、教えていただけないでしょうか。
>>
>
> 下記の方法ではどうでしょうか？
> Vista で Excel を最前面に表示する
> http://maglog.jp/moosoft/Article205140.html

できました。「SetWindowPos」メソッドを使用すれば、
Vistaでも最前面に配置することができました。

ただし、上記メソッドだけでは、既にタスクバーに最小化されている
ウィンドウに対しては、最前面にもってこれなかったので、
「ShowWindow」メソッドを併用することで対応いたしました。

解決済みとさせていただきます。
まどか様、やじゅ様ご回答有難う御座いました。

また、質問をさせていただいた際には、よろしくお願いいたします。

■No23134 (らんぺるーるさん) に返信
> ■No23127 (やじゅさん) に返信
>>■No23120 (らんぺるーるさん) に返信
> >>ただし、WindowsVistaにおいては、最前面に表示されず、タスクバーが点滅するだけです。
> >>WindowsVistaにおける対処法等ご存知の方がいましたら、教えていただけないでしょうか。
> >>
>>
>>下記の方法ではどうでしょうか？
>>Vista で Excel を最前面に表示する
>>http://maglog.jp/moosoft/Article205140.html
>
> できました。「SetWindowPos」メソッドを使用すれば、
> Vistaでも最前面に配置することができました。
>
> ただし、上記メソッドだけでは、既にタスクバーに最小化されている
> ウィンドウに対しては、最前面にもってこれなかったので、
> 「ShowWindow」メソッドを併用することで対応いたしました。
>
> 解決済みとさせていただきます。
> まどか様、やじゅ様ご回答有難う御座いました。
>
> また、質問をさせていただいた際には、よろしくお願いいたします。
>

解決済みにチェックし忘れました…。。。毎度すみません。

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[5]: ウィンドウを最前面にするには？

過去ログには書き込み不可