' 距離計算オブジェクト（DISTCALC）の CalcRoute メソッドにより
' ２点間ルート計算を実行します。
' 実行後は Time, DSecTime, Distance, Toll_S プロパティの値および
' 詳細ルート情報を MsgBox で表示します。

Dim DistCalc As DISTCALC.DistCalc　　　' 距離計算オブジェクト
　　　　　　　　　　　　　　　　　　　　　　　　　　　' （クラス名は SDK版とエンタープライズ版とで異なります）
Dim Points As DCDATA.Points　　　　　　　' 計算結果地点オブジェクト（詳細ルート情報用）
Dim i As Long

' オブジェクトを初期化します
Set DistCalc = New DISTCALC.DistCalc
Set Points = New DCDATA.Points

' 計算用道路データフォルダを設定します（例）
DistCalc.RoadNetworkDir = "e:\Sample\ 計算地図"

' 計算用道路データをメモリ上にロードします
DistCalc.LoadRoadNetwork

' プロパティを設定します
DistCalc.CalcKind = CALCKIND_TIME　　　　　　　' 時間最短
DistCalc.UseHighway = USEHIGHWAY_YES　　　 ' 高速道路使用
DistCalc.FromNodeCode = 13000000120780#　　 ' 始点ノードコード（例）
DistCalc.ToNodeCode = 13000000122582#　　　　' 終点ノードコード（例）

' ２点間ルート計算を実行します
DistCalc.CalcRoute

' 結果を表示します
MsgBox "Time =" + Str$(DistCalc.Time) + Chr$(13) + _
　　　　　　"DSecTime =" + Str$(DistCalc.DSecTime) + Chr$(13) + _
　　　　　　"Distance =" + Str$(DistCalc.Distance)
If DistCalc.IsTollExist Then
　　　　MsgBox "Toll_S =" + Str$(DistCalc.Toll_S)
End If
If DistCalc.IsDetailExist Then
　　　　DistCalc.GetRouteDetail Points
　　　　MsgBox " 詳細ルート情報は" + Str(Points.Count) + " 点です"
　　　　For i = 0 To Points.Count -1
　　　　　　　　MsgBox Str(i + 1) + " 点目" + _ " Longitude = " + Str(Points.Item(i).Longitude) + _
　　　　　　　　　　　　　　" Latitude = " + Str(Points.Item(i).Latitude)
　　　　Next
End If

' 計算用道路データをメモリ上から解放します
DistCalc.UnloadRoadNetwork

' オブジェクトを解放します
Set DistCalc = Nothing
Set Points = Nothing