摘要：'得到当前页面路径 Dim total_name As String total_name = Request.ServerVariables("script_name") '裁切虚拟路径字符串->得到当前页面的名称 Dim phisical_pos As Integer phisical_pos = total_name.IndexOf("/", 1) '最终得到当前页面虚拟路径 Dim pag... 阅读全文

摘要：(1)首先,我们创建 frmAttribute 类,即存储 属性信息 的对话框 private AxMapControl m_Mapctr; private ILayer m_pLyr; public frmAttribute(AxMapControl pMapCtr,ILayer pLyr) //该类创建时,接受参数 "所在地图(... 阅读全文

摘要：首先，添加两个MapControl,主图命名为mapMain，鹰眼图命名为mapEye Imports ESRI.ArcGIS.Geometry Imports ESRI.ArcGIS.Display Public Class Form1 Private EyeRect As IEnvelope '鹰眼矩形框范围 Private EyeSym As ISim... 阅读全文

摘要：之前对于"接口"概念很模糊,今天看了园子里两篇文章,有点开始懂了: http://www.cnblogs.com/AndyFish/archive/2008/08/11/1265232.html (转载) http://www.cnblogs.com/anytao/archive/2007/04/12/must_net_02.html (转载) 两位作者都归纳得很好: (1)相同点(ab... 阅读全文

摘要：Private Sub 添加书签ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加书签ToolStripMenuItem.Click Dim pMapBookMarks As IMapBookmarks pMapBookMarks... 阅读全文

摘要：Private Sub AxMapControl1_OnMouseDown(ByVal sender As System.Object, ByVal e As ESRI.ArcGIS.Controls.IMapControlEvents2_OnMouseDownEvent) Handles AxMapControl1.OnMouseDown '拉框放大 If Me.... 阅读全文

摘要：我们都知道,在.Net的鼠标事件中判断鼠标事件方法如下(以button为例): Private Sub Button1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown If e.Button = Win... 阅读全文

摘要：（1）添加矢量图层——方法1 Dim sPath As String sPath = "F:\AE 数据" '"F:\AE 数据"为所有图层文件所在的文件夹目录 Me.AxMapControl1.AddShapeFile(sPath, "object_pt") '"object_pt"为其中之一的图层文件 （2）添加矢量图层——方法2 Dim sPath As String sP... 阅读全文