CTest.cls
上传用户:yayuwl
上传日期:2022-03-18
资源大小:8952k
文件大小:1k
源码类别:

CAD

开发平台:

VBA

  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "CTest"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Private m_oApp As Object
  15. Public Property Set Application(ByVal vNewValue As Object)
  16.     Set m_oApp = vNewValue
  17. End Property
  18. Public Sub ShowForm()
  19.     Set frmTest.Application = m_oApp
  20.     frmTest.Show
  21. End Sub