Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Изменение свойств объектов, указанных в переменных 
:(
    Опции темы
GreatReaper
Дата 14.9.2005, 16:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.9.2005

Репутация: нет
Всего: нет
Пусть gObject, gProperty, gValue – следующие переменные:
gObject - название некоторого объекта
gProperty - название некоторого свойства gObject
gValue - значение свойства gProperty

Как должен выглядеть код, который свойству gProperty объекта gObject присваивает значение gValue?
PM MAIL   Вверх
boevik
Дата 14.9.2005, 16:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Если это propery простого типа то:
Код

gObject.gProperty = gValue 


Если класс, то
Код

SET gObject.gProperty = gValue 




--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Akina
Дата 14.9.2005, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
А если gObject, gProperty, gValue - это стринговые (последняя - возможно иного типа) переменные:

Код

Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long
Dim cmdStr As String
cmdStr = "SET " & Trim(gObject) & "." & Trim(gProperty) & "=" & CStr(gValue)
If EbExecuteLine(StrPtr(cmdStr), 0&, 0&, False) = 0 Then MsgBox "Команда не выполнена."



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Plamenk
Дата 15.9.2005, 08:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 258
Регистрация: 18.2.2003

Репутация: нет
Всего: 3
Цитата
(последняя - возможно иного типа)


Почему последняя? ещё ест:

Код

Function CallByName(Object As Object, ProcName As String, CallType As VbCallType, Args() As Variant)
PM MAIL   Вверх
Akina
Дата 15.9.2005, 09:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Plamenk @ 15.9.2005, 09:43)
Почему последняя?

Последняя - имелось в виду переменная, т.е. gValue. Не все свойства - стринги...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
GreatReaper
Дата 15.9.2005, 09:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.9.2005

Репутация: нет
Всего: нет
Спасибо за поддержку smile
CallByName - именно то, что было нужно.

Это сообщение отредактировал(а) GreatReaper - 15.9.2005, 10:47
PM MAIL   Вверх
Plamenk
Дата 15.9.2005, 12:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 258
Регистрация: 18.2.2003

Репутация: нет
Всего: 3
2 Akina Извини, действительно я не правильно понял!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0531 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.