h在VFP的應(yīng)用程序中實(shí)現(xiàn)超級鏈接
2000-03-21· 于平海·計(jì)算機(jī)世界日報(bào)

超級鏈接功能可以使程序具備直接訪問Internet的能力，不少優(yōu)秀的軟件都提供直接訪問Internet的功能。如金山詞霸2000在它的系統(tǒng)桌面上提供互聯(lián)網(wǎng)資源；Microsoft的應(yīng)用程序在其幫助菜單中提供Microsoft on the Web，這都是在系統(tǒng)內(nèi)部直接訪問Internet的典型例子。 

　　為了在應(yīng)用程序中實(shí)現(xiàn)直接訪問Internet功能，只要能在程序中控制啟動Internet瀏覽器即可。在Visual FoxPro 6.0（以下簡稱VFP6.0）中，我們可以很容易地實(shí)現(xiàn)這一功能，這要使用VFP6.0的“超級鏈接”控件。首先介紹一下這個控件。 

　　一、“超級鏈接”控件簡介 

　　“超級鏈接”控件（Hyperlink）是VFP6.0新增的一個標(biāo)準(zhǔn)的表單控件，它運(yùn)行時不可視，主要有以下幾個程序方法可供調(diào)用： 

　　GoBack：向后執(zhí)行歷史記錄列表中的超級鏈接跳轉(zhuǎn)。 

　　GoForward：向前執(zhí)行歷史記錄列表中的超級鏈接跳轉(zhuǎn)。 

　　NavigateTo：向指定的目標(biāo)執(zhí)行超級鏈接跳轉(zhuǎn)。 

　　通過以上三個程序方法我們就可以很方便地在程序中實(shí)現(xiàn)超級鏈接功能。其中主要使用NavigateTo程序方法。它的使用格式是：Object.NavigateTo(cTarget)，參數(shù)cTarget指定要定位的URL。 

　　二、在表單中實(shí)現(xiàn)超級鏈接 

　　在表單上添加一個“超級鏈接”控件，然后再添加一個命令按鈕，在命令按鈕的 Click 事件中通過調(diào)用“超級鏈接”控件的NavigateTo方法來啟動Internet瀏覽器并實(shí)現(xiàn)向目標(biāo)地址的跳轉(zhuǎn)。也可以通過一個圖片或一個標(biāo)簽的Click事件來實(shí)現(xiàn)這種跳轉(zhuǎn)。 

　　下面給出一個用命令按鈕來啟動超級鏈接的實(shí)例： 

　　（1）新建一個表單（Form1），屬性設(shè)置如下： 

 AutoCenter = .T. 
 Caption="在表單中使用超級鏈接”
　　（2）通過表單控制工具欄在Form1上添加一個超級鏈接控件（Hyperlink1）和一個命令按鈕Command1 ，設(shè)置Command1的Caption屬性為：“鏈接到計(jì)算機(jī)世界網(wǎng)站”。 

　　（3）在Command1的Click Event事件中寫入代碼： 

ThisForm.HyperLink1.NavigateTo("www.computerworld.com.cn")
　　（4）保存表單Form1，然后運(yùn)行這個表單，當(dāng)單擊“鏈接到計(jì)算機(jī)世界網(wǎng)站”這個命令按鈕時，就會啟動Internet 瀏覽器并直接鏈接到http://www.computerworld.com.cn站點(diǎn)。 

　　 三、在菜單中實(shí)現(xiàn)超級鏈接 

　　在用戶自定義菜單中使用超級鏈接，可以實(shí)現(xiàn)通過菜單直接訪問Internet站點(diǎn)的功能，使我們的程序更具吸引力。就象Microsoft Office幫助菜單中的Microsoft on the Web一樣，我們可以在自己的程序菜單中加入系統(tǒng)開發(fā)者的技術(shù)支持網(wǎng)站鏈接；通過這種方法，也可以使我們的程序能為用戶提供HTML格式的幫助，因?yàn)椤俺夋溄印笨丶仓С謱Ρ镜氐刂罚↖ntranet）、或本機(jī)一個磁盤文件的鏈接。 

　　因?yàn)椤俺夋溄印笨丶且粋€表單控件，它使用時需要一個表單對象來容納，而我們在菜單中使用時通常不需要顯示用戶自定義表單，這里我們可以借助系統(tǒng)內(nèi)存變量_SCREEN，在運(yùn)行時添加一個“超級鏈接”控件對象到_SCREEN，然后在_SCREEN中調(diào)用“超級鏈接”控件的NavigateTo方法。 

　　下面是一個在菜單中直接訪問齊魯石化公司網(wǎng)站的實(shí)例，首先設(shè)置一個菜單選項(xiàng)：訪問齊魯石化網(wǎng)站，然后為這個菜單選項(xiàng)創(chuàng)建一個過程，寫入以下代碼即可： 

**在_SCREEN中添加一個HyperLink對象
_SCREEN.AddObject('oAppHyperLink','HyperLink') 
**鏈接到http://www.qlsh.net地址 
_SCREEN.oAppHyperLink.NavigateTo('www.qlsh.net')
**移去oAppHyperLink對象
_SCREEN.RemoveObject('oAppHyperLink') 
RETURN
　　四、總結(jié) 

　　在用VFP6.0開發(fā)的應(yīng)用程序中，使用“超級鏈接”控件可以方便地跳轉(zhuǎn)到 Internet 或 Intranet 的一個目標(biāo)地址上。只要運(yùn)行這個程序的客戶端已配置好Internet 瀏覽器（例如：Microsoft Internet Explorer），并且具備訪問Internet的條件，那么“超級鏈接”對象就會自動啟動瀏覽器并打開地址中指定的頁面。 
 


{ 參與CNNIC有獎?wù){(diào)查，申請十佳網(wǎng)站評選投票權(quán)，請支持天極網(wǎng)！}


 相關(guān)內(nèi)容 


 相關(guān)鏈接 

 更多的 ttp://computerworld.beijing.cn.net/99/tips/class.asp?class=12