微信公众号 
图码生活

每天发布有五花八门的文章,各种有趣的知识等,期待您的订阅与参与
电脑报 1992-2001 十年文章全集
电脑报 1992-2001 十年文章全集
包含从 1992 年 - 2001 年间,两万余篇期刊文章,查询最少输入两个字符
随便看看
读取中
读取中
标题在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上调试通过。