Private sub Command1.Click（） Set MapInfo = CreateObject（"MapInfo.Application"） MapInfo.Do "Set Application Window" & MDIForm1.hwnd MapInfo.Do （"Set Next Document Parent" & Picture1.hwnd&"Style 1"） MapInfo.Do （& quot;Run Application"""+"D：\GIS\fsgis\

Dim pt As MapObjects2.Point Set pt = New MapObjects2.Point Dim x, y As Double pt.x = 108.894461 pt.y = 34.153736 mapDisp.FromMapPoint (pt, x, y) Dim pt1 As New Point Set pt1 = New Point pt1.x = x pt1.y = y mapDisp.TrackingLayer.AddEvent pt, 0 End Su

目 录 A 1 Add Method 1 Add Method (Layers Collection) 1 AddEvent Method 1 Add Geo Data Set Method 1 Add New Method 2 Add Relate Mathod(增加关联方式) 2 Address Object(地址对象) 2 Address Location Object (地址位置对象) 3 Address Matcher Object (地址匹配器对象) 3 After Layer D