2008年1月12日土曜日

Googleマップを利用する

経度と緯度を指定して、付近の地図を表示します。
// 経度と緯度を指定して、GoogleMapを表示する
#const COMBOX_HEIGHT 20
    axobj ie, "Shell.Explorer.2"ginfo_winxginfo_winy - COMBOX_HEIGHT
    if stat == -1 {
        dialog "ActiveXコントロールの配置に失敗しました。"1
        end
    }

    sdim places, 60
    places = "札幌ドーム\n東京ドーム\n原爆ドーム"
    // 緯度と経度…Geocodingにて検索
    ll(00) = 43.014605141.410877    // 札幌ドーム
    ll(01) = 35.705637139.751892    // 東京ドーム
    ll(02) = 34.395483132.453592    // 原爆ドーム

    objsize ginfo_winxCOMBOX_HEIGHT
    combox selected, 100, places
    hcombox = objinfo_hwnd(stat)

    oncmd gosub *on_selected0x0111
    gosub *jump
    stop

// 指定場所へのジャンプ
*jump
    url = "http://maps.google.co.jp/?ie=UTF8&z=17&om=1&ll=" + ll(0, selected) + "," + ll(1, selected) + "&output=embed&s=AARTsJqzARj-Z8VnW5pkPMLMmZbqrJcYpw"
    ie -> "Navigate" url
    return

// コンボボックスが変更された場合にジャンプ
*on_selected
    if (lparam == hcombox)&(wparam & 0x10000 != 0) {
        gosub *jump
    }
    return

0 件のコメント: