看实例学VFP：超级链接控件的使用

看实例学VFP：超级链接控件的使用2009-03-21 www.bianceng.cn 老马超级链接控件（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环境下调试通过。