请高手帮我用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
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
property 和estate的区别
Get off my property.
property和characteristic 区别
property 和real estate的区别
请问下Property 和 Possession的区别?
promote property
property stock
housing market 和 property market
property与capital的区别
GMAT数学一道Q10:A set of numbers has the property that for any n
“Professional Property Services” 一个香港公司,汉语名称是什么?应该是香港一个知名的地产
英语翻译是一个产品的金属件材质要求:FOR BOLT INSERTED; MATERIAL,STEEL PROPERTY