使用腾讯地图
使用腾讯地图的步骤为：
1、将地图控件的地图来源设置为"Custom"
2、将地图控件的GetMapTile事件的代码设置为：
Dim
server
As
Integer
= Rand.Next(0, 4)
'随机选择0到3号服务器
Dim
styleid
As
Integer
= 0
'0标准,1深色,2简洁,3夜间,4清新,5粉彩,6行政区域,7地形
Dim
tencentY
As
Integer
= (1 << e.Z) - 1 - e.Y
'腾讯地图Y坐标需要翻转
Dim
url
As
String
=
"https://rt{0}.map.gtimg.com/tile?z={1}&x={2}&y={3}&styleid={4}"
e.URI = CExp(url, server, e.Z, e.X, tencentY, styleid)