超级链接功能可以使程序具备直接访问Internet的能力，不少软件都提供直接访问Internet的功能。
如金山词霸2000在它的系统桌面上提供互联网资源；Microsoft的应用程序在其帮助菜单中提供Microsoft
on the Web，这都是在系统内部直接访问Internet的典型例子。
在Visual FoxPro 6.0中，有一个“超级链接”表单控件。我们使用这个控件可以很容易地实现这一功能。
一、在表单中实现超级链接
在表单上添加一个“超级链接”控件，然后再添加一个标签控件，在标签控件的 Click 事件中通过
调用“超级链接”控件的NavigateTo方法来启动Internet浏览器并实现向目标地址的跳转。
下面给出一个用标签控件来启动超级链接的实例：
（1）新建一个表单（Form1）。
（2）通过表单控制工具栏在Form1上添加一个超级链接控件（Hyperlink1）和一个标签控件(LABEL1) ，
设置LABEL1的Caption属性为：“蓝天统计窗网站”。
（3）在LABEL1的Click Event事件中写入代码：
ThisForm.HyperLink1.NavigateTo("http://www.sdtj.gov.cn/tj123/")
（4）保存表单Form1，然后运行这个表单，当单击“蓝天统计窗网站”这个标签控件时，就会启动
Internet 浏览器并直接链接到http://www.sdtj.gov.cn/tj123/站点。
要实现象网页中的超级链接的效果，还需作下列优化：
（1）使文字“蓝天统计窗网站”为蓝色，设置LABEL1的FORECOLOR属性为：0，0，225
（2）鼠标移到文字“蓝天统计窗网站”时，鼠标变为手型，设置LABEL1的MOUSEICON属性为：handm.cur
注：handm.cur是手型图标文件
（3）鼠标移到文字“蓝天统计窗网站”时，文字变为红色，在LABEL1的MOUSEMOVE EVENT 方法程序中写入以下代码：
LPARAMETERS nButton, nShift, nXCoord, nYCoord
Thisform.label9.ForeColor=RGB(255,0,0)
二、在菜单中实现超级链接
在用户自定义菜单中使用超级链接，可以实现通过菜单直接访问Internet站点的功能，使我们的程序
更具吸引力。就象Microsoft Office帮助菜单中的Microsoft on the Web一样，我们可以在自己的程序菜
单中加入系统开发者的技术支持网站链接。下面是我的表格程序在菜单中直接访问蓝天统计窗网站的实例
，首先设置一个菜单选项，菜单名称：链接主页，菜单命令：do wyURL;然后创建一个名为：wyURL.prg
过程，写入以下代码即可：
_screen.addobject('oapphyperlink','hyperlink')
_screen.oapphyperlink.navigateto('http://www.sdtj.gov.cn/tj123/')
_screen.removeobject('oapphyperlink')
retu
|
