DL : 9
应用程序窗体
Dim frmtest As Object
private Sub Command1_Click()
Set frmtest = oSys.frmObject
frmtest.Show
End Sub
'类模块
Public frmObject As Object
Private Sub Class_Initialize()
Set frmObjec = form1
Private Sub
'执行后类模块的form1就显示出来了
Date : 2009-01-22
Size : 451byte
User : zongnp