vb异或VB实现几何对象的空间分析操作(.pdfVIP

vb异或:VB实现几何对象的空间分析操作(交 、并、差、异或) 疯狂代码 http://CrazyC/ ĵ http:/CrazyC/VisualBasic/Article53376.html Dim shape1 As Boolean 判断是否已经获得个几何形状 Dim shp As Object 第个输入形状 Dim shp2 As Object 第 2个输入形状 Private Sub Form_Load 　　Option3.Caption = 差运算 　　Option4.Caption = 交运算 　　Option5.Caption = 并运算 　　Option6.Caption = 异或运算 　　Option7.Caption = 线 　　Option8.Caption = 多边形 　　shape1 = True 　　Dim dc As New MapObjects2.DataConnection 　　dc.Database = D:Program FilesESRIMapObjects2SamplesDataUSA 　　If Not dc.Connect Then 　　　　MsgBox 连接, vbCritical, 连接 　　　　End 　　End If 　　Dim layer As New MapObjects2.MapLayer 　　Set layer.GeoData = dc.FindGeoData(States) 　　If layer Is Nothing Then 　　　　MsgBox 找不到需要图层 　　　　End 　　Else 　　layer.Symbol.Color = moPaleYellow 　　Map1.BackColor = moNavy 　　Map1.Layers.Add layer 　　Dim r As New MapObjects2.Rectangle 　　Set r = Map1.FullExtent 　　Map1.Extent = r 　　Map1.ScrollBars = False 　　End If 　　创建Trackinglayer符号属性 　　Map1.TrackingLayer.SymbolCount = 6 　　With Map1.TrackingLayer.Symbol(0) 　　　　.SymbolType = moPoSymbol 　　　　.Style = moTriangleMarker 　　　　.Color = moRed 　　　　.Size = 5 　　End With 　　With Map1.TrackingLayer.Symbol(1) 　　　　.SymbolType = moLineSymbol 　　　　.Color = moRed 　　　　.Size = 3 　　End With 　　With Map1.TrackingLayer.Symbol(2) 　　　　.SymbolType = moFillSymbol 　　　　.Style = moGrayFill 　　　　.Color = moRed 　　　　.OutlineColor = moRed 　　End With 　　With Map1.TrackingLayer.Symbol(3) 　　　　.SymbolType = moFillSymbol 　　　　.Style = moGrayFill 　　　　.Color = moGreen 　　　　.OutlineColor = moGreen 　　End With 　　With Map1.TrackingLayer.Symbol(4) 　　　　.SymbolType = moLineSymbol 　　　　.Style = moDotLine 　　　　.Color = moGreen 　　　　.Size = 3 　　End With 　　With Map1.TrackingLayer.Symbol(5) 　　　　.SymbolType = moPoSymbol 　　　　.Style = moTriangleMarker 　　　　.Color = moGreen 　　　　.Size = 5 　　End With End Sub Private Sub Command1_Click 　　Map1.TrackingLa