ipLocnTest

ipLocnテスト

実際のマッピング API を必要とせずに、適切な機能を備えたマップを .NET で入手できます。

• 衛星ビュー (ラベルありまたはラベルなし) と通常ビュー (ラベルあり) をサポートします。
• デフォルトではドラッグ可能 (マウスの左ボタンによる) およびズーム可能 (スクロール ホイールによる) ですが、静的モード (高解像度) (ズーム用のボタンなどを使用) も提供します。
• 指定された座標と都市/国の名前に移動します。
• 地理位置情報をサポートします (PS: 最初の試行では機能しない場合があります) (あなたの位置情報もオンにする必要があります)
• 画像をデスクトップに直接保存します

最新の追加情報

• 再設計されたツールバー。

• 再設計されたマップ オプション メニュー。

• 通常の座標検索に加えて、都市や国も検索できるようになりました。

• 静的マップ用の円形ナビゲーション コントロールを追加しました。今は真っ暗です。

• 静的マップのズームが改善されました。
  
• ツールバーにナビゲーションのヒントを追加しました。
  
• マイナーなデザイン変更。
  
• 検索ヒントを追加しました。

地理位置情報 - 例

 Imports System.Device.Location

次のコードをメインクラス内に置きます

 DIm n = 0
Private Sub Watcher_StatusChanged(ByVal sender As Object, ByVal e As GeoPositionStatusChangedEventArgs)
    n += 1
    If e.Status = GeoPositionStatus.Ready Then
        If Watcher.Position.Location.IsUnknown Then
            txtlat = "Cannot find location data"
        Else
            txtlat = Watcher.Position.Location.Latitude.ToString() '.Substring(0, 7)
            txtlong = Watcher.Position.Location.Longitude.ToString() '.Substring(0, 7)
        End If
    End If
    If n < 10 Then
        If txtlat <> "Cannot find location data" And Math.Abs(Val(txtlat)) > 0.0000001 Then
            Watcher.Stop()
            'the value of txtlat and txtlong has now been set to your location
        End If
    Else
            Watcher.Stop()
           'give user some indication of error/ handle the error (thrown when cannot find location)
    End If
End Sub
Private Sub LocateMe()
    n = 0
    Watcher = New GeoCoordinateWatcher()
    AddHandler Watcher.StatusChanged, AddressOf Watcher_StatusChanged
    Watcher.Start()
End Sub

位置情報が必要な場合は、LocateMe() サブルーチンを呼び出します。初めて使用する場合、位置情報へのアクセス許可を求めるメッセージボックスがポップアップ表示されます。 txtlat と txtlong の値は緯度と経度に設定されます。

通常、これは瞬時に行われず、最初の試行では失敗する可能性があることに注意してください。