连接地图.docVIP

连接地图 VB.NET与googlemap url谷歌地图连接 Dim address As String Private Function GetAddress(ByVal digits As Integer, ByVal lon As Double, ByVal lat As Double) Const Pi = 3.1415926535897 Dim x As Double Dim y As Double Dim quad As String Dim lookup(4) As String Dim i As Integer Dim m As Integer Dim n As Integer digits = Val(Text3.Text) lon = Val(Text1.Text) lat = Val(Text2.Text) x = (180# + lon) / 360# y = -lat * Pi / 180# y = 0.5 * Log((1 + Sin(y)) / (1 - Sin(y))) y = y * (1# / (2 * Pi)) y = y + 0.5 quad = t lookup(0) = q lookup(1) = r lookup(2) = t lookup(3) = s For i = 1 To digits x = x - Int(x) y = y - Int(y) If x = 0.5 Then m = 1 Else m = 0 End If If y = 0.5 Then n = 2 Else n = 0 End If quad = quad + lookup(m + n) x = x * 2 y = y * 2 Next i GetAddress = quad End Function Function GetNextTileX(ByVal addr As String, ByVal forward As Boolean) If addr = Then addr = addr End If Dim parent As String Dim last As String parent = Left(addr, Len(addr) - 1) last = Right(addr, 1) If last = q Then last = r If Not forward Then parent = GetNextTileX(parent, forward) End If ElseIf last = t Then last = s If Not forward Then parent = GetNextTileX(parent, forward) End If ElseIf last = r Then last = q If forward Then parent = GetNextTileX(parent, forward) End If ElseIf last = s Then last = t If forward Then parent = GetNextTileX(parent, forward) End If End If GetNextTileX = parent + last End Function Function GetNextTileY(ByVal addr As String, ByVal forward As Boolean) If addr = Then