超级链接功能可以使程序具备直接访问Internet的能力,不少优秀的软件都提供直接访问Internet的功能。如金山词霸2000在它的系统桌面上提供互联网资源;Microsoft的应用程序在其帮助菜单中提供Microsoft on the Web,这都是在系统内部直接访问Internet的典型例子。
为了在应用程序中实现直接访问Internet功能,只要能在程序中控制启动Internet浏览器即可。在Visual FoxPro 6.0(以下简称VFP6.0)中,我们可以很容易地实现这一功能,这要使用VFP6.0的“超级链接”控件。首先介绍一下这个控件。
一、“超级链接”控件简介
“超级链接”控件(Hyperlink)是VFP6.0新增的一个标准的表单控件,它运行时不可视,主要有以下几个程序方法可供调用:
GoBack:向后执行历史记录列表中的超级链接跳转。 GoForward:向前执行历史记录列表中的超级链接跳转。 NavigateTo:向指定的目标执行超级链接跳转。
通过以上三个程序方法我们就可以很方便地在程序中实现超级链接功能。其中主要使用NavigateTo程序方法。它的使用格式是:Object.NavigateTo(cTarget),参数cTarget指定要定位的URL。
二、在表单中实现超级链接
在表单上添加一个“超级链接”控件,然后再添加一个命令按钮,在命令按钮的 Click 事件中通过调用“超级链接”控件的NavigateTo方法来启动Internet浏览器并实现向目标地址的跳转。也可以通过一个图片或一个标签的Click事件来实现这种跳转。
下面给出一个用命令按钮来启动超级链接的实例:
(1)新建一个表单(Form1),属性设置如下:
AutoCenter = .T.
Caption=”在表单中使用超级链接”
(2)通过表单控制工具栏在Form1上添加一个超级链接控件(Hyperlink1)和一个命令按钮Command1 ,设置Command1的Caption属性为:“链接到计算机世界网站”。
(3)在Command1的Click Event事件中写入代码:ThisForm.HyperLink1.NavigateTo("www.computerworld.com.cn")
(4)保存表单Form1,然后运行这个表单,当单击“链接到计算机世界网站”这个命令按钮时,就会启动Internet 浏览器并直接链接到http://www.computerworld.com.cn站点。
三、在菜单中实现超级链接
在用户自定义菜单中使用超级链接,可以实现通过菜单直接访问Internet站点的功能,使我们的程序更具吸引力。就象Microsoft Office帮助菜单中的Microsoft on the Web一样,我们可以在自己的程序菜单中加入系统开发者的技术支持网站链接;通过这种方法,也可以使我们的程序能为用户提供HTML格式的帮助,因为“超级链接”控件也支持对本地地址(Intranet)、或本机一个磁盘文件的链接。
因为“超级链接”控件是一个表单控件,它使用时需要一个表单对象来容纳,而我们在菜单中使用时通常不需要显示用户自定义表单,这里我们可以借助系统内存变量_SCREEN,在运行时添加一个“超级链接”控件对象到_SCREEN,然后在_SCREEN中调用“超级链接”控件的NavigateTo方法。 下面是一个在菜单中直接访问齐鲁石化公司网站的实例,首先设置一个菜单选项:访问齐鲁石化网站,然后为这个菜单选项创建一个过程,写入以下代码即可:
**在_SCREEN中添加一个HyperLink对象
_SCREEN.AddObject('oAppHyperLink','HyperLink')
**链接到http://www.qlsh.net地址
_SCREEN.oAppHyperLink.NavigateTo('www.qlsh.net')
**移去oAppHyperLink对象
_SCREEN.RemoveObject('oAppHyperLink')
RETURN
四、总结
在用VFP6.0开发的应用程序中,使用“超级链接”控件可以方便地跳转到 Internet 或 Intranet 的一个目标地址上。只要运行这个程序的客户端已配置好Internet 浏览器(例如:Microsoft Internet Explorer),并且具备访问Internet的条件,那么“超级链接”对象就会自动启动浏览器并打开地址中指定的页面。
关键词:VFP中完成超链接