- 金字塔客服中心 - 专业程序化交易软件提供商 (http://www.weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://www.weistock.com/bbs/list.asp?boardid=5)
---- [求助]类模块定义语法错误，请教是啥问题？ (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=79850)
-- 发布时间：2015/6/16 13:48:00
-- [求助]类模块定义语法错误，请教是啥问题？
代码如下：提示第二行“1002：语法错误“。实际上只留下Class cls_templates End Class一样会提示错误。
运行环境：win7+金字塔3.6.1
Class cls_templates
Public html,Strings,pic
Private Sub Class_Initialize()
end sub
Private Sub class_terminate()
end sub
Public Property Let Value(ByVal vNewValue)
Dim tmpstr
tmpstr = vNewValue
tmpstr = split(tmpstr,"@@@")
html = split(tmpstr(0),"|||")
Strings = split(tmpstr(1),"|||")
pic = split(tmpstr(2),"|||")
End Property
End Class
[此贴子已经被作者于2015/6/16 13:48:33编辑过]
-- 发布时间：2015/6/16 14:27:44
--
类模块里已经隐含了Class cls_templates End Class标识符了，你去掉这个类定义声明就可以了
-- 发布时间：2015/6/16 14:33:55
--
so easy
