作者：lejinxiu0794
发表时间：2008-1-4 12:13:54

Dim ptl As MapObjects2.Point
     Set ptl = Map1.ToMapPoint(X, Y)
     Dim recset As MapObjects2.Recordset
     Dim mylyr As MapObjects2.MapLayer
     Set mylyr = Map1.Layers(0)
     Set recset = mylyr.Records
     While Not recset.EOF
         Dim fd As MapObjects2.Field
         Set fd = recset.Fields("SUB_REGION")
         Dim shp As MapObjects2.Polygon
         Set shp = fd.Value   ‘错误出现的地方，错误的信息是要求对象
         If shp.IsPointIn(ptl) Then
            Set fd = recset.Fields("STATE_NAME")
            StatusBar1.Panels(1).Text = fd.ValueAsString
            Map1.CenterAt ptl.X, ptl.Y
            Map1.FlashShape shp, 2
            Exit Sub
         End If
         recset.MoveNext
    Wend

出错的地方是不是不可以那样赋值

作者：lejinxiu0794
发表时间：2008-1-7 9:46:53

哈哈，已经调试好了！！！

发表您的观点，进入该主题参与讨论...