如何在label中做超链接？

Question

ShellExeCute Me.Hwnd,"Open","http://www.csdn.net",vbNullString,vbNullString,3

Answer 1

vb.net 中有这样的控件。学vb.net吧

Answer 2

Option Explicit
Dim MouseNotExit As BooleanPrivate Sub Label1_Click()
    Dim pID As Long
    If MouseNotExit Then
        'pID = Shell("Notepad", vbNormalFocus) ' Shell ?回 Process Id
        pID = Shell("explorer.exe Http://www.yahoo.co.jp", vbNormalFocus) ' Shell ?回 Process Id
    End If
    
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseNotExit = (400 <= X) And (X <= Label1.Width - 400) And (50 <= Y) And (Y <= Label1.Height - 50)If MouseNotExit Then    Me.Label1.ForeColor = &HFF0000
    'SetCapture Picture1.hWnd
Else
    'ReleaseCapture
    Me.Label1.ForeColor = &H0End IfEnd Sub

Answer 3

vb.net功能更强大！网站的技术几乎都可以实现！不用去记那么多API函数了！

Answer 4

最土的方法---自己画思路是1。label.caption = www.xxxxxx.com
2。鼠标移动到label上边，字体变色，加下划线，如有可能鼠标形状变为手型
3。点击鼠标左健，字体变色，启动ie(见上面大虾的回答)
4。鼠标移开，恢复原状（别忘了判断是否按下左健移开的）。