请高手帮我用vb写一个Property Set过程和一个Property get过程,以便理解Property Set的使用.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/29 08:05:31
![请高手帮我用vb写一个Property Set过程和一个Property get过程,以便理解Property Set的使用.](/uploads/image/z/14154384-48-4.jpg?t=%E8%AF%B7%E9%AB%98%E6%89%8B%E5%B8%AE%E6%88%91%E7%94%A8vb%E5%86%99%E4%B8%80%E4%B8%AAProperty+Set%E8%BF%87%E7%A8%8B%E5%92%8C%E4%B8%80%E4%B8%AAProperty+get%E8%BF%87%E7%A8%8B%2C%E4%BB%A5%E4%BE%BF%E7%90%86%E8%A7%A3Property+Set%E7%9A%84%E4%BD%BF%E7%94%A8.)
请高手帮我用vb写一个Property Set过程和一个Property get过程,以便理解Property Set的使用.
请高手帮我用vb写一个Property Set过程和一个Property get过程,以便理解Property Set的使用.
请高手帮我用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