2015-08-09 3 views
0

Dim polygon() как новый Point.Есть ли способ сделать точку (тип данных) массив?

Я хочу сделать это двухмерным массивом. Поэтому я могу назвать конкретный многоугольник со следующими точками.

+0

Вы хотите сказать, что хотите сохранить две точки для каждого полигона? – dbasnett

ответ

0

Вы можете сделать это с помощью цикла:

Dim p2(UBound(polygon), 1) as Integer 

For i As Integer = 0 To UBound(polygon) 
    p2(i, 0) = polygon(i).x : p2(i, 1) = polygon(i).y 
Next i 

Вы можете убедиться, что вы действительно нужны точки в 2-мерном массиве. Это может быть необязательно.