请高手帮我用vb写一个Property Set过程和一个Property get过程,以便理解Property Set的使用。
推荐回答
Dim mvarWriteLogs As BooleanPrivate mvardbConObj As ADODB.Connection '局部复制Public Property Let WriteLogs(ByRef vData As Boolean) mvarWriteLogs = vDataEnd PropertyPublic Property Get WriteLogs() As Boolean WriteLogs = mvarWriteLogsEnd PropertyPrivate Sub Class_Initialize() 'set对象需要初始化 Set mvardbConObj = New ADODB.Connection set dbConObj= New ADODB.ConnectionEnd SubPublic Property Set dbConObj(ByRef vData As ADODB.Connection) Set mvardbConObj = vDataEnd PropertyPublic Property Get dbConObj() As ADODB.Connection Set dbConObj = mvardbConObjEnd Property