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

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

Отсюда делаем вывод: "обращаются к элементам массива объекта следующим образом ... Пишут имя массива объектов, затем в скобках выражение, указывающее индекс элемента и уж после через точку то свойство, которое хотят либо изменить, либо прочитать". Умозаключение приятно как, по сути, так и по форме. Однако, возможна ли ошибка при обращении к элементу? Да возможна, но ... Но об этом чуть позже.

Теперь другой вопрос. В предыдущем примере я показал два варианта реализации задачи: без использования массива объектов и с использованием его. А можно ли реализовать как-то по-другому решение данной игры, но всё- таки тоже используя массив объектов.

Да, можно.

Рассматриваем ту же задачу, те же коробки, с использованием тех же массивов элементов ( ... но "как-то по-другому ..." ). Всё таже форма, всё тот же Label1(0), всё таже клавиатура ... На метке выполняем комбинацию клавиш Ctrl + C, затем Ctrl + V (отвечая положительно на появившийся вопрос диалогового окна среды разработки). Разместите появившуюся метку правее от имевшейся метки. Повторите ещё: Ctrl + V и разместите правее второй.
Продолжайте повторение до тех пор пока не разместите метку Label1(9) правее метки Label1(8). Теперь выделите имеющиеся метки с индексами больше единицы. И измените свойства этих меток на противоположное - False.
Label1(1) и Label1(0) поменяйте местами.

[pic]

Объявленную переменную оставьте такую же. Оставлять же процедуры такими какими они есть бессмысленно, потому что уже в "первой" процедуре - процедуре загрузки приложения в память - появится ошибка о невозможности добавить элемент Label1(1), так как он уже существует ... Поэтому удалите все процедуры и посмотрите, какими они могут быть заменены:

Private Sub Form_Load()

Me.WindowState = 2

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



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

Поделитесь этой записью или добавьте в закладки