代码如下:提示第二行“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编辑过]