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

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

(автор:Есин И. В. email: tofriend@list.ru)

О чём ...

Раноили поздно серьёзно осваивающий программирование, изучающий первую системупрограммирования столкнётся с необходимостью использовать массивы. Каждый элемент массива определяется своиминдексом, которое есть неотрицательное целое число. Каждый массив определяется своим именем,которое не противоречит правилу построения имён для переменных. Ещё, говоря о массивах, следует подчеркнуть,что все элементы массива обязательно однородны. В контексте сказанного в VBразличают, например, массивы элементовуправления. Хотя индексированныеэлементы управления с общим именем в соответствие с аналогией«обычных» массивов не всегда можно назвать массивом элементов управления,в статье они всё же будут называться «массивы элементов управления»,что довольно распространено.

В статье на основании двух примеров рассматриваются многиепреимущества использования массивов элементов управления (в надлежащихслучаях), показывается каким образом можно создавать массивы и как обращаться ких элементам. Статья не претендует датьполнейшее истолкование массивов элементов управления. Знание «обычных» массивовнеобязательно.

Пример первый

или

«с претензией называться игрой»

Рассмотримзадачу, которая ясно выделяет многие преимущества использования массиваобъектов. Выводы позволят сделать дваподхода к её решению ...

На форме уже имеется картинка PictureBoxи девять равновеликих кнопок CommandButton. Имена объектов не изменены, а в картинку загружена фотография.

Причём автор идеи написал уже такой программный код:

Private Sub Form_Load()

' надпись кнопки — произвольная цифра

Command1.Caption = Int(9 * Rnd)

Command2.Caption = Int(9 * Rnd)

Command3.Caption = Int(9 * Rnd)

Command4.Caption = Int(9 * Rnd)

Command5.Caption = Int(9 * Rnd)

Command6.Caption = Int(9 * Rnd)

Command7.Caption = Int(9 * Rnd)

Command8.Caption = Int(9 * Rnd)

Command9.Caption = Int(9 * Rnd)

End Sub

Из которого следует, что послеоткрытия приложения надписи кнопок — цифры полученные псевдослучайно.

Необходимо открыть картинку убирая кнопку за кнопкой. Причём начинать надо с кнопки у которой цифранаибольшая. Затем выбирается кнопка укоторой тоже цифра наибольшая, но уже среди оставшихся и т. д.. Таким образом, последняя кнопка — кнопка с наименьшей цифрой.

Долго ...

Если писать обработчик щелчка по кнопке Command1, то может получится так:

Private Sub Command1_Click()

If Command1.Caption < Command2.Caption Then End

If Command1.Caption < Command3.Caption Then End

If Command1.Caption < Command4.Caption Then End

If Command1.Caption < Command5.Caption Then End

If Command1.Caption < Command6.Caption Then End

If Command1.Caption < Command7.Caption Then End

If Command1.Caption < Command8.Caption Then End

If Command1.Caption < Command9.Caption Then End

' еслицифра кнопки больше или равна каждой другой, то выбрали нужную!

Command1.Visible = False

' надпись минус один — чтобы уже«невидимая» не мешала выбору нужной среди видимых!

Command1.Caption = -1

End Sub

Для"второй" кнопки:

Private Sub Command2_Click()

If Command2.Caption < Command1.Caption Then End

If Command2.Caption < Command3.Caption Then End

If Command2.Caption < Command4.Caption Then End

If Command2.Caption < Command5.Caption Then End

If Command2.Caption < Command6.Caption Then End

If Command2.Caption < Command7.Caption Then End

If Command2.Caption < Command8.Caption Then End

If Command2.Caption < Command9.Caption Then End

Command2.Visible = False

Command2.Caption = -1

End Sub

Для следующих программные кодыаналогичны. Однако, для проверки приведуобработчик для «последней» кнопки:

Private Sub Command9_Click()

If Command9.Caption < Command1.Caption Then End

If Command9.Caption < Command2.Caption Then End

If Command9.Caption < Command3.Caption Then End

If Command9.Caption < Command4.Caption Then End

If Command9.Caption < Command5.Caption Then End

If Command9.Caption < Command6.Caption Then End

If Command9.Caption < Command7.Caption Then End

If Command9.Caption < Command8.Caption Then End

Command9.Visible = False

Command9.Caption = -1

End Sub

Получилось довольногромоздко. Тем не менее, программный кодудовлетворяет поставленной задаче.

Быстро!

Чтобыреализовать другой подход необходимо изменить свойство Indexу всехкнопок следующим образом ...

Измените свойство Indexукнопки Command1 на 0. У кнопки Command2 имя на Command1, причём вам надо будет положительно ответить напредлагаемый вопрос среды разработки. Выполните последнее указание для всех других кнопок.

У меня заняло меньше временивыполнить то, что я вам описал выше.

Такие приготовления нам были просто необходимы, потому чтопрограммный код будет совсем другим! Вотеголистинг:

Private Sub Form_Load()

For i = 0 To 8

Command1(i).Caption = Int(9 * Rnd)

Next i

End Sub

Private Sub Command1_Click(Index AsInteger)

For i = 0 To 8

If Command1(Index).Caption < Command1(i).Caption Then End

Next i

Command1(Index).Visible = False

Command1(Index).Caption = -1

End Sub

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

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

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

или

«спички детям — не игрушка!»

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

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

Свойство BackColorдолжно выделять всю метку. Свойство Captionлучше изменить.

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

Private Sub Form_Load()

For i = 2 To 10

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

Next i

End Sub

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

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

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

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

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

Private SubForm_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(IndexAs 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) поменяйте местами.

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

Private Sub Form_Load()

Me.WindowState = 2

skolko = 1

End Sub

Private Sub Label1_Click(Index AsInteger)

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

'

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

Label1(skolko).Visible = False

skolko = skolko — 1

Else

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

skolko = skolko + 1

If skolko <> 10 Then Label1(skolko).Visible = True

End If

Select Case skolko '

проверка на выигрыш и проигрыш

Case 0

MsgBox "

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

Case 10

MsgBox "

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

End Select

End Sub

Завершим рассмотрение данногопримера сравнением. Проект в первомслучае имеет размер 2,46 Кб, в последнем — 8,57 Кб. Однако откомпилированные, исполняемые модулипо размеру одинаковы ...

Другой вопрос: а какова разница затраченного времени вобоих случаях, если второй писать «с нуля»? Ответ, понятно, субъективен и зависит вомногом от того насколько хорошо вы знакомы со средой разработки,«видите» реализацию кода и насколько быстро набираете его.

Пример последний

или

почему «индексированные элементы управления»?

Чтобы понять,почему корректнее в некоторых случаях говорить «индексированные элементыуправления cобщим именем», а не «массив элементовуправления» рассмотрим следующий небольшой пример.

На форме брошены шесть кнопок, надписи которых замененызвёздочками:

Кнопки имеют общее имя M, аиндексы у всех разные: 204, 192, 209, 67, 200, 194 (в порядке расположения наформе слева направо). Отсюда понятно,что позиция на экране элементов управления не имеет значения, даже если у нихобщее имя.

А вот иготовый программный код:

Private Sub M_Click(Index As Integer)

M(Index).Caption = Chr(Index) '

надпись кнопки — символ номер index взятый из таблицы Ascii-символов

End Sub

Что же выполнит компьютер с помощью этих строчек? Во-первых, это процедура обработки щелчка поодной из кнопок у которой имя M, аиндекс Index(равен67, 192, 194, 200, 204 или 209). Во-вторых, щёлкая по всем кнопкам прочитаем: «МАССИВ».

Далее вэту же процедуру впишите:

M

(68).Caption=«Элемент с индексом 68 не существует»

Нажмите F5. Щёлкните по одной любой кнопке. Получится ошибка: «элемента управления стаким индексом не существует». Тоесть, обращаться к ранее несозданным элементам управления не просто не имеетсмысла, а вызывает крах программы. Хотяв обыкновенном массиве M(67 to209), элемент M(68) будетсуществовать вне зависимости от того придавали ли мы какое-то значение ему илинет. Как видите определения массиваэлементов управления и «обычного» массива различны.

Назовём всё своими именами

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

Что?

Итак, массив элементов управления состоит из элементовуправления (элементы массива), которые создаются при построении визуальнойчасти интерфейса пользователя и/или догружаютсяпрограммно (могут быть динамическими). Каждый элемент массива имеет уникальный идентификатор называемыйиндексом, который есть целое неотрицательное число, не превышающее 32767 (зависитот ОЗУ). Индексы массива необязательночередуются. Позиция элементов массивапроизвольная.

Как?

Массивэлементов можно создать, бросая один и тот же интересующий инструмент на формуи изменяя свойство Index. Кроме того, если существует хотя бы одинэлемент управления с численным значением свойства Index, то, возможно,догрузить новые элементы массива, используя, оператор Load. Удаляются догруженныеэлементы массива с помощью оператора Unload.

Обращениек свойствам элемента массива осуществляется аналогично тому, как обращаются ксвойствам объекта, не имеющего численного значения свойства Index.

еще рефераты

Еще работы по программированию, базе данных

Реферат по программированию, базе данных

Билеты по Windows и Word

29 Августа 2013

Реферат по программированию, базе данных

Java и MySQL

29 Августа 2013

Реферат по программированию, базе данных

Записная книжка на Delphi 7

29 Августа 2013

Реферат по программированию, базе данных

Учебник по основам языка Ассемблера

29 Августа 2013