alex_bn_lee

摘要： 1.Sub MyMacro() Dim pMxDocument As IMxDocument '地图文档 Set pMxDocument = Application.Document '获取当前应用程序的文档 MsgBox pMxDocument.FocusMap.name '显示当前地图的名称End Sub2.Sub MyMacro() Dim pMxDocument As IMxDocument '地图文档 Dim pMaps As IMaps '地图集 Dim pMap As IMap '地图 Set pMxDocument = Appli 阅读全文

摘要： 字段名提取用Collection对象方法：Private Sub UIButtonFields_Click() ' Part 1: Get the feature class and its fields. Dim pMxDoc As IMxDocument Dim pMap As IMap Dim pFeatureLayer As IFeatureLayer Dim pFeatureClass As IFeatureClass Dim pFields As IFields Set pMxDoc = ThisDocument Set pM... 阅读全文

摘要： IApplication接口：》》》点击查看《《《移动选中图层，使用IMap接口的MoveLayer方法Sub MapIndex() Dim pDoc As IMxDocument Dim pMap As IMap Dim pLayer As ILayer Set pDoc = ThisDocument Set pMap = pDoc.FocusMap Set pLayer = pDoc.SelectedLayer pMap.MoveLayer pLayer, pMap.LayerCount - 1End SubIApplication接口的属性和方法... 阅读全文

摘要： 随机文件随机文件中每一个记录定长，并设置记录号，记录号从1开始。存取记录时，只要说明所需记录的编号，系统就以此算出记录所在位置，然后加以写入或读出初步认识 建立一个随机文件，文件中包含10个记录，每个记录由一个数(1至10)的平方、立方和开方根三个数值组成，以该数作为记录号Private Type Numval Square As String Cube As String SqrRoot As StringEnd TypePublic nv As NumvalSub dksjflsd() Open ThisWorkbook.Path & "\data5.tx... 阅读全文

摘要： 1.打开文件(Open)Open 文件名 [For模式][Access 存取类型][锁定]As [#]文件号[Len=记录长度] 说明：(1)文件名；(2) 模式用于指定文件访问的方式，包括： Append——从文件末尾添加 Binary——二进制文件 Input——顺序输入（输入给自己，从txt中取出） Output——顺序输出（输出到txt中） Random——随机存取方式(3)文件号(或称文件缓冲区) (4)存取类型：访问文件的类型，为Read(只读)、Write(只写)、Read Write(读写) (5)锁定：限制其他用户或其他进程对文件进行读写操作 Shared(共享)、L... 阅读全文