33 lines
777 B
Plaintext
33 lines
777 B
Plaintext
Type TestClass
|
|
Private:
|
|
PrivateField As Integer = 7
|
|
PrivateNumber As Integer = 2
|
|
Public:
|
|
PublicNumber As Integer = 4
|
|
Declare Function GetPrivateField() As Integer
|
|
Declare Function GetPrivateNumber() As Integer
|
|
End Type
|
|
|
|
Function TestClass.GetPrivateField() As Integer
|
|
Return PrivateField
|
|
End Function
|
|
|
|
Function TestClass.GetPrivateNumber() As Integer
|
|
Return PrivateNumber
|
|
End Function
|
|
|
|
Sub GetPropertyValues(Byval obj As TestClass Ptr)
|
|
Print "PublicNumber: " & obj->PublicNumber
|
|
End Sub
|
|
|
|
Sub GetFieldValues(Byval obj As TestClass Ptr)
|
|
Print "PrivateField: " & obj->GetPrivateField()
|
|
Print "PrivateNumber: " & obj->GetPrivateNumber()
|
|
End Sub
|
|
|
|
Dim As TestClass t
|
|
GetPropertyValues(@t)
|
|
GetFieldValues(@t)
|
|
|
|
Sleep
|