# Re: 如何在表单上显示一段网址，点取后开起浏览器连结

Posted by Honey on March 16, 1999 at 23:25:03:

In Reply to: 如何在表单上显示一段网址，点取后开起浏览器连结 posted by VB好奇者 on March 06, 1999 at 01:10:25:

在表单上放一个label1然后贴上以下程式码
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
Const SW_SHOW = 5
Private Sub Form_Load()
Label1.Caption = "honey0@tcts1.seed.net.tw"
End Sub
Private Sub Label1_Click()
Call ShellExecute(Me.hwnd, "open", _
"mailto:honey0@tcts1.seed.net.tw", "", _
"", SW_SHOW)

End Sub

Follow Ups: