Ejemplo: excel vba class get set property
' Add clsPerson Class to your file with this code:
Private mName As String
Public Sub DisplayName()
MsgBox "My name is " & Me.Name
End Sub
Property Get Name() As String
Name = StrConv(mName, vbProperCase) 'Can be formatted etc
End Property
Property Let Name(pName As String)
mName = pName
End Property
' In a module-------------------------------------------
Sub TestMe()
Dim oPerson As New clsPerson
oPerson.Name = "john doe"
oPerson.DisplayName
End Sub
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)