在VB6中合成JSON字符串

 Public Function dictToJson(pDicX As Dictionary, Optional ByVal isEscape As Boolean = True, Optional ByVal isObjBeginEndYinHao As Boolean = False) As String

    
  
    
     '字典转为带有转义符号的json
    
     '   参数:
    
     '   isEscape 是否传出携带转义的字符串[默认有转义符号]
    
     '   isObjBeginEndAddYinHao[默认关闭]    者{} 前后是否增加引号显示    value是否字典前面或者数组前面增加引号   ,"{    或者    ,{            。后面为 }"  或者  }
    
     
    
     '......入参Demo
    
     'Dim pDicX As Dictionary
    
     'Set pDicX = New Dictionary
    
     'or Dim pDicX As New Dictionary
    
     'pDicX.Add "A", 100