基于数据库的表单设计程序实现超级链接控件与互联网对接

 c.“编程入门网”标签label1的click事件代码：thisform.HyperLink1.NavigateTo（"www.bianceng.cn"）
        d.“关于本站”命令按钮command1的click事件代码：
        hwnd=_WhToHwnd（_Wontop（））
        =shellAbout（hWnd,"编程入门网","欢迎访问网站：",0）
        e.列表框控件list1的click事件代码：
        do case this.listindex
        case this.selected（1）&&访问微软MSDN主页
        thisform.Hyperlink1.NavigateTo（"msdn.microsoft.com"）
        case this.selected（2）&&访问CSDN网站
        thisform.Hyperlink1.NavigateTo（"www.csdn.net"）
        case this.selected（3）&&访问天极
        thisform.Hyperlink1.NavigateTo（"www.yesky.com"）
        case this.selected（4）&&访问编程入门网
        thisform.Hyperlink1.NavigateTo（"www.bianceng.cn"）
        endcase　
        （8）运行“表单1.scx”。（可用快捷键ctrl+E）
        总而言之，超级链接功能可以使程序具备直接访问的能力，不少优秀的软件都提供直接访问Internet的功能。如金山词霸2000在它的系统桌面上提供互联网资源；其应用程序在其帮助菜单中提供MicrosoftontheWeb，这都是在系统内部直接访问Internet的典型例子。
        为了在应用程序中实现直接访问Internet功能，只要能在程序中控制启动Internet浏览器即可。在Visual foxpro6.0（以下简称VFP6.0）中，我们可以很容易地实现这一功能，这要使用VFP6.0的“超级链接”控件。
        下面给出一个用命令按钮来启动超级链接。
        （1）新建一个表单（Form1），属性设置如下：
        AutoCenter=.T.
        Caption=”在表单中使用超级链接”
        （2）通过表单控制工具栏在Form1上添加一个超级链接控件（Hyperlink1）和一个命令按钮Command1，设置Command1的Caption属性为：“链接到计算机世界网站”。
        （3）在Command1的ClickEvent事件中写入代码：ThisForm.HyperLink1.NavigateTo
        （4）保存表单Form1，然后运行这个表单，当单击“链接到计算机世界网站”这个命令按钮时，就会启动Internet浏览器并直接链接到站点。首先设置一个菜单选项，然后为这个菜单选项创建一个过程，写入以下代码即可：
        在_SCREEN中添加一个HyperLink对象
        _SCREEN.AddObject
        链接到http://www.qlsh.net地址
        _SCREEN.oAppHyperLink.NavigateTo移去oAppHyperLink对象
        _SCREEN.RemoveObject
        RETURN
        用VFP6.0开发的应用程序中，使用“超级链接”控件可以方便地跳转到Internet或Intranet的一个目标地址上。只要运行这个程序的客户端Internet浏览器（例如：MicrosoftInternet），并且具备访问Internet的条件，那么“超级链接”对象就会自动启动浏览器并打开地址中指定的页面。
参考文献
[1]何安东，程显林.数据库系统及应用教程[M].北京：石油工业出版社.