Не перечисляются элементы коллекции

[GSerg]

Мне нужно триангуляцию Делоне провести, и ещё фишки всякие потом... Сделал два класса - Point и Edge (соответственно отчка данных и ребро треугольника). На основе этих классов при помощи Class Builder создал коллекции Points и Edges. Всё прекрасно, только вот коллекция Points работает через For Each, а Edges выдаёт ошибку на строке For Each drawEdge in myEdges: мол, объект не поддерживает метод/свойство... Фигня очень странная... Property NewEnum создана КлассБилдером, в Points работает, а здесь вот такая гадость. Вот кусок кода:

REBRO - это User Type
Ошибка на второй строке от 'LAST STEP
myPoints заполнена точками, там всё правильно, проверял
Рёбра в коллекцию добавляются.

Код: Выделить всё

Private Sub Delonay()
  'Draws Delonay triangles
  Dim tmpEdge As REBRO, drawEdge As Edge
 
  'STEP 1 ================
  'Choose any point and draw first edge to closest point
  Set myEdges = Nothing
  Set myEdges = New Edges
  Set myEdges.AssocPoints = myPoints
  tmpEdge.StartID = 1 'just take first point in collection
  tmpEdge.ID = 1    'edge unique ID
  tmpEdge.EndID = myPoints.ClosestPoint(1)
  tmpEdge.State = Active
  myEdges.Add tmpEdge
 
  'ЗДЕСЬ ДОЛЖЕН БЫТЬ КОД, НО ЕГО ОТСУТСТВИЕ СЕЙЧАС НЕ ПРИНЦИПИАЛЬНО
  'ЭТОТ КОД ТОЛЬКО ДОБАВЛЯЕТ РЕБРА В КОЛЛЕКЦИЮ EDGES
 
 
  'LAST STEP =============
  'Draw all of edges
  For Each drawEdge In myEdges
    IsoPic.Line (myPoints(CStr(drawEdge.StartID)).X, myPoints(CStr(drawEdge.StartID)).Y)-(myPoints(CStr(drawEdge.EndID)).X, myPoints(CStr(drawEdge.EndID)).Y)
  Next
End Sub



Большой Зелёный Смайл тому, кто знает, в чём фишка

[skiperski]

В классе Edges выбери меню Tools/Procedure Attributes...
В появившемся окне выбери в DropDown "Name" имя NewEnum
Наступи на "Advanced>>"
"Procedure Id" установи в -4
В Attributes отметь checkbox "Hide this member"
Наступай на "OK"
Проверь, напиши что получилось

[Rainbow]

Ага! Не могу не поделиться своим знанием, почему именно -4.
Это значение COM-константы DISPID_NEWENUM. Без нее VB считает, что For Each коллекцией не поддерживается, о чем и сообщает.

И VB-программерам приходится помнить это значение наизусть

[GSerg]

2 skiperski:
2 Rainbow:


Челы, вы лучшие! Никогда бы не догадался!

[gaidar]

И VB-программерам приходится помнить это значение наизусть

Хе-хе, и не только VB . Часто в разных SDK встречалось, что DISPID_NEWENUM не объявляют. И что за дискриминация?

[FaKk2]

И VB-программерам приходится помнить это значение наизусть

Хе-хе, и не только VB . Часто в разных SDK встречалось, что DISPID_NEWENUM не объявляют. И что за дискриминация?

Шо це, таке?
DISPID_NEWENUM в смысле...
Там явно пост удалили:)

[GoGosha]

Короче минус четвёртая процедура обычно так выглядит

Код: Выделить всё

Function NewEnum() As IUnknown
    Set NewEnum = colObject.[_NewEnum]
End Function

P.S. Код я скопировал из какогото класса, А -4 я правдп наизусть помню