| |
ＩＥを５個起動するのですよね？
いま適当に考えて作ってみました。一応、目的の動作はするみたいです。
テストのため開くのは２つにしてありますが、あとは同様です。
コマンドボタン起動にしてあります。適当に変えて下さい。
Private Sub CommandButton1_Click()
Dim Ret As Long
Ret = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
Ret = ShellExecute(0, "open", "http://sports.yahoo.co.jp/", "", "", 1)
Ret = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
Ret = ShellExecute(0, "open", "http://travel.yahoo.co.jp/", "", "", 1)
End Sub
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
＜標準モジュールにコピペして下さい。＞
' API関数 「ShellExecute」
Declare Function ShellExecute _
Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd_ As Long) _
As Long
|
|
INA
- 03/9/11(木) 17:11 -
