|
經常在一些軟件的安裝界面或關于界面上看到寫有出品軟件的公司的網址的標簽，如果鼠標點擊這個標簽就會彈出一個瀏覽器將你帶到該公司的主頁上去。其實要實現這一功能很簡單，只需要一個API函數就行了。那就是：ShellExecute。
首先在窗體的聲明段中輸入如下代碼：
Option Explicit
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 Const WEB = "http://newvb.126.com"
然后在標簽的Click事件中輸入下面的代碼：
Private Sub Label1_Click()
Dim HyperJump
HyperJump = ShellExecute(0&, vbNullString, WEB, vbNullString, vbNullString, vbNormalFocus)
End Sub
運行程序，用鼠標點擊該標簽，就會自動彈出一個瀏覽器把你帶到本站。
你還可以將標簽的Mousepointer屬性設為99，MouseIcon設為一個手一樣的圖標，鼠標移動到標簽上時就會變成一個手的形狀，這就更象超級鏈接了。
如果將上面的網址換成mailto:newvb@21cn.com，則會啟動一個電子郵件程序。多說一點，mailto:...這條語句中可以加上參數，例如：
mailto:newvb@21cn.com?subject=Broken%20Link 這條語句會將主題欄填上Broken Link。又比如：
mailto:newvb@21cn.com?subject=Broken%20Link＆body=Check%20your%20Links 這條語句又在將電子郵件的正文填成Check your Links。請記住，務必用%20來代替空格。如果你還想將這封信轉發給其他人就用CC或BCC參數。
|
