Initialize 事件 怎不执行 ？

[kingapex1]

比如 ：

class FileOperator

Private Sub FileOperator_Initialize()
response.write "dd"
End Sub

end class


set aFO = new FileOperator



set aFO = Nothing



why ?

[efei]

http://www.wuyouschool.com.cn/public/efei/TreeView.chm

这个树是用vbscript的Class写的，参考一下了

[-神仙-]

class FileOperator

Sub Initialize()
response.write "dd"
End Sub

end class

[-神仙-]

这个是构造函数，不是什么事件回调函数

[efei]

在VB里它就叫初始化事件，而不是构造函数，呵呵。

真的谈不上构造，没有参数，不能重载，你还期望什么

[kingapex1]

class FileOperator

Sub Initialize()
response.write "dd"
End Sub

end class


这个不好用啊


http://www.wuyouschool.com.cn/public/efei/TreeView.chm


这个我没看到类 啊

麻烦谁给个例子

[king2003]

靠这能执行吗RESPONSE对象就没有声明拿什么执行

[kingapex1]

response 对象也要声明 ？

[kingapex1]

谁知道怎么回事 ？

[超级大笨狼]

<input value="看看superDullWolf的CNWord类引用实例,vbs,改进了一下，可以提供chinese出现的位置了" id="input1" style="width:100%"/>
<br/>
<button onclick="vbs:classAndRegExp">验证</button>
<script language = "vbscript">
sub classAndRegExp()
set wolf = new CNWord
wolf.str = input1.value

msgbox "含有中文数" & wolf.CNcount
msgbox "含有中文块数" & wolf.CNBlockCount
msgbox "第2个中文块是--->" & wolf.CN(2)
msgbox "第1个中文块出现的位置是--->" & wolf.CNIndex(1)
set wolf = nothing
end sub
</script>


<script language="vbscript">
class CNWord

public str

private sub Class_Initialize()
set regEx =new RegExp
regEx.IgnoreCase = True '设置是否区分大小写。
regEx.Global = True '设置全局可用性。
end sub

private regEx


Property get CN(x)
dim Arr()
dim maxBound : maxBound = CNBlockCount
redim Arr(maxBound)
dim i:i=1
dim Match
For each Match in regEx.Execute(str)
Arr(i) = Match
i = i + 1
next
if x<=maxBound then CN = Arr(x)
End Property

Property get CNIndex(x)
dim Arr()
dim maxBound : maxBound = CNBlockCount
redim Arr(maxBound)
dim i:i=1
dim Match
For each Match in regEx.Execute(str)
Arr(i) = Match.FirstIndex + 1
i = i + 1
next
if x<=maxBound then CNIndex = Arr(x)
End Property

Property get CNcount
'返回含有中文的字数
regEx.Pattern = "[\u4e00-\u9fa5]"
CNcount = findCHNnum()
End Property

Property get CNBlockCount
'返回含有中文的块数
regEx.Pattern = "[\u4e00-\u9fa5]+"
CNBlockCount = findCHNnum()
End Property


private function findCHNnum()
findCHNnum = regEx.Execute(str).count
end function




private sub Class_Terminate()
set regEx = nothing
end sub

end class
</script>

[kingapex1]

谢楼上的你那个东东挺好，

你的意思

class FileOperator

private Sub class_Initialize()
response.write "dd"
End Sub

end class


这样可以了吧，
但我实验的结果还是不行

[-神仙-]

sorry，是
Sub Class_Initialize
你的class怎么用的
因该是
set fo=new FileOperator

[-神仙-]

vbs就是弱啊。
js就要好的多。不过那个用function做的类看着别扭啊

[kingapex1]

to syre(神仙)

我是 set fo=new FileOperator

不信你试一下，
都郁闷了

[efei]

楼主，你凭什么说初始化事件在服务器端运行时没有运行？
我严重怀疑你在里面msgbox了，呵呵

给个例子吧：

<script language="vbscript" runat="server">
Class book
Private bookName
Private Sub Class_Initialize()
bookName = "efei"
End Sub

Public Function getBookName()
getBookName = bookName
End Function
End Class
</script>

<%
Dim b
Set b = New book
Response.Write b.getBookName
Set b = Nothing
%>

不要使来找我，呵呵

[efei]

http://www.wuyouschool.com.cn/public/efei/TreeView.chm


这个我没看到类 啊
==========================================================

这个你没看到类？首页里有个连接，点一下就可以了。
或者直接这里：
http://www.wuyouschool.com.cn/public/efei/treeview.vbs

[mjpclab]

class FileOperator

Private Sub New()
response.write "dd"
End Sub

end class

[kingapex1]

to efei(草不含羞)(J2ME，我来了……)


Class_Initialize() 可能只有在 脚本vbs里好用吧
我在服务器端怎么也不好用。

哎。。以后再研究吧。。。

[-神仙-]

奇怪了
我用着怎么是好的

[huhanshan013]

body 中 onload="Initialize ()"

[超级大笨狼]

js就要好的多。不过那个用function做的类看着别扭啊

我觉得js为了代码精简混淆了函数和类的概念而已