在PowerBuiler程序中实现网址链接

Author: 李俊锋 Date: 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上调试通过。