当前位置: 首页 > 编程语言 > 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环境下调试通过。

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