简单例子: 1.加入一个模块My1: public MyString as string public function MyFun() msgbox "From My1" end function 2.Form1: dim MyA as My1 MyA.MyString="hello" MyA.MyFun 详细内容:http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon98/html/vbconclassmodulesputtingdatatypesprocedurestogether.asp
1.加入一个模块My1:
public MyString as string
public function MyFun()
msgbox "From My1"
end function
2.Form1:
dim MyA as My1
MyA.MyString="hello"
MyA.MyFun
详细内容:http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon98/html/vbconclassmodulesputtingdatatypesprocedurestogether.asp