掃二維碼與項目經(jīng)理溝通
我們在微信上24小時期待你的聲音
解答本文疑問/技術(shù)咨詢/運營咨詢/技術(shù)建議/互聯(lián)網(wǎng)交流
VB.NET超鏈接的實現(xiàn),對于大部分初學者來說還是比較容易的。我們可以通過本文給出的相關代碼編寫的解讀,并對其進行實際編寫,來充分掌握這一應用技巧,方便我們以后的應用,提高編程效率。

在學習VB.NET超鏈接的實現(xiàn)方法之前,首先讓我們了解這門語言的特點:
1.代碼托管。被托管的代碼享受.netframework提供的安全保障和垃圾回收機制,但是這也同時表明,你的程序被框在Framework里面了。API變得不太方便。
2.強大的面向?qū)ο筇匦浴,F(xiàn)在VB7已經(jīng)是一個完全的面向?qū)ο蟪绦颉?/p>
現(xiàn)在VB7已經(jīng)支持類的各種特性:繼承,函數(shù)的覆蓋,重載,虛擬,隱藏……
3.功能強大,程序界面更標準。
4.程序代碼結(jié)構(gòu)化更強,開發(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
接著就簡單不過了!
在你所要進行超連接的窗體中,如實現(xiàn)LABEL的超連接
那就在LABEL的CLICK事件中加入 gotoweb或sendemail 即可完成VB.NET超鏈接!
【編輯推薦】

我們在微信上24小時期待你的聲音
解答本文疑問/技術(shù)咨詢/運營咨詢/技術(shù)建議/互聯(lián)網(wǎng)交流