Массив элементов управления.

[Dethlord]

Пишу карточную игру на VB.NET но ставить в тупик сабж.
вот рабочий код:
В форме

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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Image = GetItem(1)
        PictureBox2.Image = GetItem(2)
End Sub

Public Function GetItem(ByVal Karta As Integer) As System.Drawing.Image
        Select Case Karta
            Case 1
                Return My.Resources._2S
            Case 2
                Return My.Resources._2C
        End Select
    End Function


А как мнезамутить чтоб я и PictureBox не перечислял вручную а чтоб выгледело примерно так:

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

for e=1 to 25
Функция(e)= GetItem(1)
next e


помните как в VB обычном было:
text1(t).text=text2(t)
Мне нужно реализовать чтото подобное
пытался делать так:

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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Image = GetItem(1)
        PictureBox2.Image = GetItem(2)
        Zapoln(Что тут писать?)
    End Sub
   
    Private Sub Zapoln(ByVal container As Control)
        Dim ctrl As System.Windows.Forms.PictureBox
        For Each ctrl In container.Controls
            If TypeOf (ctrl) Is PictureBox Then
                ctrl.Image = GetItem(1)
            End If
        Next
    End Sub
не прокатывает.


[Dethlord]

Все разобрался осталось тока одно замечание
вот код:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cb(4) As PictureBox
cb(1) = Me.PictureBox1
cb(2) = Me.PictureBox2
cb(3) = Me.PictureBox3
cb(4) = Me.PictureBox4
For i As Integer = 1 To 4
cb(i).Image = GetItem(1)
Next
End Sub

тока жалуется на:(в виде Предупреждения)

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

Public Function GetItem(ByVal Karta As Integer) As System.Drawing.Image
        Select Case Karta
            Case 1
                Return My.Resources._2S
            Case 2
                Return My.Resources._2C
        End Select
    End Function


Функция "GetItem" возвращает значение не для всех ветвей кода. Во время выполнения может произойти исключение при ссылке на значение NULL.
Что не так?

[arvitaly]

может быть case else?

[Williams]

Добавить их в свою коллекцию. Например:

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

private boxes as list (of picturebox)

boxes.add (picturebox1): boxes.add (picturebox2)


обращаешся так:

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

boxes.item(n)