For each в arrayList

[KingManiya]

Вот ни как не могу понять как пользоваться for each. Конкретно в arraylist.

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

Dim col As New Collections.ArrayList
        col.Add(ob(1))
        col.Add(ob(2))
For Each x In col
            TextBox2.Text = TextBox2.Text & " " & col.Item(x).x
        Next

...............................

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

    Public Structure sod
        Dim x As Integer
        Dim y As Integer
    End Structure
    Public ob() As sod

Короче мне в текстбокс надо вывести все x из коллекции. Помогите пожалуйста.

[Viper]

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

For Each p As sod In col
    TextBox2.Text &= " " & p.x
Next

Как то так.

[KingManiya]

Не работает(
у 'p' нет 'x'
Если p обьявить как "sod" то ругается что недопустимо.
Короче может я как то не верно делаю с 'ob'?
Мне просто нужна коллекция где каждый "item" поддерживает структуру.
И после их перебирать. Я делал массивы и циклы for next но там уйма проблем с удалением какого либо элемента. Мне посоветовали использовать коллекции. Люди прошу вас не пройдите мимо. Помогите.

[Nord777]

KingManiya, для чего ты обьявляешь массив структур Public ob() As sod
Скорее всего именно в этом и ошибка.

И вместо ArrayList лучше используй Generic-коллекцию List( Of ...)

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

      Dim sod As New List(Of Point)
      sod.Add(New Point(10, 10))
      sod.Add(New Point(20, 20))
      sod.Add(New Point(30, 30))

      For Each p As Point In sod
         TextBox1.AppendText("x= " & p.X & vbCrLf)
      Next

[KingManiya]

Видимо я не удачнй пример привел(

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

    Public Structure sod
        Dim x As Integer
        Dim y As Integer
        dim heath as integer
    End Structure

У меня в sod 15 параметров. Для примера я сделал 2. Можно без point обойтись?

[Nord777]

У меня в sod 15 параметров. Для примера я сделал 2. Можно без point обойтись?

Какая разница то??
Point - это тоже структура. Она просто для примера.
Вместо неё подставь свою(sod).

[KingManiya]

Спасибо, попробую.