av激情亚洲男人的天堂国语,日韩欧美精品一中文字幕,无码av一区二区三区无码,国产又色又爽又刺激的a片,国产又色又爽又刺激的a片

VB.NET超鏈接實現(xiàn)方法介紹

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超鏈接前,首先需要新建立一個模塊

然后再其中添加如下代碼 :

 
 
 
  1. Option Explicit  
  2. Public Const email = "support
    @online.com" 
  3. Public Const URL = "http://
    blog.csdn.net/flm2003/" 
  4. 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  
  5. Public Const SW_SHOWNORMAL = 1 
  6. Public Sub gotoweb()  
  7. Dim Success As Long  
  8. Success = ShellExecute(0&, 
    vbNullString, URL, vbNullString,
     "C:", SW_SHOWNORMAL)  
  9. End Sub  
  10. Public Sub sendemail()  
  11. Dim Success As Long  
  12. Success = ShellExecute(0&, vbNullString, 
    "mailto:" & email, vbNullString, 
    "C:", SW_SHOWNORMAL)  
  13. End Sub 

接著就簡單不過了!

在你所要進行超連接的窗體中,如實現(xiàn)LABEL的超連接

那就在LABEL的CLICK事件中加入 gotoweb或sendemail 即可完成VB.NET超鏈接!

【編輯推薦】

  1. VB.NET結(jié)構(gòu)化異常相關解決技巧分享
  2. 深入探討VB.NET創(chuàng)建臨時文件操作方法
  3. VB.NET公共運行環(huán)境配置要點解析
  4. VB.NET對象克隆的應用法則
  5. VB.NET集合存儲內(nèi)容解析

分享題目:VB.NET超鏈接實現(xiàn)方法介紹
本文來源:http://uogjgqi.cn/article/djigpeh.html
掃二維碼與項目經(jīng)理溝通

我們在微信上24小時期待你的聲音

解答本文疑問/技術(shù)咨詢/運營咨詢/技術(shù)建議/互聯(lián)網(wǎng)交流