Access VBA質問箱 IV

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

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


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

7451 / 9994

←次へ　｜　前へ→


	【5735】Re:IEウィンドウ操作方法

小僧 - 05/8/3(水) 11:09 -


	引用なし

	パスワード

▼いなたくさん：
こんにちは。

>「IEウィンドウを別ウィンドウで開き最前面に表示」

自分も色々やっていたのですが、
最前面に表示されたり最小化で起動されたりと
同じコードでもうまくいったりいかなかったりでした。

Web検索してみたところ、裏で何かしらの処理が行われていると
最前面で起動されない事があるそうです。
APIを使うと最前面の表示ができる模様です。

'標準モジュールに宣言
Public Declare Function SetWindowPos _
　　　　　　　 Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
　　　　　　　 ByVal X As Long, ByVal Y As Long, ByVal Cx As Long, _
　　　　　　　 ByVal Cy As Long, ByVal wFlags As Long) As Long

'手前に表示のフラグ
Public Const Temae = -1
Public Const Hyouji = &H40

'フォームに記述
Private Sub ボタン_Click()
Dim objIE As Object
　　Set objIE = CreateObject("InternetExplorer.application")
　　objIE.Navigate "http://www.yahoo.co.jp"
　　SetWindowPos objIE.hwnd, Temae, _
　　　　　　objIE.Left, objIE.Top, objIE.Width, _
　　　　　　objIE.Height, Hyouji
　　Set objIE = Nothing
End Sub

当方の不勉強で申し訳ないのですが、APIについての知識は殆どありません。
うまくいくと良いのですが…。

1,285 hits

▼

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