用VFP中实现超链接

超链接功能可以让程序具备直接访问互联网的能力，很多优秀的软件都提供了直接访问互联网的功能。比如金山2000在其系统桌面提供互联网资源；微软的应用程序在其帮助菜单中提供了Microsoft on the Web，这是在系统内直接访问互联网的典型例子。
为了在应用中实现直接访问互联网的功能，只需要在程序中启动互联网浏览器即可。在Visual FoxPro 6.0(以下简称VFP6.0)中，利用VFP6.0的“超链接”控件，我们可以很容易地实现这个功能，首先介绍一下这个控件。
一、超链接控件简介
超链接控件是VFP6.0中新增的标准表单控件，运行时不可见，主要有以下几种程序方法可以调用:
GoBack:向后执行历史列表中的超链接跳转。GoForward:向前执行历史列表中的超链接跳转。NavigateTo:执行到指定目标的超链接跳转。
通过以上三种程序方法，我们可以很容易地实现程序中的超链接功能。主要使用导航到程序方法。它的格式是:Object。NavigateTo(cTarget)，参数cTarget指定要定位的URL。
二。在窗体中实现超链接
在窗体上添加一个“hyperlink”控件，然后添加一个命令按钮。在命令按钮的Click事件中，启动Internet浏览器并通过调用“hyperlink”控件的NavigateTo方法跳转到目标地址。这种跳转也可以通过一个图片或者一个标签的点击事件来实现。
下面是一个用命令按钮启动超链接的例子:
(1)新建一个表单(Form1)，属性设置如下:
autocenter =。T.
Caption = "在表单中使用超链接"
(2)通过表单控件工具栏在Form1上添加一个超链接控件(Hyperlink1)和一个命令按钮Command1，并将Command1的Caption属性设置为“链接到计算机世界网站”。
(3)编写代码:this form . hyperlink 1 . navigate to(" www . Computer World . com . cn ")在Command1的Click事件事件中
(4)保存表单Form1，然后运行此表单，当您单击命令按钮“链接到计算机世界网站”时，您将启动Internet浏览器并直接链接到http://www.computerworld.com.cn网站。
三。在菜单中实现超链接
利用自定义菜单中的超链接，可以实现通过菜单直接访问互联网站的功能，使我们的程序更具吸引力。就像微软Office帮助菜单中的Web上的微软一样，我们可以在自己的程序菜单中添加系统开发者的技术支持网站的链接；这样，我们的程序也可以帮助HTML格式的用户，因为“超链接”控件也支持链接到本地地址(内部网)或本地磁盘文件。
因为“超链接”控件是一个表单控件，使用时需要一个form对象来持有，但是我们在菜单中使用时通常不需要显示用户自定义的表单。这里我们可以借助系统内存变量_SCREEN在运行时给_SCREEN添加一个“超链接”控件对象，然后在_SCREEN中调用“超链接”控件的NavigateTo方法。以下是在菜单中直接访问齐鲁石化公司网站的例子。首先设置一个菜单选项:访问齐鲁石化的网站，然后为这个菜单选项创建一个程序。只需编写以下代码:
**添加一个超链接对象
_ screen . Add object(' oapphyperlink ')in _ screen，HyperLink')
**链接到http://www.qlsh.net地址
_ screen . oapp HyperLink . navigate to(' www . qlsh . net ')
* *删除oapp HyperLink对象
_ screen . Remove object(' oapp HyperLink ')
return
IV .Summary
在用VFP6.0开发的应用程序中，使用“超链接”控件可以很容易地跳转到Internet或Intranet上的目标地址。只要运行该程序的客户端已经配置了其Internet浏览器(例如，Microsoft Internet Explorer)并且可以访问Internet，Hyperlink对象将自动启动浏览器并打开地址中指定的网页。