Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Moduli di Classe - Moduliclasse.cls

Moduliclasse.cls

Caricato da: Roberto VB
Scarica il programma completo

  1. Option Explicit
  2. Private m_FirstName As String
  3. Private m_LastName As String
  4. Private m_BirthDate As Date
  5.  
  6.  
  7. Property Get FirstName() As String
  8. FirstName = m_FirstName
  9. End Property
  10.  
  11. Property Let FirstName(ByVal newValue As String)
  12. If newValue = "ciao" Then Err.Raise 5
  13. m_FirstName = newValue
  14. End Property
  15.  
  16. Property Get LastName() As String
  17. LastName = m_LastName
  18. End Property
  19.  
  20. Property Let LastName(ByVal newValue As String)
  21. If newValue = "" Then Err.Raise 5
  22. m_LastName = newValue
  23. End Property