FoxPro 6.0中，我们也可以很容易地实现这一功能，这就要使用VFP 6.0的“超级链接”控件。

　　一、“超级链接”控件简介

　　“超级链接”控件（Hyperlink）是VFP 6.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.ciw.com.cn″)

　　4.保存表单Form1，然后运行这个表单，当单击“链接到中国计算机报网站”这个命令按钮时，就会启动Internet 浏览器并直接链接到http://www.ciw.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的条件，那么“超级链接”对象就会自动启动浏览器并打开地址中指定的页面。

　　本方法在Windows 98中文版、Visual FoxPro 6.0中文版环境下运行通过。

标签：