标题在PowerBuiler程序中实现网址链接
栏目软件世界
作者李俊锋
发布2000年第39期
我们在用PowerBuilder开发程序时,往往要加入一些网址链接信息,如:让使用者访问主页信息等,有两种方法可以实现。
首先在程序窗口加入一个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上调试通过。