能不能编一个控件使一个label具有超连接的功能，要分我给！！

Question

能不能编一个控件使一个label具有超连接的功能,就是让label有一个属性，超连接到数据库中的一个文件？？
高人指导！！

Answer 1

Private Sub Label1_Click()
 brwWeb1.Navigate "http://www.sina.com.cn"
End Sub

Answer 2

Public Const URL = "http://www.dlsz.com"
Dim Success As Long
Success = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)
API：ShellExecute函数

Answer 3

Option ExplicitPrivate Sub Form_Load()
     Me.Label1.Caption = "HTTP://WWW.21CN.COM"
     Me.Label1.Font.Underline = True
     Me.Label1.ForeColor = RGB(0, 0, 255)
End SubPrivate Sub Label1_Click()
       RunFile Label1.Caption
End SubPublic Function RunFile(FilePath As String)
       Call Shell("rundll32.exe url.dll,FileProtocolHandler " & FilePath, 1)
End Function

Answer 4

把label的字體編程藍色，下面有下劃線就可以啦

Answer 5

就是。看上去像不就可以了？你还可以设置mousemove设置颜色，就更象了

Answer 6

作用户控件,增加两个属性即可uc.text="这是url"
uc.url="http://www.csdn.net"这样是不是更好一些
:)

Answer 7

Private sub Form1_load()
    Label1.FontUnderline = True
    Label1.caption = "http://www.163.com"
    Label1.ForeColor = vbBlue
End SubPrivate Sub Label1_Click()
Shell "explorer.exe http://www.163.com"
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (X > 50 And Label1.Width - X > 50) And (Y > 50 And Label1.Height - Y > 50) Then
    Label1.ForeColor = vbGreen
Else
    Label1.ForeColor = vbBlue
End If
End Sub

Answer 8

你自己可以编一个类似Lable的控件,加上一个超级链接的属性就OK了,技术难度不大