Помогите найти ошибку:
преобразовал пример (VertexLineSymbol) c VB на VB.NET, но не могу разобраться, почему не происходит отображение объекта при попытке изменить отрисовку объекта
Public Sub ISymbol_Draw(ByVal Geometry As ESRI.ArcGIS.Geometry.IGeometry) Implements ESRI.ArcGIS.Display.ISymbol.Draw
If Geometry Is Nothing Then Exit Sub
If (m_pSymLine Is Nothing) Then
MsgBox("Nothing")
Exit Sub
End If
' First, draw the Line. ***** эта часть кода работает... и объект отрисовывается
'm_pSymLine.SetupDC(m_lhDC, m_pTrans)
'm_pSymLine.Draw(Geometry)
'm_pSymLine.ResetDC()
Dim ptColl As ESRI.ArcGIS.Geometry.IPointCollection
Dim i As Short
Dim pLine As ILine
pLine = New ESRI.ArcGIS.Geometry.Line
If TypeOf Geometry Is ESRI.ArcGIS.Geometry.IPointCollection Then
ptColl = Geometry
m_pSymMarker.SetupDC(m_lhDC, m_pTrans)
'Draw each vertex узлы объекта отрисовываются
For i = 0 To (ptColl.PointCount - 1)
m_pSymMarker.Draw(ptColl.Point(i))
Next i
m_pSymMarker.ResetDC()
'Попытка отобразить линию от точки до точки: отображение линии не происходит
m_pSymLine.SetupDC(m_lhDC, m_pTrans)
For i = 1 To (ptColl.PointCount - 1)
pLine.PutCoords(ptColl.Point(i - 1), ptColl.Point(i))
m_pSymLine.Draw(pLine)
Next i
m_pSymLine.ResetDC()
End If
Marshal.ReleaseComObject(ptColl)
ptColl = Nothing
End Sub
