小编Dev*_*Dev的帖子

我正在尝试使用我在网上找到的对象属性（即 Id）函数对字典进行排序，但在这一行For Each i In dict我收到此错误消息 Microsoft VBScript 运行时错误：对象不支持此属性或方法。我已经尝试过，For Each i In dict.Items但我收到与“dict.Items”相同的错误消息我使用的是旧版本的 VBScript，因此它不具有以下功能dict.Count

VBScript 类：

Class TestClass
    Public ID
    Public TestText
    Private Sub Class_Initialize
            TestText  = ""
    End Sub
End Class

Set gDic = CreateObject("Scripting.Dictionary")


For i = 1 to 5
    Set temp = new TestClass
    temp.ID = i
    temp.TestText = "Test" & i

    gDic.Add i,temp
Next


Set NewDic = SortDict(gDic)
msgbox NewDic.Items()(1).TestText

排序功能：

Function SortDict(ByVal dict)
    Dim i, j, temp
    For Each i …