作业帮 > 综合 > 作业

请高手帮我用vb写一个Property Set过程和一个Property get过程,以便理解Property Set的

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/27 13:24:45
请高手帮我用vb写一个Property Set过程和一个Property get过程,以便理解Property Set的使用.
Dim mvarWriteLogs As Boolean
Private mvardbConObj As ADODB.Connection '局部复制
Public Property Let WriteLogs(ByRef vData As Boolean)
mvarWriteLogs = vData
End Property
Public Property Get WriteLogs() As Boolean
WriteLogs = mvarWriteLogs
End Property
Private Sub Class_Initialize() 'set对象需要初始化
Set mvardbConObj = New ADODB.Connection
set dbConObj= New ADODB.Connection
End Sub
Public Property Set dbConObj(ByRef vData As ADODB.Connection)
Set mvardbConObj = vData
End Property
Public Property Get dbConObj() As ADODB.Connection
Set dbConObj = mvardbConObj
End Property