指定したＵＲＬをブラウザで開く

目的

指定したＵＲＬをブラウザで開く。

ポイント

APIのShellExecuteを使用する。引数にインターネットアドレスを指定するとデフォルトのブラウザでサイトを開くことができる。

サンプルコード

Option Explicit

Private 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

Private Sub cmdGO_Click()
' 指定したＵＲＬをブラウザで開く

    ShellExecute Me.hwnd, "Open", "http://www.yahoo.com", _
                 vbNullString, App.Path, 1

End Sub

ソースのダウンロード