hur.cn - 华软网

 热门搜索

如何调用statichyperlink的单击事件直接打开链接

  作者:未知    来源:网络    更新时间:2018/10/11
我想在数据窗口中通过双击事件,调用statichyperlink来直接打开链接?
shl_1.text="公司主页"
shl_1.url="http://www.sina.com.cn"
shl_1.event clicked()

------华软网友回答------
帮顶
------华软网友回复------
run("~"C:\Program Files\Internet Explorer\IEXPLORE.EXE~" http://www.sina.com.cn")
------华软网友回复------
或用shellexecuteA函数也能够
------华软网友回复------
一楼的方法通用性不够好,如果系统不是装在C:的话,程序就会有问题.
可用以下方法:

FUNCTION ulong ShellExecute(ulong hwnd,string lpOperation,string lpFile,string lpParameters,string lpDirectory,ulong nShowCmd) LIBRARY "shell32.dll" ALIAS FOR "ShellExecuteA"

string Null
setnull(Null)
ShellExecute (handle(w_sock_server), "open", "http://www.sina.com.cn", Null, Null, 3)




------华软网友回复------
integer li_errorcode
Inet linet_base
GetContextService("Internet", linet_base)
li_errorcode = linet_base.HyperLinkToURL('http:\\www.tom.com')
if li_errorcode = -1 then
messagebox("提醒","连接失利")
else
messagebox("提醒","连接成功")
end if
------华软网友回复------
是的,的确欠好!
------华软网友回复------
能够获得系统目录的,
 Function ulong GetSystemDirectory(ref string lpBuffer,ulong nSize) LIBRARY "kernel32.dll"

用run和ShellExecute都是用IE打开的,如果不装IE,用另外流览器,咋办
------华软网友回复------
如果不装IE,用另外流览器,咋办
==================
用我的代码就好了.它只是调用默许的浏览器来打开网页
------华软网友回复------
lzheng2001(1加1)   :)  谢谢~~
------华软网友回复------
string url
url="http://www.sina.com.cn"
inet iinet_base
iinet_base = create inet
GetContextService("Internet", iinet_base)
iinet_base.HyperlinkToURL(url)
destroy iinet_base

------华软网友回复------
尝试了一下
iinet_base.HyperlinkToURL(url)
这类方法不适用于TT浏览器,当我把默许浏览器设成TT后,用这类方法不能打开链接!      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。