|
楼主 |
发表于 2020-1-15 20:09:38
|
显示全部楼层
广东省深圳市
.版本 2
.支持库 HtmlView
.程序集 窗口程序集_启动窗口
.子程序 _列表框1_列表项被选择
.局部变量 A, 文本型
编辑框1.内容 = 列表框1.取项目文本 (列表框1.现行选中项)
.如果 (取代码 (取文本左边 (编辑框1.内容, 1), ) = 48 或 取代码 (取文本左边 (编辑框1.内容, 1), ) = 54)
' A = 取文本左边 (编辑框1.内容, 8)
.否则
A = 取文本右边 (编辑框1.内容, 8)
.如果结束
超文本浏览框1.地址 = “http://data.eastmoney.com/stock/lhb/yyb/” + A + “.html”
' 列表框1.加入项目 (“”, )
.子程序 __启动窗口_创建完毕
列表框1.加入项目 (“申万宏源证券有限公司上海浦东新区陆家嘴环路证券营业部:80079420”, )
列表框1.加入项目 (“海通证券股份有限公司武汉十升路证券营业部:80172593”, )
列表框1.加入项目 (“西藏东方财富证券股份有限公司拉萨团结路第二证券营业部:80463351”, )
|
|