.子程序 _超级列表框1_左键单击表项
.局部变量 x, 整数型
.局部变量 网址, 文本型
.如果真 (超级列表框1.现行选中项 > -1) ' 点击不为空时
网址 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
x = 寻找文本 (网址, “http://”, 0, 真)
.判断开始 (x > -1) ' 存在http://时
超文本浏览框1.跳转 (网址, , ) ' 存在直接跳转
.默认
超文本浏览框1.跳转 (“http://” + 网址, , ) ' 不存在就添加再跳转
.判断结束
.如果真结束
首先取到超级列表框里面的内容
.局部变量 网址, 文本型
网址 = 超级列表框.取标题(超级列表框.现行选中,1)
然后再用命令
打开指定网页(网址)