Public Sub Show
karte.Initialize("karte")
karte.RootPanel.LoadLayout("tposmap")
Main.NavControl.ShowPage(karte)
AddMap
Dim no As NativeObject
Log("Version: " & no.Initialize("GMSServices").RunMethod("SDKVersion", Null).AsString)
End Sub
Private Sub AddMap
gmap.Initialize("gmap", ApiKey)
karte.RootPanel.AddView(gmap, 0, 0, 100%X, 100%y)
gmap.MapType = gmap.MAP_TYPE_TERRAIN
gmap.GetUiSettings.CompassEnabled = True
gmap.GetUiSettings.MyLocationButtonEnabled = False
gmap.MyLocationEnabled = True
' gmap.GetUiSettings.ScrollGesturesEnabled = True
' gmap.GetUiSettings.ZoomGesturesEnabled = True
Pnlmember.Visible = False
Btnmapchange.BringToFront
Btnmembers.BringToFront
BtnSchriftgros.BringToFront
BtnSchriftklein.BringToFront
Btnmyloc.BringToFront
BtnZoommin.BringToFront
BtnZoomplus.BringToFront
End Sub