在PowerBuiler程序中实现网址链接
首先在程序窗口加入一个StaticText,Name属性为:st_homepage,Text属性中填写要链接的地址(如:http://www.yesky.com)。
然后在Script(脚本)中的Clicked事件中加入如下代码,可以实现两种链接方法。
// 笫一种方法
Inet linet_base
GetContextService(″Internet″, linet_Base)
linet_Base.HyperlinkToURL(this.text)
Destroy(linet_base)
// 笫二种方法
string ls_path
string ls_ie
//获得注册表中IE路径
If RegistryGet(″HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\AppPaths\IEXPLORE.EXE″,&″Path″,ls_Path ) <> - 1 Then
ls_path = left (ls_path,len (ls_path) - 1)
ls_ie = ls_path + ″\iest_homepage.textxplore.exe″
//打开url
run (ls_ie + ″ -nohome ″ + st_homepage.text)
End If
以上两种方法,也可以写成一个用户自定义函数,然后在脚本中调用。这只需要把上段代码中st_homepage.text换成形参名,如home_url,参数类型为string,pass by设为value,Returns设为(None),函数命名为OPEN_HOMEPAGE,调用中实参为st_homepage.text。
以上在PowerBuilder 6.5和Win 98、IE 4.0上调试通过。