jj 07.12 3
This commit is contained in:
@@ -29,6 +29,24 @@ Public Class frmGeodataSelect
|
||||
Me.InitializeComponent()
|
||||
End Sub
|
||||
|
||||
Private Sub frmGeodataSelect_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Dim dataProvider As New BingMapDataProvider()
|
||||
dataProvider.BingKey = BING_KEY
|
||||
ImageLayer.DataProvider = dataProvider
|
||||
|
||||
Dim storage As New MapItemStorage()
|
||||
VectorLayer.Data = storage
|
||||
|
||||
If SelectedPoint IsNot Nothing Then
|
||||
Dim pin = New MapPushpin()
|
||||
pin.Location = SelectedPoint
|
||||
ItemStorage.Items.Add(pin)
|
||||
|
||||
txtLat.Text = SelectedPoint.Latitude.ToString()
|
||||
txtLon.Text = SelectedPoint.Longitude.ToString()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MapControl1_Click(sender As Object, e As MouseEventArgs) Handles MapControl1.Click
|
||||
If e.Button <> Windows.Forms.MouseButtons.Left Then
|
||||
Exit Sub
|
||||
@@ -53,24 +71,6 @@ Public Class frmGeodataSelect
|
||||
SelectedPoint = point
|
||||
End Sub
|
||||
|
||||
Private Sub frmGeodataSelect_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Dim dataProvider As New BingMapDataProvider()
|
||||
dataProvider.BingKey = BING_KEY
|
||||
ImageLayer.DataProvider = dataProvider
|
||||
|
||||
Dim storage As New MapItemStorage()
|
||||
VectorLayer.Data = storage
|
||||
|
||||
If SelectedPoint IsNot Nothing Then
|
||||
Dim pin = New MapPushpin()
|
||||
pin.Location = SelectedPoint
|
||||
ItemStorage.Items.Add(pin)
|
||||
|
||||
txtLat.Text = SelectedPoint.Latitude.ToString()
|
||||
txtLon.Text = SelectedPoint.Longitude.ToString()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
||||
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||
Me.Close()
|
||||
|
||||
Reference in New Issue
Block a user