Private Sub cmdSelectPolygon_Click polygon choose
() 'Dim recselect As MapObjects2. You
Dim SHP As MapObjects2. Polygon
Choosemethod=2
Map1. MousePointer=moArrow
The Set=recselect SHP. Fields (" shape "). The Value
Map1. FlashShape, SHP 2
Map1. Refresh
End Su

CodePudding user response:

Dim recselect As MapObjects2. You
Dim SHP As MapObjects2. Polygon
Add new statement
Dim recselect As new MapObjects2. You
Dim SHP As new MapObjects2. Polygon

CodePudding user response:

First take a look at what is no instances of words, and then see if
Recselect. Fields (" shape "). The Value is nothing inside the

CodePudding user response:

Forget to reply you, the problem has been solved, the teacher to speak for a moment, and thank you very much!

CodePudding user response:

Forget to reply you, the problem has been solved, the teacher to speak for a moment, and thank you very much!