GMap.Net中使用百度地图

public abstract class BaiduMapProviderBase : GMapProvider
    { 
        public BaiduMapProviderBase()
        {
            MaxZoom = null;
            RefererUrl = "http://map.baidu.com";
            Copyright = string.Format("©{0} Baidu Corporation, ©{0} NAVTEQ, ©{0} Image courtesy of NASA", DateTime.Today.Year);
        }

        public override GMap.NET.PureProjection Projection
        {
            get { return MercatorProjection.Instance; }
        }

        GMapProvider[] overlays;
        public override GMapProvider[] Overlays
        {
            get
            {
                if (overlays == null)
                {
                    overlays = new GMapProvider[] { this };
                }
                return overlays;
            }
        }
    }
public class BaiduMapProvider : BaiduMapProviderBase
    {
        static BaiduMapProvider()
        {
            Instance = new BaiduMapProvider();
        }
        public static readonly BaiduMapProvider Instance;
        readonly Guid id = new Guid("47C1561B-C785-4EBF-9EC3-2CF0E416E219");
        public override GMap.NET.PureImage GetTileImage(GMap.NET.GPoint pos, int zoom)
        {
            try
            {
                string url = MakeTileImageUrl(pos, zoom, LanguageStr);
                return GetTileImageUsingHttp(url);
            }
            catch 
            {
                return null;
            }
        }
        string MakeTileImageUrl(GPoint pos, int zoom, string language)
        {
            zoom = zoom - 1; 
            var offsetX = Math.Pow(2, zoom); 
            var offsetY = offsetX - 1; 
            var numX = pos.X - offsetX;
            var numY = -pos.Y + offsetY; 
            zoom = zoom + 1; 
            var num = (pos.X + pos.Y) % 8 + 1;
            var x = numX.ToString().Replace("-", "M");
            var y = numY.ToString().Replace("-", "M");
            //原来:http://q3.baidu.com/it/u=x=721;y=209;z=12;v=014;type=web&fm=44
            //更新:http://online1.map.bdimg.com/tile/?qt=tile&x=23144&y=6686&z=17&styles=pl
            //string url = string.Format(UrlFormat, num, x, y, zoom, "014", "web", "44"); 
            string url = string.Format(UrlFormat, x, y, zoom);
            return url;
        }
        //static readonly string UrlFormat = "http://q{0}.baidu.com/it/u=x={1};y={2};z={3};v={4};type={5}&fm={6}";
        static readonly string UrlFormat = "http://online1.map.bdimg.com/tile/?qt=tile&x={0}&y={1}&z={2}&styles=pl";
        public override Guid Id
        {
            get { return id; }
        }
        readonly string name = "BaiduMap";
        public override string Name
        {
            get
            {
                return name;
            }
        }
    }

 

mapControl.Position = new PointLatLng(21.5053134635657, 67.8822576999664); //百度地图中心位置:郑州

 

转载于:https://www.cnblogs.com/xinzheng/p/5421414.html

### 如何在 VB.NET使用 GMap.NET 集成百度地图 #### 准备工作 为了能够在 VB.NET 项目中集成百度地图,首先需要安装 `GMap.NET` 库以及配置必要的 API 密钥。 可以通过 NuGet 安装最新版本的 `GMap.NET.WindowsForms`[^1]: ```shell Install-Package GMap.NET.WindowsForms ``` 还需要申请百度地图API密钥,并将其保存以便后续使用。访问 [百度地图开放平台](https://lbsyun.baidu.com/) 获取API Key。 #### 创建 Windows Forms 应用程序 启动 Visual Studio 并创建一个新的 Windows Forms App (.NET Framework) 工程,在工具箱里找到并拖拽一个名为 `GMapControl` 的控件到窗体上。 设置此控件的主要属性如下所示: - Dock 设置为 Fill 或者根据实际需求调整大小位置; - MapProvider 属性指定使用的地图提供商 (对于百度地图应设为 BaiduMap); #### 编写代码初始化地图显示 双击 Form 打开其背后的代码文件,修改构造函数来加载地图数据: ```vb.net Imports GMap.NET.MapProviders ' 引入命名空间支持不同图层服务 Imports GMap.NET ' 主要库引用 Public Class MainForm Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load InitializeComponent() ' 初始化地图控制参数 GMaps.Instance.Mode = AccessMode.ServerOnly Me.GMapControl1.Manager.Mode = AccessMode.ServerOnly ' 设定地图中心点坐标(这里以天安门为例) Dim centerPoint As New PointLatLng(39.9042, 116.4074) ' 加载百度地图瓦片服务器作为底图源 GMapControl1.MapProvider = GMapProviders.BaiduMap GMapControl1.Position = centerPoint GMapControl1.MinZoom = 1 GMapControl1.MaxZoom = 20 GMapControl1.Zoom = 15 ' 启动异步刷新机制保持界面流畅度 GMapControl1.CacheLocation = "cache" GMapControl1.ShowCenter = False GMapControl1.DragButton = MouseButtons.Left GMapControl1.CanDragMap = True GMapControl1.EmptyTileColor = Color.Transparent AddHandler GMapControl1.OnMarkerClick, AddressOf OnMarkerClick AddHandler GMapControl1.OnPositionChanged, AddressOf Position_Changed GMapControl1.Refresh() ' 添加自定义标记物实例化过程省略... End Sub Private Sub OnMarkerClick(item As MarkerItem, e As MouseEventArgs) MessageBox.Show($"点击了 {item.Text}") End Sub Private Sub Position_Changed(sender As Object, e As EventArgs) Console.WriteLine($"当前位置更改为:{GMapControl1.Position.Lat},{GMapControl1.Position.Lng}") End Sub End Class ``` 这段代码实现了基本的地图展示功能,包括设定初始视图范围、启用交互操作等功能。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值