運行中のGPSの使い方。アクティビティは GPS で正常に動作しますが、サービスでは動作しません。
サービスでこのイベントを処理する方法:
Sub GPS_LocationChanged (Location1 As Location)
Dim Lat, Lon As String
Lat = Location1.Latitude
Lon = Location1.Longitude
lblLat.Text = Lat
lblLon.Text = lon
Dim req As HttpRequest
req.InitializeGet("http://1.aspx?lat=" & Lat & "&Lon=" & Lon)
hc.Execute(req, 1)
End Sub