超级链接控件（HyperLink）不象文本框、命令按钮等控件那样常用，一般是在制作软件的“关于”表单的时候能够用到它。这个控件的最常用的方法是NavigateTo（指定要打开的网址），本文来做一个关于这个控件的例子，运行时如下图：

在上图中：

单击了蓝色标签文字会直接打开“编程入门网”；

单击了“关于本站”按钮，则会使用api函数调用Windows系统的“关于”窗体（用到了FOXTOOLS.FLL库，在随文的源码中有）。

单击了“关于本站”下方的链接，则可打开对应的网站。

另外本例中的超级链接控件是在表单init时用addobject函数添加上去的，列表框中的列表项也是在此事件中添加的。当然也可以在设计时在表单设计器中进行设置，如果要这样做的话，就得把表单init事件中对应的代码去掉。

制作步骤如下：

一、新建表单，将其Autocenter属性值设置为.t.，保存为“表单1.scx”。

二、向表单添加一个标签控件label1，caption属性值设为“编程入门网”，fontbold属性值设为.t.，fontsize属性值设为12，forcolor属性值设置为“0,0,255”(rgb颜色)。

三、向表单上添加一个命令按钮控件command1，caption属性值设为“关于本站”。

四、向表单上添加一个标签控件label2，caption属性值设为“访问指定网站”。

五、向表单添加一个列表框控件list1，采用其默认属性值。

六、适当调整控件、大小及在表单上的位置，表单设计器如下图：

七、添加事件代码：

1、表单的load事件代码：

declare integer ShellAbout in Shell32.dll long hwnd,string szApp,string szOtherStuff,;
long hIcon &&声明API函数
set library to "foxtools.fll" &&载入vfp的Fll库

2、表单的init事件代码：

this.AddObject("Hyperlink1","HyperLink")
&&这是添加,若以后要移去它可用RemoveObject("Hyperlink1")
this.list1.additem("MSDN")
this.list1.additem("CSDN")
this.list1.additem("Yesky")
this.list1.additem("小小鸟")

3、“编程入门网”标签label1的click事件代码：thisform.HyperLink1.NavigateTo("www.bianceng.cn")

4、“关于本站”命令按钮command1的click事件代码：

hwnd=_WhToHwnd(_Wontop())
=shellAbout(hWnd,"编程入门网","欢迎访问网站：",0)

5、列表框控件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

八、运行“表单1.scx”。

本例代码在Win2003+VFP6.0环境下调试通过。

查看全套“菜鸟也学VFP”教程