使用API函數ShellExecute可以調用外部默認的瀏覽器和電子郵件工具來打開一個超鏈接和和發送一個電子郵件。

為了學習方便，提供的源碼已經作了詳細的中文注釋，看看源碼框中的代碼：

-------------------------------------------
在程序中加入超鏈接和發送電子郵件
-------------------------------------------
洪恩在線 求知無限
-------------------------------------------
程序說明：
例子使用ShellExecute函數，調用默認的外部瀏覽器
和電子郵件工具來瀏覽網頁和發送電子郵件。
-------------------------------------------
【VB聲明】

Private 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

【說明】
查找與指定文件關聯在一起的程序的文件名

【返回值】
Long，非零表示成功，零表示失敗。會設置GetLastError

【參數表】
hwnd ----------- Long，指定一個窗口的句柄，有時候，windows程序有必要在創建自己的主窗口前顯示一個消息框

lpOperation ---- String，指定字串“open”來打開lpFlie文檔，或指定“Print”來打印它

lpFile --------- String，想用關聯程序打印或打開一個程序名或文件名

lpParameters --- String，如lpszFlie是可執行文件，則這個字串包含傳遞給執行程序的參數

lpDirectory ---- String，想使用的完整路徑

nShowCmd ------- Long，定義了如何顯示啟動程序的常數值。

Private 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 Private Sub Label2_Click() Call ShellExecute(Form1.hwnd, "open", "http://www.hongen.com", vbNullString, vbNullString, &H0) End Sub Private Sub Label4_Click() Call ShellExecute(Form1.hwnd, "Open", "mailto:[email protected]", "", App.Path, 1) End Sub

(源程序下載)

先在程序中加入如下的聲明后，就能引用這個API函數：

Private 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

其中各個參數的意義如下表所示：

參數 意義

hwnd Long，指定一個窗口的句柄，有時windows程序要在創建自己的主窗口前顯示一個消息框

lpOperation String，指定字串“open”來打開lpFlie文檔，或指定“Print”來打印它

lpFile String，想用關聯程序打印或打開一個程序名或文件名

lpParameters String，如lpszFlie是可執行文件，則這個字串包含傳遞給執行程序的參數

lpDirectory String，想使用的完整路徑

nShowCmd Long，定義了如何顯示啟動程序的常數值

比如我們要使用IE打開標簽中的超鏈接，則我們可以在標簽的Click()過程中加入如下一句代碼：

Call ShellExecute(Form1.hwnd, "open", "http://www.hongen.com", vbNullString, vbNullString, &H0)

其中http://www.hongen.com是要打開的超鏈接，"open"是采用打開的方法，&H0表示用默認程序IE打開時，IE窗口可見。

又比如我們要打開默認的電子郵件工具發送郵件，則使用下面語句：

Call ShellExecute(Form1.hwnd, "Open", "mailto:[email protected]", "", App.Path, 1)

最后我們設置標簽Label的字體為下劃線，MouseIcon選擇一個小手狀的圖標，把MousePointer設為99-Custom，這樣就能模擬超鏈接的效果了。