ASP classique des propriétés de la classe

Est-il possible de définir un objet dictionary comme une propriété de classe dans ASP classique? Je n'arrive pas à obtenir la syntaxe de droit. J'ai une fonction que je souhaite retourner un objet dictionary, et d'attribuer le dictionnaire d'objet qui est retourné par la fonction à la propriété de classe, mais je reçois une erreur d'incompatibilité de type?

Si je ne peux pas utiliser le dictionnaire d'objet, puis-je utiliser un tableau?

Je suis plutôt neuf classique de l'ASP, mais je sais que C#/.NET assez bien.

  • "...l'affecter à la propriété de classe" - qu'est-ce que "ça" dans ce cas? La fonction, le dictionnaire de l'objet retourné par la fonction, quelque chose d'autre?
  • Assurez-vous que vous utilisez le mot-clé Set correctement.
  • Merci Tester101, c'était mon problème. J'ai fait une "m_objCategories = GetStaffCategories(m_intPhysicianID)" et j'avais besoin de faire "Ensemble m_objCategories = GetStaffCategories(m_intPhysicianID)" Désolé pour la question stupide.
  • Il n'y a pas de questions stupides, que des réponses stupides.
InformationsquelleAutor pinniger | 2009-11-10
  1. 7

    Voici un exemple simple

    Class TestClass
    private testDictionary

    public property get TestDict
        Set TestDict = testDictionary
    end property
    public property let TestDict(byval value)
        Set testDictionary = value
    end property
    public property set TestDict(byval value)
        Set testDictionary = value
    end property
    public function getValue(index)
        getValue = testDictionary.Item(index)
    end function
end class

'Create a Dictionary and add an entry
Set newDict = CreateObject("Scripting.Dictionary")
newDict.Add 1, "This is a test"

'Assign the dictionary to the custom object
Set mynewClass = new TestClass
mynewClass.TestDict = newDict
Set newDict = Nothing

wscript.echo mynewClass.getValue(1)

Set mynewClass = Nothing

    N'oubliez pas d'utiliser Ensemble lorsque vous travaillez avec des objets.

    InformationsquelleAutor Tester101
  2. 0

    Vous devez également utiliser le mot-clé Set lors de l'affectation d'une propriété dans la classe.

    Class DictionaryClass
    Private m_Dictionary

    Public Sub Class_Initialize()
        Set m_Dictionary = Server.CreateObject("Scripting.Dictionary")
    End Sub

    Public Property Get Dictionary()
        Set Dictionary = m_Dictionary
    End Property

    Public Property Set Dictionary(value)
        Set m_Dictionary = value
    End Property
End Class

Function GetDictionary()
    Dim dictionary : Set dictionary = Server.CreateObject("Scripting.Dictionary")
    'some magic'
    Set GetDictionary = dictionary
End Function

Dim oDictionaryClass : Set oDictionaryClass = New DictionaryClass
Set oDictionaryClass.Dictionary = GetDictionary()
    InformationsquelleAutor jammus