1。添加一个标准工程EXE
2。在工程中添加新的CLASS——选择现存的CLASS
3。选择你已经编好的CLASS
4。在FORM LOAD的事件中
DIM objClass as new class1
5. 之后你可以在窗体内用
类似与objClass.method1 mehhod1是你class1的方法名。
来使用——就和正常的一样的使用你的CLASS。
这样行吗?如下示:
1.添加一个标准工程EXE
2.在FORM中添加一个按钮,其CLICK事件中写入:
Dim objresult
Set objresult = server.CreateObject("project1.class1")
Dim queryresult
Set queryresult = objresult.CLASS1类中的子函数名