怎么样做超级链接？

Question

用一个Label,在其click事件中调用api函数ShellExecute,具体参数在Msdn上有详细解释

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 Long然后在要执行的代码段使用：
ShellExecute(Me.hwnd, vbNullString, "mailto:[email protected]", vbNullString, vbNullString,0&)
http的使用：
ShellExecute(Me.hwnd, vbNullString,"http://www.yahoo.com", vbNullString, vbNullString,0&)

Answer 2

哦，如果没有一个long型的变量接收返回值，应该把 ShellExecute 后的一对括号去掉。

Answer 3

窗体的声明部分：
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然后在要执行的代码段使用：
ShellExecute Me.hwnd, vbNullString, "mailto:[email protected]", vbNullString, vbNullString,0&
http的使用：
ShellExecute Me.hwnd, vbNullString,"http://www.yahoo.com", vbNullString, vbNullString,0&

Answer 4

我想在鼠标移动到label上就变成蓝色，当鼠标移走再变回来!

Answer 5

在Form_MouseMove事件中加入：
If X < Label1.Left + Label1.Width And X > Label1.Left And Y < Label1.Height +   Label1.Top And Y > Label1.Top Then
Else
    Label1.ForeColor = vbBlack
End If
在Label1_MouseMove事件中加入：
    Label1.ForeColor = vbBlue