Block 板块管理

CreateObject("Stock.Block")

Block对象实现了金字塔中板块管理的部分功能,用户可以使用该外部对象方便的进行板块管理,并可以最后保存他

方法

方法	说明
Open	打开一个板块,将板块中的数据装载到对象中。若之前内部有其他品种数据,那么此操作将会清空原先的内部数据. 返回值：若打开板块成功返回1 否则返回0
Count	内部品种数量
AddStock	添加指定品种到板块对象中 返回值：若添加成功返回1 否则返回0
ToSave	保存内部的板块数据到分类板块中
RemoveAt	删除指定基于零索引的对象内部的品种,删除成功返回1否则为0
GetStockMarket	得到指定基于零索引的品种市场标识名称,例如返回"SH"表示上海市场，注意：如果频繁调用该属性，请注意使用完毕后释放返回值。
GetStockCode	得到指定基于零索引的品种代码，注意：如果频繁调用该属性，请注意使用完毕后释放返回值。
IsStockExist	判断加载的内部对象中是否含有指定的品种。例如 IsStockExist("600000","SH"), 若包含返回1，否则返回0
全局方法（无需使用Open方法打开加载）
IsTypeExist	指定分类是否存在,存在则返回1否则为0. 例如IsTypeExist("地域")
IsBlockExist	指定板块是否存在,存在则返回1否则为0. 例如IsTypeExist("ST板块")
CreateType	创建指定分类。例如 CreateType("我的行业"),在板块分类将创建这么一个分类
CreateBlock	创建板块。例如CreateBlock("我的分类","我的板块"),在"我的分类"中，创建一个"我的板块"。
DeleteBlock	删除板块。例如DeleteBlock("我的分类","我的板块"),在"我的分类"中，删除"我的板块"。
ClearBlock	清空板块内容。例如ClearBlock("自选","自选股"),将清空自选股股板块里所有预设股票。
ReFurbishView	刷新分类板块显示，当你调用CreateBlock或者CreateType等这类函数以后，调用该方法让他同步在软件中显示出来。
GetTypeBlock	得到指定分类下的板块集合, 返回值：返回ArrayString对象类型包含的板块数量
GetFromCount	指定品种包含在那些板块中 返回值：返回ArrayString对象类型包含的板块数量

示例

'创建Block外部对象，将对象实例置变量b中
Set b = CreateObject("Stock.Block")

'打开市场指定分类名称的板块
call b.open("上海A股",0)

'显示已打开板块内部数据个数
msgbox b.count()

'不要忘记释放对象，不然会导致内存泄漏
Set b = nothing