VB.NET超鏈接實現(xiàn)方法介紹
VB.NET超鏈接的實現(xiàn),對于大部分初學(xué)者來說還是比較容易的。我們可以通過本文給出的相關(guān)代碼編寫的解讀,并對其進(jìn)行實際編寫,來充分掌握這一應(yīng)用技巧,方便我們以后的應(yīng)用,提高編程效率。
在學(xué)習(xí)VB.NET超鏈接的實現(xiàn)方法之前,首先讓我們了解這門語言的特點:
1.代碼托管。被托管的代碼享受.netframework提供的安全保障和垃圾回收機(jī)制,但是這也同時表明,你的程序被框在Framework里面了。API變得不太方便。
2.強(qiáng)大的面向?qū)ο筇匦浴,F(xiàn)在VB7已經(jīng)是一個完全的面向?qū)ο蟪绦颉?/p>
現(xiàn)在VB7已經(jīng)支持類的各種特性:繼承,函數(shù)的覆蓋,重載,虛擬,隱藏……
3.功能強(qiáng)大,程序界面更標(biāo)準(zhǔn)。
4.程序代碼結(jié)構(gòu)化更強(qiáng),開發(fā)環(huán)境舒適體貼。
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
接著就簡單不過了!
在你所要進(jìn)行超連接的窗體中,如實現(xiàn)LABEL的超連接
那就在LABEL的CLICK事件中加入 gotoweb或sendemail 即可完成VB.NET超鏈接!
【編輯推薦】
- VB.NET結(jié)構(gòu)化異常相關(guān)解決技巧分享
- 深入探討VB.NET創(chuàng)建臨時文件操作方法
- VB.NET公共運行環(huán)境配置要點解析
- VB.NET對象克隆的應(yīng)用法則
- VB.NET集合存儲內(nèi)容解析