版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
10、LinkLabel
超链接标签,说实在的,刚开始使用这个控件的时候我以为直接设置了网址,然后不用代码就可以直接访问该网页,结果却是不行的,失望啊。
LinkLabel几个特殊的属性都类似于html语句中给链接加上css:
LinkBehavior:定义了链接显示的方式。以下值之一:
AlwaysUnderline 始终显示下划线
HoverUnderline 鼠标悬停时显示下划线
NeverUnderline 从不带下划线
SystemDefault 按照系统默认设置显示
ActiveLinkColor:活动链接的颜色
LinkColor:默认显示的颜色
VisitedLinkColor:已经访问过的链接的颜色
事件:
LinkClicked:点击标签时
最基本的代码:
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Process.Start("http://www.qqrec.com")
End Sub
也就是说,访问网页实际是靠Process.Start(以后会介绍)来访问的。
LinkLabel还有几个重要属性:
LinkArea:链接区域,默认是(0,text属性中字符串长度),大家可以尝试设置为别的值看看。
Links:没有在属性设置窗口内,这是一个LinkCollection类。
下面举例说明以上两个属性:
text:欢迎大家访问我的网站、博客,Csdn
LinkArea:(18,0),其实就是不选择链接区域

主要代码:
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
Dim links As LinkLabel.LinkCollection = LinkLabel1.Links
Dim mylink As New LinkLabel.Link
mylink.Name = "我的网站"
mylink.Start = 8
mylink.Length = 2
mylink.Description = "我的网站"
mylink.LinkData = "http://www.qqrec.com"
links.Add(mylink)
mylink = New LinkLabel.Link
mylink.Name = "我的博客"
mylink.Start = 11
mylink.Length = 2
mylink.Description = "我的博客"
mylink.LinkData = "http://blog.csdn.net/uruseibest"
links.Add(mylink)
links.Add(14, 4, "www.csdn.net")
End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Process.Start(e.Link.LinkData.ToString)
End Sub
以上代码设置了3不同的链接区域:分别对应我的网站、我的博客、Csdn网站。
当运行时,窗口上的LinkLabel和普通标签差不多,但是当我们按下按钮后就变为带有链接的标签了。而且
按下按钮后,根据不同的区域,链接的网址不同。

LinkClicked事件中e这个参数比较特殊,一是提供了点击链接时候的鼠标按键,二是代表了点击的Link。
注意从上面的代码可以看到,一个LinkLabel可以包含很多个Link的,实际使用的是已经设置的Link的LinkData属性。
另外需要注意的是:
(1)去掉代码中的 mylink = New LinkLabel.Link 这一行,系统会报错的。
(2)如果不是以www开头的网址要写全,加上“http://”,不然点击链接的时候会提示找不到关联程序(默认是浏览器)。
学习更多vb.net知识,请参看 vb.net 教程 目录
本文详细介绍了VB.NET中的LinkLabel控件及其用法,包括如何设置链接样式、颜色等属性,以及如何通过LinkClicked事件实现链接跳转功能。
1113

被折叠的 条评论
为什么被折叠?



