关闭

vb.net2005 LinkLabel1的使用

1599人阅读 评论(1) 收藏 举报
With Me.LinkLabel1
            .AutoSize 
= True
            .Text 
= "百度,谷歌,新浪"
            .LinkBehavior 
= LinkBehavior.HoverUnderline
            .LinkColor 
= Color.BlueViolet
            .LinkArea 
= New Windows.Forms.LinkArea(02)
            .Links(
0).LinkData = "http://www.baidu.com"
            .Links.Add(
32"http://www.google.com")
            .Links.Add(
62"欢迎使用新浪网")


        
End With

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        
'System.Diagnostics.Process.Start(e.Link.LinkData.ToString)
        Me.LinkLabel1.Links(Me.LinkLabel1.Links.IndexOf(e.Link)).Visited = True
        
If e.Link.LinkData.ToString <> Nothing And e.Link.LinkData.ToString.StartsWith("http"Then
            System.Diagnostics.Process.Start(e.Link.LinkData.ToString)
        
Else
            MessageBox.Show(
"你按下的是:" & e.Link.LinkData.ToString, "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        
End If
    
End Sub
 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:72365次
    • 积分:1119
    • 等级:
    • 排名:千里之外
    • 原创:36篇
    • 转载:12篇
    • 译文:0篇
    • 评论:11条
    最新评论