Public Structure ResponseInfo Public Status As string Public Result() As Result End Structure Public Structure Result Public Type() As String Public FormattedAddress() As String Public AddCom() As AddressComponent Public Geometry As Geometry End Structure Public Structure AddressComponent Public Long_name As String Public short_name As String Public type() As String End Structure
Dim Lo_ResponseInfo as ResponseInfo Do While Name <> "" ReDim Lo_ResponseInfo.Result(Lnum_ResultCounter).AddCom(Lnum_AddComCounter).type(Lnum_AddComTypeCounter) Lo_ResponseInfo.Result(Lnum_ResultCounter).AddCom(Lnum_AddComCounter).type(Lnum_AddComTypeCounter) =Lnum_AddComTypeCounter Lnum_AddComTypeCounter += 1 Loop
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)