在VFP的應(yīng)用程序中完成超級(jí)鏈接
發(fā)表時(shí)間:2024-06-18 來(lái)源:明輝站整理相關(guān)軟件相關(guān)文章人氣:
[摘要]超級(jí)鏈接功能可以使程序具備直接訪問(wèn)Internet的能力,不少優(yōu)秀的軟件都提供直接訪問(wèn)Internet的功能。如金山詞霸2000在它的系統(tǒng)桌面上提供互聯(lián)網(wǎng)資源;Microsoft的應(yīng)用程序在其幫助菜單中提供Microsoft on the Web,這都是在系統(tǒng)內(nèi)部直接訪問(wèn)Internet的典型例子...
超級(jí)鏈接功能可以使程序具備直接訪問(wèn)Internet的能力,不少優(yōu)秀的軟件都提供直接訪問(wèn)Internet的功能。如金山詞霸2000在它的系統(tǒng)桌面上提供互聯(lián)網(wǎng)資源;Microsoft的應(yīng)用程序在其幫助菜單中提供Microsoft on the Web,這都是在系統(tǒng)內(nèi)部直接訪問(wèn)Internet的典型例子。
---- 為了在應(yīng)用程序中實(shí)現(xiàn)直接訪問(wèn)Internet功能,只要能在程序中控制啟動(dòng)Internet瀏覽器即可。在Visual FoxPro 6.0(以下簡(jiǎn)稱VFP6.0)中,我們可以很容易地實(shí)現(xiàn)這一功能,這要使用VFP6.0的“超級(jí)鏈接”控件。首先介紹一下這個(gè)控件。
---- 一、“超級(jí)鏈接”控件簡(jiǎn)介
---- “超級(jí)鏈接”控件(Hyperlink)是VFP6.0新增的一個(gè)標(biāo)準(zhǔn)的表單控件,它運(yùn)行時(shí)不可視,主要有以下幾個(gè)程序方法可供調(diào)用:
---- GoBack:向后執(zhí)行歷史記錄列表中的超級(jí)鏈接跳轉(zhuǎn)。
---- GoForward:向前執(zhí)行歷史記錄列表中的超級(jí)鏈接跳轉(zhuǎn)。
---- NavigateTo:向指定的目標(biāo)執(zhí)行超級(jí)鏈接跳轉(zhuǎn)。
---- 通過(guò)以上三個(gè)程序方法我們就可以很方便地在程序中實(shí)現(xiàn)超級(jí)鏈接功能。其中主要使用NavigateTo程序方法。它的使用格式是:Object.NavigateTo(cTarget),參數(shù)cTarget指定要定位的URL。
---- 二、在表單中實(shí)現(xiàn)超級(jí)鏈接
---- 在表單上添加一個(gè)“超級(jí)鏈接”控件,然后再添加一個(gè)命令按鈕,在命令按鈕的 Click 事件中通過(guò)調(diào)用“超級(jí)鏈接”控件的NavigateTo方法來(lái)啟動(dòng)Internet瀏覽器并實(shí)現(xiàn)向目標(biāo)地址的跳轉(zhuǎn)。也可以通過(guò)一個(gè)圖片或一個(gè)標(biāo)簽的Click事件來(lái)實(shí)現(xiàn)這種跳轉(zhuǎn)。
---- 下面給出一個(gè)用命令按鈕來(lái)啟動(dòng)超級(jí)鏈接的實(shí)例:
---- (1)新建一個(gè)表單(Form1),屬性設(shè)置如下:
AutoCenter = .T.
Caption=”在表單中使用超級(jí)鏈接”
---- (2)通過(guò)表單控制工具欄在Form1上添加一個(gè)超級(jí)鏈接控件(Hyperlink1)和一個(gè)命令按鈕Command1 ,設(shè)置Command1的Caption屬性為:“鏈接到計(jì)算機(jī)世界網(wǎng)站”。
---- (3)在Command1的Click Event事件中寫(xiě)入代碼:
ThisForm.HyperLink1.NavigateTo("www.computerworld.com.cn")
---- (4)保存表單Form1,然后運(yùn)行這個(gè)表單,當(dāng)單擊“鏈接到計(jì)算機(jī)世界網(wǎng)站”這個(gè)命令按鈕時(shí),就會(huì)啟動(dòng)Internet 瀏覽器并直接鏈接到http://www.computerworld.com.cn站點(diǎn)。
---- 三、在菜單中實(shí)現(xiàn)超級(jí)鏈接
---- 在用戶自定義菜單中使用超級(jí)鏈接,可以實(shí)現(xiàn)通過(guò)菜單直接訪問(wèn)Internet站點(diǎn)的功能,使我們的程序更具吸引力。就象Microsoft Office幫助菜單中的Microsoft on the Web一樣,我們可以在自己的程序菜單中加入系統(tǒng)開(kāi)發(fā)者的技術(shù)支持網(wǎng)站鏈接;通過(guò)這種方法,也可以使我們的程序能為用戶提供HTML格式的幫助,因?yàn)椤俺?jí)鏈接”控件也支持對(duì)本地地址(Intranet)、或本機(jī)一個(gè)磁盤(pán)文件的鏈接。
---- 因?yàn)椤俺?jí)鏈接”控件是一個(gè)表單控件,它使用時(shí)需要一個(gè)表單對(duì)象來(lái)容納,而我們?cè)诓藛沃惺褂脮r(shí)通常不需要顯示用戶自定義表單,這里我們可以借助系統(tǒng)內(nèi)存變量_SCREEN,在運(yùn)行時(shí)添加一個(gè)“超級(jí)鏈接”控件對(duì)象到_SCREEN,然后在_SCREEN中調(diào)用“超級(jí)鏈接”控件的NavigateTo方法。
---- 下面是一個(gè)在菜單中直接訪問(wèn)齊魯石化公司網(wǎng)站的實(shí)例,首先設(shè)置一個(gè)菜單選項(xiàng):訪問(wèn)齊魯石化網(wǎng)站,然后為這個(gè)菜單選項(xiàng)創(chuàng)建一個(gè)過(guò)程,寫(xiě)入以下代碼即可:
**在_SCREEN中添加一個(gè)HyperLink對(duì)象
_SCREEN.AddObject('oAppHyperLink','HyperLink')
**鏈接到http://www.qlsh.net地址
_SCREEN.oAppHyperLink.NavigateTo('www.qlsh.net')
**移去oAppHyperLink對(duì)象
_SCREEN.RemoveObject('oAppHyperLink')
RETURN
---- 四、總結(jié)
---- 在用VFP6.0開(kāi)發(fā)的應(yīng)用程序中,使用“超級(jí)鏈接”控件可以方便地跳轉(zhuǎn)到 Internet 或 Intranet 的一個(gè)目標(biāo)地址上。只要運(yùn)行這個(gè)程序的客戶端已配置好Internet 瀏覽器(例如:Microsoft Internet Explorer),并且具備訪問(wèn)Internet的條件,那么“超級(jí)鏈接”對(duì)象就會(huì)自動(dòng)啟動(dòng)瀏覽器并打開(kāi)地址中指定的頁(yè)面。
---- 本方法在Windows 98中文版+Visual FoxPro 6.0中文版環(huán)境下運(yùn)行通過(guò),瀏覽器使用Microsoft IE4.0。