Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7454 / 9994

←次へ　｜　前へ→


	【5732】IEウィンドウ操作方法

いなたく - 05/8/3(水) 9:48 -


	引用なし

	パスワード

こんにちは。

フォーム上でボタンをクリックしIEが立ち上がる設定をしているのですが、
ボタンをクリックした際に「IEウィンドウを別ウィンドウで開き最前面に表示」
をしたいのですが、現在「IEウィンドウを別ウィンドウで開く方法」と
「IEを最前面で開く方法」と別々の記載方法になることがわかり困っています。

================= IEを別ウィンドウで開く方法 ==================

Private Sub ボタン_Click()
　　Dim ObjIE As Object
　　Set ObjIE = CreateObject("InternetExplorer.Application")
　　ObjIE.Navigate "http://www.yahoo.co.jp"
　　ObjIE.Visible = True
　　Set ObjIE = Nothing
End Sub

===============================================================
メリット　：IEを別ウィンドウで開く。
デメリット：IEウィンドウが最後面で開く。

================= IEを最前面で開く方法 ==================

Private Sub ボタン_Click()
　　Dim ObjIE As Object
　　Set ObjIE = CreateObject("Wscript.Shell")
　　ObjIE.Run "http://www.yahoo.co.jp"
　　Set ObjIE = Nothing
End Sub

=========================================================
メリット　：IEを最前面で開く。
デメリット：別にIEウィンドウが起動していた場合、そのIEウィンドウを
　　　　　　私用して画面を開く。

調べたかぎりでは上記どちらかしか現段階では方法が見つからず、
どちらかの機能を捨てなければいけない状態です。
何とかどちらの機能も満たした記載方法はありませんでしょうか？
どうかお力をお貸しください!
よろしくお願い致します。m(__)m

1,172 hits

▼

【5732】IEウィンドウ操作方法 いなたく 05/8/3(水) 9:48

≪