Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/sockets/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 在VB或C+中添加Bing/Google地图API+;_Vb.net_Google Maps_Bing Maps_Bing Api - Fatal编程技术网

Vb.net 在VB或C+中添加Bing/Google地图API+;

Vb.net 在VB或C+中添加Bing/Google地图API+;,vb.net,google-maps,bing-maps,bing-api,Vb.net,Google Maps,Bing Maps,Bing Api,您好,我目前正在使用一个简单的web搜索功能作为我的地图系统,但我想将地图直接添加到应用程序中,使其看起来更加专业。我已经添加了我的原始代码,这是在VB中,这样你就可以理解我已经工作了,所以你可以给我一个想法,如何进一步的,我也在考虑改写我的应用程序在C++。 Private Sub BTNMAP_Click(sender As Object, e As EventArgs) Handles BTNMAP.Click Automate = True Maps.Automate

您好,我目前正在使用一个简单的web搜索功能作为我的地图系统,但我想将地图直接添加到应用程序中,使其看起来更加专业。我已经添加了我的原始代码,这是在VB中,这样你就可以理解我已经工作了,所以你可以给我一个想法,如何进一步的,我也在考虑改写我的应用程序在C++。
Private Sub BTNMAP_Click(sender As Object, e As EventArgs) Handles BTNMAP.Click
    Automate = True

    Maps.Automate = Automate
    Maps.SearchInput = PostcodeTextBox.Text
    Maps.WebBrowser1.Navigate("https://www.bing.com")
    Maps.Show()
End Sub

或者,我想更改Map.WebBrowser1.Navigate(“”),但我一直在努力查找文本字段和按钮的html元素


感谢您的帮助。

如果您想在应用程序中打开网页,您可以在此处找到有关如何创建Bing地图URL的文档:

这些URL也应该与地图预览一起使用,然而,预览站点使用了大量HTML5,我怀疑它是否能在WPF或WinForm应用程序中的WebBrowser内部工作,因为我相信WebBrowser控件模拟的是不支持HTML5的IE7。有很多方法可以通过更改注册表设置来解决这个问题:但是,除非这个应用程序只在几个应用程序中使用,否则这可能不是一个选项

尽管如此,在应用程序中使用JavaScript映射并不是一个好主意。特别是当有一个很棒的Bing Maps WPF控件可以在你的应用程序中使用时(也可以在WinForm应用程序中使用)。您可以在此处找到有关此控件的文档:

您还可以通过Nuget访问此控件:

以下是关于Bing Maps WPF控件的一些附加资源:

博客帖子:

代码示例:

您需要一个Bing地图键才能使用地图控件。您可以在此处通过Azure Marketplace获得:

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    If Automate = True Then Automate = False Else Exit Sub


    Dim txt As HtmlElement = WebBrowser1.Document.GetElementById("q")

    Dim btn As HtmlElement = WebBrowser1.Document.GetElementById("go")


    txt.SetAttribute("value", SearchInput)
    btn.InvokeMember("click")
End Sub