在 Winforms (.net 4.0) 中使用 Google 地球 API

Question

是否有任何用于设置使用 Google 地球 API 的 Winform（或 WPF）的示例？我看到很多不推荐使用的东西（FC.GEPlugins）。我知道我需要一个网络浏览器控件，但我不知道如何将它分配给插件。

希望有一个简单的应用程序显示如何将纬度/经度传递给插件并在位置上放置标记。

谢谢！

Answer 1

您可以通过从您的代码中构建一个 KML 文件并运行它来实现这一点，它很简单。

这里是一个 C# 代码示例：

        StreamWriter _writer = new StreamWriter("C:\Map.KML");

        _writer.WriteLine("<?xml version=\"1.0\" encoding=\"UTF-8\"?><kml xmlns=\"http://www.opengis.net/kml/2.2\">");
        _writer.WriteLine("<Document>");

        _writer.WriteLine("<Placemark>");
        _writer.WriteLine("<Style>");
        _writer.WriteLine("<IconStyle>");
        _writer.WriteLine("<color>ccaa00ee</color>");
        _writer.WriteLine("</IconStyle>");
        _writer.WriteLine("<LabelStyle>");
        _writer.WriteLine("<color>ccaa00ee</color>");
        _writer.WriteLine("</LabelStyle>");
        _writer.WriteLine("</Style>");
        _writer.WriteLine("<name>");
        _writer.WriteLine(your location name);
        _writer.WriteLine("</name>");
        _writer.WriteLine("<Point>");
        _writer.WriteLine("<coordinates>" + your longitude + "," + your latitude + "</coordinates>");
            _writer.WriteLine("</Point>");
            _writer.WriteLine("</Placemark>");
        }

        _writer.WriteLine("</Document>");
        _writer.WriteLine("</kml>");

        _writer.Close();

        System.Diagnostics.Process.Start("C:\Map.KML");

Answer 2

在我发布此内容后，我意识到您要求的是谷歌地球而不是谷歌地图——这是谷歌地图的一个例子。希望它可以帮助一些人

创建表单

'Using the control
Public Class Mapping
Dim wide As Integer
Dim high As Integer
Private GoogleControl1 As GoogleControl
Sub New()
    ' This call is required by the Windows Form Designer.
    InitializeComponent()
    ' Add any initialization after the InitializeComponent() call.
    GoogleControl1 = New GoogleControl() With {.Dock = DockStyle.Fill}
    Me.Controls.Add(GoogleControl1)
End Sub
End class

创建一个类

'The Control
'The class needs to be marked as com visible so the
'script in the GoogleMap.htm can call some of the subs.

<System.Runtime.InteropServices.ComVisibleAttribute(True)> _
Public Class GoogleControl : Inherits UserControl
Dim cnn As New MySqlConnection()
Dim cmd As New MySqlCommand
Dim adptr As New MySqlDataAdapter
Dim current As String
Dim filltab As New DataTable
Dim pop As Integer
Private WebBrowser1 As WebBrowser
Private StatusStrip1 As StatusStrip
Private StatusButtonDelete As ToolStripButton
Private StatusLabelLatLng As ToolStripStatusLabel
Private lastupdated As ToolStripStatusLabel
Private InitialZoom As Integer
Private timer2 As Timer
Private InitialLatitude As Double
Private InitialLongitude As Double
Private components As System.ComponentModel.IContainer
Private InitialMapType As GoogleMapType
Dim mapcontains As New System.Collections.Generic.HashSet(Of String)
'I use this enum to store the current map
'type into the application's settings.
'So when the user closes the map on Satellite
'mode it will be on Satellite mode the next
'time they open it.
Public Enum GoogleMapType
    None
    RoadMap
    Terrain
    Hybrid
    Satellite
End Enum
Sub New()
    MyBase.New()
    WebBrowser1 = New WebBrowser
    StatusStrip1 = New StatusStrip
    StatusButtonDelete = New ToolStripButton
    StatusLabelLatLng = New ToolStripStatusLabel
    lastupdated = New ToolStripStatusLabel
    WebBrowser1.Dock = DockStyle.Fill
    timer2 = New Timer() With {.Interval = 10000, .Enabled = True}
    WebBrowser1.AllowWebBrowserDrop = False
    WebBrowser1.IsWebBrowserContextMenuEnabled = False
    WebBrowser1.WebBrowserShortcutsEnabled = False
    WebBrowser1.ObjectForScripting = Me
    WebBrowser1.ScriptErrorsSuppressed = True
    AddHandler WebBrowser1.DocumentCompleted, AddressOf WebBrowser1_DocumentCompleted
    StatusStrip1.Dock = DockStyle.Bottom
    ' StatusStrip1.Items.Add(StatusButtonDelete)
    ' StatusStrip1.Items.Add(StatusLabelLatLng)
    StatusStrip1.Items.Add(lastupdated)
    StatusButtonDelete.Text = "Delete Markers"
    '       AddHandler StatusButtonDelete.Click, AddressOf StatusButtonDelete_Click
    AddHandler timer2.Tick, AddressOf Timer2_Tick
    Me.Controls.Add(WebBrowser1)
    Me.Controls.Add(StatusStrip1)
    'The default map settings.
    InitialZoom = 10
    InitialLatitude = 36.8438126
    InitialLongitude = -76.2862457
    InitialMapType = GoogleMapType.RoadMap
End Sub
Sub New(ByVal zoom As Integer, ByVal lat As Double, ByVal lng As Double, ByVal mapType As GoogleMapType)
    'This constructor could be used to start the map with different values
    'other than the default settings.
    Me.New()
    InitialZoom = zoom
    InitialLatitude = lat
    InitialLongitude = lng
    InitialMapType = mapType
End Sub
Private Sub GoogleControl_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    'Load the htm doc into the webrowser.
    'When it completes, intialize the map.
    WebBrowser1.DocumentText = My.Computer.FileSystem.ReadAllText("GoogleMap.htm")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
    'Initialize the google map with the initial settings.
    'The Initialize script function takes four parameters.
    'zoom, lat, lng, maptype. Call the script passing the
    'parameters in.
    WebBrowser1.Document.InvokeScript("Initialize", New Object() {InitialZoom, InitialLatitude, InitialLongitude, CInt(InitialMapType)})
End Sub
Public Sub Map_MouseMove(ByVal lat As Double, ByVal lng As Double)
    'Called from the GoogleMap.htm script when ever the mouse is moved.
    StatusLabelLatLng.Text = "lat/lng: " & CStr(Math.Round(lat, 4)) & " , " & CStr(Math.Round(lng, 4))
End Sub
Public Sub Map_Click(ByVal lat As Double, ByVal lng As Double)
    'Add a marker to the map.
    '  Dim MarkerName As String = InputBox("Enter a Marker Name", "New Marker")
    '  If Not String.IsNullOrEmpty(MarkerName) Then
    'The script function AddMarker takes three parameters
    'name,lat,lng. Call the script passing the parameters in.
    ' WebBrowser1.Document.InvokeScript("AddMarker", New Object() {MarkerName, lat, lng})
    ' End If
End Sub
Public Sub Map_Idle()
    'Would be a good place to load your own custom markers
    'from data source
End Sub
'  Private Sub StatusButtonDelete_Click(ByVal sender As Object, ByVal e As EventArgs)
'Call the DeleteMarkers script in the htm doc.
'    WebBrowser1.Document.InvokeScript("DeleteMarkers")
'  End Sub

Private Sub InitializeComponent()
    Me.SuspendLayout()
    '
    'GoogleControl
    '
    Me.Name = "GoogleControl"
    Me.ResumeLayout(False)

End Sub

End Class

然后创建一个名为 GoogleMap.htm 的 html 文件

<!DOCTYPE html>
<html>
<head>
<meta name="viewport" content="initial-scale=1.0, user-scalable=no" />
<style type="text/css">
    html {
        height: 100%;
    }

    body {
        height: 100%;
        margin: 0;
        padding: 0;
    }

    #map_canvas {
        height: 100%;
    }
</style>

<script type="text/javascript" src="http://maps.googleapis.com/maps/api/js?sensor=false"> </script>

<script type="text/javascript">

    var map;
    var Markers = [];

    function Initialize(zoomLevel, lat, lng, type) {
        //Get the type of map to start.
        //Need to convert the GoogleMapType enum
        //to an actual Google Map Type
        var MapType;
        switch (type) {
            case 1:
                MapType = google.maps.MapTypeId.ROADMAP;
                break;
            case 2:
                MapType = google.maps.MapTypeId.TERRAIN;
                break;
            case 3:
                MapType = google.maps.MapTypeId.HYBRID;
                break;
            case 4:
                MapType = google.maps.MapTypeId.SATELLITE;
                break;
            default:
                MapType = google.maps.MapTypeId.ROADMAP;
        };

        //Create an instance of the map with the lat, lng, zoom, and
        //type passed in
        var myLatlng = new google.maps.LatLng(lat, lng);
        var myOptions = { zoom: zoomLevel, center: myLatlng, mapTypeId: MapType };
        var MarkerSize = new google.maps.Size(48, 48);

        map = new google.maps.Map(document.getElementById("map_canvas"), myOptions);
        google.maps.event.addListener(map, 'click', Map_Click);
        google.maps.event.addListener(map, 'mousemove', Map_MouseMove);
        google.maps.event.addListener(map, 'idle', Map_Idle);

    }

    function Map_Click(e) {
        window.external.Map_Click(e.latLng.lat(), e.latLng.lng());
    }

    function Map_MouseMove(e) {
        window.external.Map_MouseMove(e.latLng.lat(), e.latLng.lng());
    }

    function Map_Idle() {
        window.external.Map_Idle();
    }


    function DeleteMarkers() {
        if (Markers) {
            for (i in Markers) {
                Markers[i].setMap(null);
                google.maps.event.clearInstanceListeners(Markers[i]);
                Markers[i] = null;
            }
            Markers.length = 0;
        }
    }


    function AddMarker(name, lat, lng) {
        var MarkerLatLng = new google.maps.LatLng(lat, lng);
        var MarkerOption = { map: map, position: MarkerLatLng, title: name };
        var Marker = new google.maps.Marker(MarkerOption);
        Markers.push(Marker);
        MarkerLatLng = null;
        MarkerOption = null;
    }

</script>

</head>
<body>
    <div id="map_canvas" style="width: 100%; height: 100%">
    </div>
</body>
</html>

恭喜您开展业务 - 加载表单，您应该有一张地图，可以看到弗吉尼亚州汉普顿路的中心区域。要更改位置，请转到

InitialZoom = 10
InitialLatitude = 36.8438126
InitialLongitude = -76.2862457

缩放数字越大，距离街景越近 初始 lat 和 long 必须是十进制

要添加标记，您将使用 vb.net

                        WebBrowser1.Document.InvokeScript("AddMarker", New Object() {"Description entered here", lat, long})

您可以轻松添加 2 个文本框和一个按钮，并使用文本框的 lat 和 long 运行此脚本

祝你好运

Answer 3

为什么说不推荐使用？您可以在 winforms 和 WPF 中使用 FC.GEPluginCtrls.GEWebBrowser - 它继承自标准的 webbrowser 控件，可以在任何可以使用的地方使用。

要加载插件，请添加一个标记并飞到您只需要做的位置。

namespace ExampleFormTest
{
    using System;
    using System.Windows.Forms;
    using FC.GEPluginCtrls;

    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            geWebBrowser1.LoadEmbededPlugin();

            // Handle the he PluginReady event 
            geWebBrowser1.PluginReady += (o, e) =>
            {
                // Here you can now use 'ge' exactly as you would
                // in the native javascript api. 
                dynamic ge = e.ApiObject;

                // create a placemark at (52, -2) look at it
                var placemark = KmlHelpers.CreatePlacemark(ge, 'myPm', 52, -2);
                GEHelpers.FlyToObject(ge, placemark);
            }; 
        }
    }
}

这里有an example of setting up the controls。