|
IEを5個起動するのですよね?
いま適当に考えて作ってみました。一応、目的の動作はするみたいです。
テストのため開くのは2つにしてありますが、あとは同様です。
コマンドボタン起動にしてあります。適当に変えて下さい。
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
|
|