-
vfp教程之在VFP的应用程序中实现超级链接
超级链接功能可以使程序具备直接访问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的条件，那么“超级链接”对象就会自动启动浏览器并打开地址中指定的页面。
---- 本方法在Windows 98中文版+Visual FoxPro 6.0中文版环境下运行通过，浏览器使用Microsoft IE4.0。
---- 为了在应用程序中实现直接访问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的条件，那么“超级链接”对象就会自动启动浏览器并打开地址中指定的页面。
---- 本方法在Windows 98中文版+Visual FoxPro 6.0中文版环境下运行通过，浏览器使用Microsoft IE4.0。
最新更新
nodejs爬虫
Python正则表达式完全指南
爬取豆瓣Top250图书数据
shp 地图文件批量添加字段
爬虫小试牛刀（爬取学校通知公告）
【python基础】函数-初识函数
【python基础】函数-返回值
HTTP请求：requests模块基础使用必知必会
Python初学者友好丨详解参数传递类型
如何有效管理爬虫流量？
SQL SERVER中递归
2个场景实例讲解GaussDB(DWS)基表统计信息估
常用的 SQL Server 关键字及其含义
动手分析SQL Server中的事务中使用的锁
openGauss内核分析：SQL by pass & 经典执行
一招教你如何高效批量导入与更新数据
天天写SQL，这些神奇的特性你知道吗？
openGauss内核分析：执行计划生成
[IM002]Navicat ODBC驱动器管理器 未发现数据
初入Sql Server 之 存储过程的简单使用
这是目前我见过最好的跨域解决方案！
减少回流与重绘
减少回流与重绘
如何使用KrpanoToolJS在浏览器切图
performance.now() 与 Date.now() 对比
一款纯 JS 实现的轻量化图片编辑器
关于开发 VS Code 插件遇到的 workbench.scm.
前端设计模式——观察者模式
前端设计模式——中介者模式
创建型-原型模式