GIS终极课设.docVIP

程序代码 Form1（主窗口） Dim ShpLayer As New MapObjects2.MapLayer for Add ShpLayer Dim g_feedback As DragFeedback for DrawRect Dim moline1 As MapObjects2.Line for 已测量线段后显示的样式 Dim i As Integer for MenuButton Dim a As Integer for Remove Active Layer 记录层LegMapDisp Index Dim t As Integer for Remove Active Layer 记录层LegMapDisp是否有层被激活 Dim x As Integer for AddFile Dim y(1 To 100) As New MapObjects2.MapLayer for AddFile Keylog the MapLayers Private collGtextStrings As New VBA.Collection for map1 down and Graphics Private collGtextPoints As New VBA.Collection for map1 down and Graphics Private symGtext As New MapObjects2.TextSymbol for map1 down and Graphics Public g_bIsDoAfterLyrDraw As Boolean for 属性查询 Public g_bIsDoThememapAfterLyrDraw As Boolean for 属性查询 Public g_ActiveLayer As Object for FormLayerSymbol 属性查询 Private Sub AttributesFind_Click() Unload FormAttributes FormAttributes.Show End Sub 退出 Private Sub Exit_Click() End End Sub 退出全屏 Private Sub ExitFullScreen_Click() Call Form_Resize If Toolbar1.Buttons(Identify).Value = 1 Then ListView1.Visible = True ListView1.Top = Map1.Top If ScaleWidth 910 And Form1.Width - 3000 = 0 Then ListView1.Left = Form1.Width - 3000 ListView1.Width = Form1.Width - ListView1.Left End If ListView1.Height = Map1.Height Map1.Width = ListView1.Left - Map1.Left End If End Sub Private Sub Form_Load() 属性查询 g_bIsDoAfterLyrDraw = False g_bIsDoThememapAfterLyrDraw = False 初始化记录图层数 x = 1 加载symbol样式和颜色 InitializeTracking Layer seed the random number generator Randomize 赋予ListView1标题栏名称 Set Col = ListView1.ColumnHeaders.Add() Col.Text = Field Set Col = ListView1.ColumnHeaders.Add() Col.Text = Value 窗口位置设置 Me.Top = 1500 Me.Left = 1500 窗口最大化 Form1.WindowState = 2 地图背景色 Picture2.ZOrder 0 Initialize the splitter between the legend and map picSplitter.BackColor = Form1.BackColor legMapDisp.ZOrder 0 Map1.ZOrder 0 Link legend to the Map control（连接地图和Legen