k3wise插件开发和调试过程中经常会遇到一些自定义的对象，如IDictionary、IVector、Recordset等，有的对象层层嵌套，而VB没有一个直观的方法查看这些对象的所有属性和值，就自己动手写了一个函数，代码如下，没怎么测试仅供参考

Public Function Object2Json(Optional ByVal vData As Variant) As String    Dim sJson As StringDim vTemp As Variant    On Error GoTo ErrL        If InStr("String,Boolean,Date,Byte,Integer,Long,Double,Decimal", TypeName(vData)) > 0 Then        sJson = "'" & Replace(CStr(vData), "'", "\'") & "'"    ElseIf IsArray(vData) Then        For vTemp = LBound(vData) To UBound(vData)            sJson = sJson & Object2Json(vData(vTemp)) & ","        Next        sJson = IIf(Len(sJson) = 0, "[]", "[" & Mid(sJson, 1, Len(sJson) - 1) & "]")    ElseIf TypeName(vData) = "IDictWord" Then        sJson = vData.Name & ":" & Object2Json(vData.Value)    ElseIf TypeName(vData) = "IDictionary" Then        For Each vTemp In vData            sJson = sJson & Object2Json(vTemp) & ","        Next        sJson = IIf(Len(sJson) = 0, "{}", "{" & Mid(sJson, 1, Len(sJson) - 1) & "}")    ElseIf TypeName(vData) = "IVector" Then        For vTemp = 1 To vData.Size            sJson = sJson & Object2Json(vData.Item(vTemp)) & ","        Next vTemp        sJson = IIf(Len(sJson) = 0, "[]", "[" & Mid(sJson, 1, Len(sJson) - 1) & "]")    ElseIf TypeName(vData) = "Recordset" Then        vData.MoveFirst        While Not vData.EOF            sJson = sJson & "{"            For vTemp = 0 To vData.Fields.Count - 1                sJson = sJson & vData.Fields(vTemp).Name & ":" & Object2Json(vData.Fields(vData.Fields(vTemp).Name).Value) & ","            Next            sJson = Mid(sJson, 1, Len(sJson) - 1) & "},"            vData.MoveNext        Wend        sJson = IIf(Len(sJson) = 0, "[]", "[" & Mid(sJson, 1, Len(sJson) - 1) & "]")    Else        GoTo ErrL    End If        Object2Json = sJson    Exit FunctionErrL:   Object2Json = "'#" & TypeName(vData) & "#'"End Function