vb中的label控件可不可以加链接代码?

就是想在label控件上加代码,使其被点击的时候可以跳转到指定的网页,应该怎么做?

---

VB中可以给label控件加代码.但是你要添加乱清一个模板,在模块代码中输入下面内容:Option ExplicitPublic Const email = "abc@abc.com" '这个地址可以改成你自己的邮箱。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 LongPublic Const SW_SHOWNORMAL = 1Public Sub gotoweb()Dim Success As LongSuccess = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)End SubPublic Sub sendemail()Dim Success As LongSuccess = ShellExecute(0&, vbNullString, "mailto:" & email, vbNullString, "C:\"如哪, SW_SHOWNORMAL)End Sub然后在label的click事渣陪码件中调用.sendemail '调用模块中的sendemail,发送e-mailgotoweb '调用模块中的gotowed,转向网址

希望采纳

---