Реферат: Индексированные элементы управления

Из данной процедуры читаем: "чтобы добавить объект в массив объектов необходимо воспользоваться оператором Load ". Правильно. Скажем ещё, что "через пробел после указания оператора напишем имя существующего массива объектов, а в скобках выражение, задающее индекс добавляемого элемента". Здесь хороша догадка про "выражение". Но и это ещё не всё. Бывают ли такие случаи когда нельзя (не получится) добавлять (добавить) элемент? Проверить правильность возможных догадок можете в следующем разделе статьи.

Теперь попробуйте изменить число 10 в данной процедуре на 32768. Запустите программу и посмотрите, что получается …

Прежде рассматривать следующие процедуры, в которых узнаете, как обращаться к элементам массива объекта объявим переменную:

Private skolko As Integer ' объявляем переменную которая будет сообщать сколько коробок на столе

А вот и те самые процедуры:

Private Sub Form_Initialize()

Me.WindowState = 2 ' развернём окошко

Label1(2).Left = Label1(1).Left + Label1(1).Width + 60 ' вначале выложили две

Label1(2).Visible = True

skolko = 2

End Sub

Private Sub Label1_Click(Index As Integer)

If Fix(skolko * Rnd) + 1 = Index Then

' если "угадали" - одна убирается

Label1(skolko).Visible = False

skolko = skolko - 1

Else

' если не угадали - выставляется ещё одна

Label1(skolko + 1).Left = Label1(skolko).Left + Label1(skolko).Width + 60

Label1(skolko + 1).Visible = True

skolko = skolko + 1

End If

Select Case skolko ' проверка на выигрыш и проигрыш

Case 1

MsgBox "Вы выиграли!": End

Case 10

MsgBox "Вы проиграли.": End

End Select

End Sub