Sub Globals
Dim mFragment As MapFragment
Dim gmap As GoogleMap
Dim GoogleMapsExtras1 As GoogleMapsExtras
Dim maxZoom As Double = 10
Dim MapPanel As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
MapPanel.Initialize("")
Activity.AddView(MapPanel, 0, 0, 100%x, 80%y)
If mFragment.IsGooglePlayServicesAvailable = False Then
ToastMessageShow("Google Play services not available.", True)
Else
mFragment.Initialize("Map", MapPanel) 'the event for the camera is Map_CameraChange (Position As CameraPosition)
End If
End Sub
Sub Map_Ready
Log("map ready")
gmap = mFragment.GetMap
If gmap.IsInitialized = False Then
ToastMessageShow("Error initializing map.", True)
Else
gmap.MapType=gmap.MAP_TYPE_TERRAIN
gmap.MyLocationEnabled = True
'goto SW germany
Dim cp As CameraPosition
cp.Initialize(48.706214727530195,9.060724675655365, 7)
gmap.AnimateCamera(cp)
End If
End Sub
Sub Map_CameraChange (Position As CameraPosition)
Log("Zoom " & gmap.CameraPosition.Zoom)
'If zoomlevel Is greater Then Max zoom Then zoomout
Dim CameraUpdateFactory1 As CameraUpdateFactory
Dim CameraUpdate1 As CameraUpdate
If gmap.CameraPosition.Zoom > maxZoom Then
CameraUpdate1=CameraUpdateFactory1.ZoomTo(maxZoom)
GoogleMapsExtras1.AnimateCamera(gmap, CameraUpdate1)
End If
End Sub