导航器上的webmapping + vb.net +错误消息 [英] webmapping + vb.net + error message on the navigator

问题描述

嗨所有

我正在通过visual studio Ultimate开发.net语言的windowsform nwebmapping应用程序

我写了这段代码

hi all
i'm developping a windowsform nwebmapping application in .net language via visual studio ultimate
i've written this code

Imports System.Text
Imports Microsoft.VisualBasic
Imports System.Timers





Public Class Tracking_Theft

Private Sub butnsrchmap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butnsrchmap.Click
Try

Dim Street As String = String.Empty
Dim City As String = String.Empty
Dim Zip As String = String.Empty
Dim IMEI As Decimal = Decimal.Zero
Dim Lattitude As Decimal = Decimal.Zero
Dim Longitude As Decimal = Decimal.Zero
Dim Number_Of_Satellites As Integer = Integer.MinValue
Dim queryAdress As New StringBuilder()
queryAdress.Append("https://maps.google.com/mapps?q=")

'build street part query
If txtstreet.text <> String.Empty Then
Street = txtstreet.Text.Replace(" ", "+")
queryAdress.Append(Street + "," & "+")
End If

'build city part query
If cmbxcity.Text <> String.Empty Then
City = cmbxcity.Text.Replace(" ", "+")
queryAdress.Append(City + "," & "+")
End If

'build zip part query
If txtzip.Text <> String.Empty Then
Zip = txtzip.Text.Replace(" ", "+")
queryAdress.Append(Zip + "," & "+")
End If

'build IMEI part query
If txtimei.Text <> String.Empty Then
IMEI = txtimei.Text.Replace(" ", "+")
queryAdress.Append(IMEI + "," & "+")
End If

'build latitude part query
If txtlatitude.Text <> String.Empty Then
Lattitude = txtlatitude.Text.Replace(" ", "+")
queryAdress.Append(Lattitude + "," & "+")
End If

'build longitude part query
If txtlongitude.Text <> String.Empty Then
Longitude = txtlongitude.Text.Replace(" ", "+")
queryAdress.Append(Longitude + "," & "+")
End If

'build Number of Stellites part query
If txtnumbsat.Text <> String.Empty Then
Number_Of_Satellites = txtnumbsat.Text.Replace(" ", "+")
queryAdress.Append(Number_Of_Satellites + "," & "+")
End If

WebBrowser1.Navigate(queryAdress.ToString())


Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "Unable to load the map")

End Try
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

daylab.Text = " " & Now.ToShortDateString
timelab.Text = "" & Now.ToShortTimeString

End Sub

End Class

执行时，我发现此错误消息：

[ ^ ]

您想告诉我，我的代码中缺少什么，以便执行不工作？

是否与代码中缺少的东西相关（或者是库？）

我也想告诉你我正在使用firefox作为我电脑上的默认网页浏览器，这会干扰吗？

等待你的帮助，提前多谢：）

while executing, ive found this error message:
[^]
would u like to tell me please what is missing on my code so that the execution do not work?
is it related to something missing on the code (a library or else?)
i'd like also to inform you that i'm using firefox as a default webbrowser on my pc, should this interfere?
waiting for ur help, alot of thanks in advance :)

推荐答案

queryAdress.Append("https://maps.google.com/mapps?q=")

猜测，但我怀疑mapps应该是地图。



Err 404 表示未找到。

thaaaaaaaaaaaaaaaaaa纠正，现在它完美有效，问题只是由于双倍的再次感谢TnTinMn：）

thaaaaaaaaaaaaaaaaaaaanks for correction, now it perfectly works, the problem was just due to the double p
thanks again TnTinMn :)

这篇关于导航器上的webmapping + vb.net +错误消息的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！