VB中的超链接

Question

Shell "Start mailto:[email protected]"
Shell "start http://xxx.xxx.xxx"

Answer 1

试试，
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 LongPrivate Sub lblHomePage_Click()
   Dim ret As Long
   ret = ShellExecute(0, "open", "http://lumine.yeah.net", vbNullString, vbNullString, 0)End Sub

Answer 2

我建议你去http://www.kubao.com去看看，那里有源码