| |
▼いなたく さん：
こんにちは。
>「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についての知識は殆どありません。
うまくいくと良いのですが…。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
