LinkLabel几个特殊的属性都类似于html语句中给链接加上css:
LinkBehavior:定义了链接显示的方式。以下值之一:
AlwaysUnderline 始终显示下划线
HoverUnderline 鼠标悬停时显示下划线
NeverUnderline 从不带下划线
SystemDefault 按照系统默认设置显示
ActiveLinkColor:活动链接的颜色
LinkColor:默认显示的颜色
VisitedLinkColor:已经访问过的链接的颜色
事件:
LinkClicked:点击标签时
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还有几个重要属性:
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
按下按钮后,根据不同的区域,链接的网址不同。
LinkClicked事件中e这个参数比较特殊,一是提供了点击链接时候的鼠标按键,二是代表了点击的Link。
另外需要注意的是:
(1)去掉代码中的 mylink = New LinkLabel.Link 这一行,系统会报错的。
学习更多vb.net知识,请参看
vb.net 教程 目录
原文链接:https://www.f2er.com/vb/256669.html