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