VB.NET超链接的实现,对于大部分初学者来说还是比较容易的。我们可以通过本文给出的相关代码编写的解读,并对其进行实际编写,来充分掌握这一应用技巧,方便我们以后的应用,提高编程效率。
在学习VB.NET超链接的实现方法之前,首先让我们了解这门语言的特点:
1.代码托管。被托管的代码享受.netframework提供的安全保障和垃圾回收机制,但是这也同时表明,你的程序被框在Framework里面了。API变得不太方便。
2.强大的面向对象特性。现在VB7已经是一个完全的面向对象程序。
现在VB7已经支持类的各种特性:继承,函数的覆盖,重载,虚拟,隐藏……
3.功能强大,程序界面更标准。
4.程序代码结构化更强,开发环境舒适体贴。
VB.NET超链接前,首先需要新建立一个模块
然后再其中添加如下代码 :
- Option Explicit
- Public Const email = "support
@online.com"- Public Const URL = "http://
blog.csdn.net/flm2003/"- Public Declare Function
ShellExecute Lib "shell32.dll"
Alias "ShellExecuteA" (ByVal hwnd
As Long, ByVal lpOperation As String,
ByVal lpFile As String, ByVal lpParameters
As String, ByVal lpDirectory As
String, ByVal nShowCmd As Long) As Long- Public Const SW_SHOWNORMAL = 1
- Public Sub gotoweb()
- Dim Success As Long
- Success = ShellExecute(0&,
vbNullString, URL, vbNullString,
"C:", SW_SHOWNORMAL)- End Sub
- Public Sub sendemail()
- Dim Success As Long
- Success = ShellExecute(0&, vbNullString,
"mailto:" & email, vbNullString,
"C:", SW_SHOWNORMAL)- End Sub
接着就简单不过了!
在你所要进行超连接的窗体中,如实现LABEL的超连接
那就在LABEL的CLICK事件中加入 gotoweb或sendemail 即可完成VB.NET超链接!
【编辑推荐】