This commit is contained in:
JenneJ
2017-03-14 15:38:25 +01:00
parent 93057172cd
commit 4c245e7e7b
4 changed files with 63 additions and 16 deletions

View File

@@ -44,7 +44,12 @@ Public Class frmGeodataSelect
txtLat.Text = SelectedPoint.Latitude.ToString()
txtLon.Text = SelectedPoint.Longitude.ToString()
MapControl1.ZoomLevel = 7
MapControl1.ZoomToFit(New List(Of MapPushpin) From {pin})
End If
End Sub
Private Sub MapControl1_Click(sender As Object, e As MouseEventArgs) Handles MapControl1.Click