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

[temper123]

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

[xzp1030]

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

[fuanwei]

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

[华芸智森]

Option Explicit

Private Sub Form_Load()
Me.Label1.Caption = "HTTP://WWW.21CN.COM"
Me.Label1.Font.Underline = True
Me.Label1.ForeColor = RGB(0, 0, 255)
End Sub

Private Sub Label1_Click()
RunFile Label1.Caption
End Sub

Public Function RunFile(FilePath As String)
Call Shell("rundll32.exe url.dll,FileProtocolHandler " & FilePath, 1)
End Function

[高高兴兴的晶晶]

用shell搞定
直接调用ie

[daisy8675]

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

[啊维]

对,同意楼上

[wjq]

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

[online]

作用户控件,增加两个属性即可

uc.text="这是url"
uc.url="http://www.csdn.net"

这样是不是更好一些
:)

[qiqunet]

Private sub Form1_load()
Label1.FontUnderline = True
Label1.caption = "http://www.163.com"
Label1.ForeColor = vbBlue
End Sub

Private Sub Label1_Click()
Shell "explorer.exe http://www.163.com"
End Sub

Private 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

[tangxiaosan001]

up

[tztz520]

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