Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

Command1(Index).Visible = False

Command1(Index).Caption = -1

End Sub

Если вы предположите, что объём проекта первого подхода больше, чем при другом подходе, то будете совершенно правы (8,71 Кб и 4,25 Кб соответственно).

Однако, более подробные объяснения как создавать и обращаться к массивам элементов управления изложим на следующем примере и после него.

Пример второй или

"спички детям - не игрушка!"

Представьте, перед вами выложили два коробка, один из которых пустой, а другой наполнен спичками. Далее вам предлагают выбрать любой из них.
Если вы выберите из двух пустой коробок, то вы выиграли, в противном случае
- к двум имеющимся добавят ещё один спичечный коробок и перемешают их тайным для вас образом. После выбора пустого коробка среди трёх, перед вами окажется два, иначе - добавят ещё один и таким же методом. Игра оканчивается не в вашу пользу, если число коробков превысит девяти.

Представим данную программу в виде приложения! Для разнообразия, используем инструмент Label (метка). Разместим выбранный инструмент на форме ближе к левому краю. Ширина брошенной метки должна быть в десять- одиннадцать раз меньше ширины максимизированного окна. Свойство Index равно единице.
Свойство BackColor должно выделять всю метку. Свойство Caption лучше изменить.

[pic]

Ещё моя задумка не заставит вас утруждаться над созданием остальных девяти меток, поскольку они будут мгновенно созданы при открытии приложения:

Private Sub Form_Load()

For i = 2 To 10

Load Label1(i) ' добавляем ещё девять меток

Next i

End Sub

Из данной процедуры читаем: "чтобы добавить объект в массив объектов необходимо воспользоваться оператором 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

Рекомендуем скачать другие рефераты по теме: капитанская дочка сочинение, бесплатно реферат на тему.





Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата