資訊好好玩

0愛的鼓勵 0訂閱站台

使用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:ketang.pc@goldhuman.com", "", 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:ketang.pc@goldhuman.com", "", App.Path, 1)

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