vb中的label控件怎么添加链接代码?

VB程序设计中是能够给label的控件添加代码.但是首先你得添加一个模板,并且在模块的代码中键入以下代码:

Option Explicit

Public Const email = "[email protected]"

'这里的地址是能够修改为你的个人邮箱。

Public Const URL = http://www.abc.com

'在这里键入链接

Public

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

Public Const SW_SHOWNORMAL = 1

Public Sub gotoweb()

Dim Success As Long

Success = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)

End Sub

Public Sub sendemail()

Dim Success As Long

Success = ShellExecute(0&, vbNullString, "mailto:" &email, vbNullString, "C:\", SW_SHOWNORMAL)

End Sub

然后在label的click事件中调用.

sendemail '调用模块中的sendemail,发送e-mail

gotoweb

'调用模块中的gotowed,转向网址

手打原创内容，希望能够帮到你！

标签做超链接的代码示例：

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 Form_Load()

With Label1

.Caption = "申请帐号"

.Font.Underline = True

.ForeColor = vbBlue

End With '修改标签的属性

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.ForeColor = vbBlue

End Sub '在把鼠标移到标签上时标签显示为蓝色

Private Sub Label1_Click()

ShellExecute Me.hwnd, "open", "http://www.baidu.com/", "", "", 5 ’www.baidu.com可以改成你的网页

End Sub '点击标签时打开相应的网页。

---