Private Sub cmdSelectPolygon_Click() '多邊形選擇
Dim recselect As MapObjects2.Recordset
Dim shp As MapObjects2.Polygon
choosemethod = 2
Map1.MousePointer = moArrow
Set shp = recselect.Fields("shape").Value
Map1.FlashShape shp, 2
Map1.Refresh
End Su
uj5u.com熱心網友回復：
Dim recselect As MapObjects2.RecordsetDim shp As MapObjects2.Polygon
加new宣告
Dim recselect As new MapObjects2.Recordset
Dim shp As new MapObjects2.Polygon
uj5u.com熱心網友回復：
先看看是哪個沒有實體話，然后看看是不是recselect.Fields("shape").Value 里面就是個nothing
uj5u.com熱心網友回復：
忘了回復你們了，問題已解決，老師給講了一下，還是很感謝大家！uj5u.com熱心網友回復：
忘了回復你們了，問題已解決，老師給講了一下，還是很感謝大家！轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/109559.html
標籤：網絡編程
上一篇：跌跌撞撞中走過的VB網路編程之路