Page 1 of 1

how can i use GoogleMaps with SB ?

Posted: Mon Dec 04, 2017 5:31 pm
by skinkairewalker
hi everyone !
someone know how can i use google maps with SB ?

Re: how can i use GoogleMaps with SB ?

Posted: Tue Dec 05, 2017 1:18 pm
by pf shadoko

Code: Select all

Procedure.i ObjectElement(objectid)
    !if (typeof(v_objectid.element)=="undefined") {return v_objectid.div} else {return v_objectid.element};
EndProcedure

Procedure LoadScript(Script.s, *OnLoadFunction)
    !$.getScript(v_script,p_onloadfunction);
EndProcedure 

;========================================================================================================================

Global divmap

Procedure affiche(llat.f, llng.f, zoom.f,type)      
    If type>=0 ;---------------------------type de carte
        !var mpid="";
        !switch (v_type) {
        !  case 0: mpid = google.maps.MapTypeId.ROADMAP; break;
        !  case 1: mpid = google.maps.MapTypeId.SATELLITE; break;
        !  case 2: mpid = google.maps.MapTypeId.HYBRID; break;
        !  case 3: mpid = google.maps.MapTypeId.TERRAIN; break;
        !}
        !v_gmap.setMapTypeId(mpid); 
    EndIf       
    If zoom>=0 ;---------------------------zoom
        !v_gmap.setZoom(v_zoom); 
    EndIf       
    If llat>=0 ;---------------------------position
        !v_gmap.setCenter({lat: v_llat, lng: v_llng}); 
    EndIf    
EndProcedure

Procedure position()
    affiche(45,0,6,0)
EndProcedure

Procedure ScriptLoaded(script.s, status.s, jqxhr) 
    If status<>"success" : Debug status :ProcedureReturn: EndIf 
    
    divmap=ObjectElement(WindowID(0))
    !var mapProp = {mapTypeControl:true, mapTypeControlOptions: {style:google.maps.MapTypeControlStyle.DROPDOWN_MENU}};
    !v_gmap=new google.maps.Map(v_divmap, mapProp);  
    !marker = new google.maps.Marker({map: v_gmap, title: 'Hello World!'});
    affiche(45,0,6,0)
EndProcedure


OpenWindow(0, 0, 0, 600, 600, "",#PB_Window_Background) 

LoadScript("http://maps.googleapis.com/maps/api/js", @ ScriptLoaded())

Re: how can i use GoogleMaps with SB ?

Posted: Tue Dec 05, 2017 5:38 pm
by skinkairewalker
thanks you very much pf shadoko :D you safe my life