🚀 go-pugleaf

W dniu piątek, 31 stycznia 2020 10:08:19 UTC+1 użytkownik Phantom napisał:
> Witam
> dotyczy: każda wersja ponieważ jestem zdesperowany ;)
> 
> Szukam następującego rozwiązania:
> 1. otwieram formularz dodawania danych dla kontrahenta;
> 2. wprowadzam jego dane;
> 3. przycisk np.: "przypnij do mapy..";
> 4. otwiera się np.: GoogleMaps lub OpenStreetMap i pokazuje zbliżenie na np.: Kraków;
> 5. klikam w mapę;
> 6. w formularzu danych kontrahenta wpisuje się x i y z mapy.
> 
> A możne już ktoś?, gdzieś? takie rozwiązanie lub podobne widział?
> 

Znowu poszło na priv. Ach ten Thunderbird
__________________________________________

Kiedyś coś takiego robiłem, dla OpenStreetMap osadzonej w formularzu
MS Access w formancie Microsoft Web Browser.

Tworzysz w pliku *.html dodatkowe dwa pola np. poleLat, poleLon
i w sekcji (funkcji) inicjalizującej rejestrujesz zdarzenie Click mapy
przekazując w nim poszczególne pola.

Coś w tym rodzaju:

/*zdarzenie klikniecia na mapie (wspolrzedne kliknietego punktu) */
map.events.register("click", map, function(e) {
    var position = map.getLonLatFromViewPortPx(e.xy).transform(epsg900913, epsg4326);
           
    OpenLayers.Util.getElement("latClick").value = position.lat;
    OpenLayers.Util.getElement("lonClick").value = position.lon;
    });

Po kliknięciu na mapie wypełniane są pola strony "latClick" i "lonClick"
współrzędnymi.

Teraz w formularzu w funkcji zapisujesz dane w formantach MS Access
'_______________________________________________
Private Function myDocument_onclick() As Boolean

  Me.txtClickLon.Value = myDocument.getElementById("lonClick").Value
  Me.txtClickLat.Value = myDocument.getElementById("latClick").Value
  MsgBox "Lon=" & myDocument.getElementById("lonClick").Value & " Lat=" & myDocument.getElementById("latClick").Value

End Function

a gdzieś wcześniej:

Private Sub MyWebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)

    Set myDocument = Me.MyWebBrowser.Document

.....


O ile pamiętam kod działał we wczesnych wersjach OpenLayers, bodajże ver. 1 i ver.2

Obena wersja to chyba ver.5, ale wszyst w niej jest totalnie pozmieniane. 

-- 
Zbigniew Bratko