всем приветы!

допустим, название свойства у меня записано в строковой переменной.
dim s as string
s="name"

и есть какой-то объект, заведомо имеющий это свойство.

не подскажете, как обратиться к свойству объекта, используя имя переменной, его содержащей?

Наверно, только вот так:

Код

select case s   case "name1"    object.name1 = "hello1"  case "name2"    object.name2 = "hello2" end select

kb-nn, я не понял, ты прикалываешься?
http://forum.vingrad.ru/index.php?showtopic=23785

да,я помню,что уже спрашивал об этом
мне кажется,это что-то не то.
я ничего не понял.

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

Цитата

'Функция для получения свойства объекта из стринга Private Function GetProperty(sourceObject As Object, destinationObject As Object, property As String) Dim sc As ScriptControl Set sc = New ScriptControl With sc .Language = "vbscript"                  'работаем с vbscript .AddObject "source", sourceObject            'добавляем source объект .AddObject "destination", destinationObject      'добавляем destination объект .ExecuteStatement ("destination= source." & property)  'собственно выполняем действие End With End Function 'Пример вызова функции Private Sub Command1_Click() Dim s As String s = "name" Dim f As Form1 Set f = Me GetProperty f, Text1, s End Sub

и значение f.name запишется в text1 ?

Цитата(kb @ 29.9.2004, 13:17)

и значение f.name запишется в text1 ?

Да. То есть name формы будет в TextBox Text1.

в TextBox ?
а где там указано,что это textBox?
я думал это обычная переменная

Код

GetProperty f, Text1, s

А зачем ScriptControl для этих целей?

Код

s="caption"  'имя любого свойства text1 = CallByName(Form1, s, vbGet)

так же можно записать значение

Код

CallByName Form1, "caption", vbLet, "Hello!!!"

или вызвать доступный метод у объекта

Код

'это в модуле формы function mmm(s as string, d as Long) as string   mmm = s & " - " & d end function 'и где нить можно написать msgbox CallByName (Me, "mmm", VbMethod, "Hello", 45) 'как ф-ию 'или просто CallByName Me, "mmm", VbMethod, "Hello", 45 'как процедуру

В качестве первого параметра может выступать объект любого класса

Прикольное решение

kb-nn

Цитата(kb @ 29.9.2004, 15:17)

'Функция для получения свойства объекта из стринга Private Function GetProperty(sourceObject As Object, destinationObject As Object, property As String)

Нельзя использовать имя GetProperty:

Цитата

To save state information in a DHTML application, you use the GetProperty and PutProperty functions to store and retrieve data.

Это раз - впрочем это лечится просто.

И потом - то ли ты спрашиваешь не то что хочешь спросить, то ли

Код

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

Это сообщение отредактировал(а) Akina - 30.9.2004, 08:58

ходили слухи,что не все объекты поддерживают свойство Properties.
это правда?


и еще вопрос-
а если у заданного объекта полученного из строки свойства не существует, то как можно как перехватить ошибку?

Цитата

ходили слухи,что не все объекты поддерживают свойство Properties

Врут.

Цитата

если у заданного объекта полученного из строки свойства не существует, то как можно как перехватить ошибку?

Так же как и любую другую. Попробуй в конце концов, заодно узнаешь какой будет код ошибки.

что-то я не сталкивался с перехватом ошибок.
может расскажешь, как это делать?
что- то я слышал on Error go to
но что и как- толком не понял.

Модератор: А 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
для всех объектов(примитивов)