调整流程图中心位置的技巧

每个流程图显示窗口的AfterLoad事件都有类似下面的代码，其中红色的部分各不相同：

'初始化地图控件，不是必须的，只是使得地图控件更适合作为流程图控件使用:
Dim map As GeoMap = e.Form.Controls("Map1").GeoMap
map.UseGallPetersProjection = True '采用Gall Peters投影方式
map.Viewport.Limits.MaxLat = 60 '排除高纬度地区，因为高纬度地区变形大
map.Viewport.Limits.MinLat = -60
map.Zoom = 12 '缩放指数设置为12，留足够的区间用于放大和缩小
map.CenterTo(-159.978026,49.988866) '中心点设置在有效区域的左上，因为通常都是往右下绘制，同时也留有一定的余地往左上绘制

这是因为设计人员在绘制流程图的时候比较随意，设计好的流程图的整体位置不一定是最佳的，最终显示的时候需要进行位置微调。

为了获得最合适的显示位置，可以在流程图显示窗口的Map控件的CenterChanged事件中加上代码：

e.Form.Text = e.Sender.Centerx & "," & e.Sender.CenterY & "," & e.Form.BaseForm.Width & "," & e.Form.BaseForm.Height

然后打开流程图显示窗口，通过拖动调整流程图位置，窗口标题会显示当前流程图中心的经纬度坐标以及窗口大小。

调整到最佳位置之后，根据窗口标题显示的经纬度坐标，修改上述的红色代码，需要的话，也可以根据提示修改窗口大小。