#Region Project Attributes
#ApplicationLabel: GOOGLEMAPS Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#AdditionalJar: com.google.android.gms:play-services-maps
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
'Activity module
Sub Process_Globals
End Sub
Sub Globals
Private gmap As GoogleMap
Private MapFragment1 As MapFragment
Private Panel1 As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
If MapFragment1.IsGooglePlayServicesAvailable = False Then
ToastMessageShow("Please install Google Play Services.", True)
End If
End Sub
Sub MapFragment1_Ready
gmap = MapFragment1.GetMap
Dim m1 As Marker = gmap.AddMarker(10, 30, "test")
Dim lat,lon As Int
m1.Snippet = "This is the snippet"
Dim cp As CameraPosition
lat = gmap.MyLocation.Latitude
lon=gmap.MyLocation.Longitude
cp.Initialize(lat, lon, 10)
gmap.AnimateCamera(cp)
'gmap.MoveCamera(cp)
'Panel1.Visible = True
'Dim cp As CameraPosition
'cp.Initialize(gmap.MyLocation.Latitude, gmap.MyLocation.Longitude, 10)
'gmap.MoveCamera(cp)
'Dim cp As CameraPosition
'cp.Initialize(10, 30, gmap.CameraPosition.Zoom)
'gmap.AnimateCamera(cp)
End Sub