Свойства элемента из массива

[Densil]

Люди, может кто подскажет? Задачка такая: есть массив элементов (лэйбелов), которые при загрузке формы заполняются в случайном порядке цифрами красного и чёрного цвета. Нужно, чтобы при нажатии на соответствующую цифру (Click или MouseDown) в отдельном информационном окошке (тоже лэйбел) появлялась эта же цифра и того же цвета. Как бы это осуществить?

[GSerg]

Собственно, из постановки вопроса ("есть массив элементов") следует, что массив есть.
Как на VB осуществляется доступ к массиву, возникает после этого вопрос?..

[Twister]

Невольно напрашивается излюбленная фраза GSerga: "А какие действия уже были предприняты для решения данной задачи самим автором?"

[Densil]

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

[GSerg]

Вернёмся к вопросу.

есть массив элементов

В VB есть понятие - массив элементов. Автор вопроса под словами "массив элементов" имел в виду массив элементов или же тот факт, что элементов много?

[Densil]

Именно массив элементов - этикетки с именами от L(0) до L(48)

[Twister]

Но в чем проблема, если ты можешь обратиться к свойству элемента? Вот смотри. Пусть имеется массив лэйблов lblArr и еще один лэйбл lblMain. По клику на одном из элементов lblArr присвоим его цвет и надпись lblMain:

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

Private Sub lblArr_Click(Index as Integer)
  lblMain=lblArr(Index)
  lblMain.Forecolor=lblArr(Index).Forecolor
End Sub

[GSerg]

lblMain=lblArr(Index)

Не делай так. Желательно никогда.
lblMain.caption=lblArr(Index).caption

[Twister]

Ты знаешь, GSerg, я ведь сначала так и написал, так как привык к Delphi, там свойств по умолчанию нет. Но раз они есть в VB, почему бы ими не воспользоваться?

[Densil]

Во-от! Понятно, вот это самое (Index) мне и нужно было. Спасибо!

[GSerg]

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

Dim obj1 As Variant, obj2 As Variant
...
obj1 = obj2

Что сделает этот код, если известно, что объекты 1 и 2 имеют свойства по умолчанию, тип которых variant, и которые могут содержать как объект, так и число, причём у содержащегося объекта также есть свойство по умолчанию, тип которого Variant?

[Twister]

GSerg, не занудствуй... Это все я прекрасно знаю. Но нам же известно, что объект - это Label и его свойство по умолчанию - Caption.

[GSerg]

Я этого не помню. Мне пришлось пойти по F2 и посмотреть.
И нет, Caption не есть свойство по умолчанию. Свойство по умолчанию - _Default. А вот что оно возвращает Caption - это уже следующий слой накрутки...
Свойства по умолчанию я признаю только когда они параметрические...

[tyomitch]

Свойства по умолчанию я признаю только когда они параметрические...

Вон до чего .нет людей доводит...


Не понимаю, зачем на элементы языка налагать табу. Я пользуюсь GoTo, когда мне это нравится. И я пользуюсь GoSub, когда мне это нравится. И я пользуюсь DefXxx, когда мне это нравится. И я пользуюсь свойствами по умолчанию, когда мне это нравится. Зачем ограничивать себя?

[GSerg]

Я пользуюсь GoTo, когда мне это нравится. Я не пользуюсь GoSub лишь потому, что мне это не нравится. И моя нелюбовь к непараметрическим свойствам по умолчанию возникла существенно раньше, чем я узнал, что не смогу установить на пробу .net на 98 винду...