Модератор: А FAQ для чего?

http://forum.vingrad.ru/index.php?act=ST&f=33&t=20722

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

Akina, как вот это запустить? Кто такие: OneObject и MyCollection?

Код

dim PropertyName as string PropertyName = "name" For Each OneObject in MyCollection debug.print OneObject.Properties(PropertyName) Next

сорри что вмешиваюсь...
OneObject - переменная типа Object.
MyCollection - любая коллеция объектов.

например тебе надо перебрать ВСЕ контролы на форме.
ты пишешь:

Код

dim e as control for each e in me.controls   if typeof e is TextBox then      e.forecolor=vbRed   end if   if typeof e is Label then      e.backStyle=0      e.container.currentX=e.left+15      e.container.currentY=e.top+15      e.container.forecolor=&H999999&      e.container.print e.caption   end if next

этот код изменить соответствующее цвет у ВСЕХ TextBox'ов, и напечатает тень под всеми Label'ами

также можно прошнурить только отдельный вид классов

Код

dim e as Label for each e in me.controls .... next

этот цикл пройдет токо по всем Label'ам

Код

dim f as Form for each f in Forms   unload f next

этот цикл выгрузит все формы из проекта...

Вообще его полезно использовать во многих случаях, в частности он помогает при хранении в одной коллекции объектов разного типа. например есть два класса FClass и SClass, и коллекция которая хранит вперемешку ссылки на экзепляры этих классов:

Код

dim Col as new collection 'такой способ "as new AnyObject" НЕ рекомендую! 'ради примера, случайно заполним коллекцию for i=1 to 100   if Rnd > 0.5 then      Col.add new FClass   else      Col.add new SClass   end if next 'а вот так мы пройдемся только по ссылкам на класс FClass dim c as FClass for each c in Col ... next

Очень удобно, имхо...

PS: хорошо когда время есть всей этой писаниной заниматься

Это сообщение отредактировал(а) -Mikle- - 2.10.2004, 20:58

-Mikle-, это все мне понятно, но вот я именно не понял, что такое Properties в выше указанном мной куске кода. Такого метода нет. Или я вообще на ручнике в последнее время?

Цитата(cardinal @ 3.10.2004, 01:45)

-Mikle-, это все мне понятно

Прости что не понял тебя, постарался объяснить подробней.

Цитата(cardinal @ 3.10.2004, 01:45)

но вот я именно не понял, что такое Properties в выше указанном мной куске кода

Это свойство есть НЕ У ВСЕХ объектов. Только у некоторых, например у объектов ADO. Akina, видимо предлжил код именно из этого контекста, где используется объект данных.

cardinal

Цитата

что такое Properties в выше указанном мной куске кода

Это коллекция (между прочим) свойств объекта. Действительно, не у всех. Однако, например у всех визуальных. У всех ADO/DAO. Ну, в общем, проверить присутствие оного всегда можно... сктати, если определить переменную типа "Объект", и присвоить ей ссылку на объект, у которого нет пропертей, они вдруг откуда-то появляются...

Ты это имеешь в виду?

Код

Dim o As Object   Set o = Me   MsgBox o.Properties("Name")

такой код не работает... только что вот проверил...
Или я не правильно понял?

-Mikle-
Сорри, как всегда опять попутал... предыдущий пост относится не к VB, а к VBA...

Akina, вот поэтому я и спросил

Цитата(Akina @ 4.10.2004, 12:55)

предыдущий пост относится не к VB, а к VBA...

А-а-а! блин... а я уж напрягся, думал у меня VB уже глючит хотел переустанавливать уже

уточнить можно?
мне нужно, чтоб работало в VBA for AutoCad
для всех объектов(примитивов)