コマンドボタンクリックでリンクを開くには？

解決

ペンギン 2004-02-27 01:15:39 No: 112084

コマンドボタンをクリックすると、Yahooなどのホームページを開くようにしたいのですが、できるのでしょうか？

ご教授よろしくお願いします。

かな 2004-02-27 01:35:21 No: 112085

簡単な例ですが…
・form1、command1をつくる。
・↓これをはる
Option Explicit

'ブラウザでURLを開くためのAPI宣言
Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" _
   (ByVal hWnd As Long, _
    ByVal lpVerb As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Const strMyHomepage As String = "http://www.yahoo.co.jp/"

Private Sub Command1_Click()
Dim lngReturn As Long
lngReturn = ShellExecute(Me.hWnd, _
"open", strMyHomepage, vbNullChar, vbNullChar, 1)
End Sub

もっといい方法があるかもしれませんが、ご参考まで。

ペンギン 2004-02-27 17:27:09 No: 112086

ありがとうございました。