Les Classes en VBScript: Pourquoi ces deux exemples font la même chose?

J'ai trouvé ce bout de code sur ce StackOverFlow question, Dictionnaire d'Objets/Classes en VBScript.

Ma question est: pourquoi est-ce que "court" de la classe de faire la même chose que ce "long" de la classe? Pourquoi même pas la peine de codage long de la classe? Pourrait la courte version de la classe être utilisé avec d'autres méthodes dans la même classe? Merci!

Court de classe

Class employeeclass
    Public first, last, salary
End Class

Long De La Classe

Class employeeclass
    Private m_first
    Private m_last
    Private m_salary

    Public Property Get first
        first = m_first
    End Property
    Public Property Let first(value)
        m_first = value
    End Property

    Public Property Get last
        last = m_last
    End Property
    Public Property Let last(value)
        m_last = value
    End Property

    Public Property Get salary
        salary = m_salary
    End Property
    Public Property Let salary(value)
        m_salary = value
    End Property
End Class

Plein de script avec le court-classe cependant, il suffit de remplacer le court de classe avec le long la classe d'un obtenez le même résultat.

Class employeeclass
    Public first, last, salary
End Class

Dim employeedict: Set employeedict = CreateObject("Scripting.Dictionary")

Dim employee: Set employee = new employeeclass
With employee
    .first = "John"
    .last = "Doe"
    .salary = 50000
End With
employeedict.Add "1", employee

Set employee = new employeeclass
With employee
    .first = "Mary"
    .last = "Jane"
    .salary = 50000
End With
employeedict.Add "3", employee

Dim employeedetails: Set employeedetails = employeedict.Item("1")
WScript.Echo "Name: " & employeedetails.first & " " & employeedetails.last & " $" & employeedetails.salary 
WScript.Echo employeedict.Item("3").first & " " & employeedict.Item("3").last & " makes $" & employeedict.Item("3").salary

OriginalL'auteur J P | 2013-04-07