以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  网址型问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19929)
--  作者：zhangc2000
--  发布时间：2012/5/25 11:16:00
--  网址型问题
设计窗口时，怎样将网址型列表放在窗口上，在窗口点击网址后，能自动启动默认浏览器？
--  作者：狐狸爸爸
--  发布时间：2012/5/25 12:11:00
--  
Dim Proc As New Process \'定义一个新的Process
Proc.File = "http://bbs.foxtable.com" \'指定要打开的网页地址
Proc.Start()
--  作者：blackzhu
--  发布时间：2012/5/25 12:12:00
--  

做个按钮,代码写法:

 

Dim r As Row = Tables("xxx").Current
If r("网址")>"" Then
    Dim Proc As New Process
    Proc.File = r("网址")
    Proc.Start()
End If