не подскажете, как обратиться к свойству объекта, если оно (свойство) находится в какой- то переменной.

Хех..........

Код

var  s: string; begin  s:= Edit1.Text; // Text  - свойство объекта Edit1  - s - содержит значение этого свойства  ShowMessage(s);// Выводим s - т.е. это свойство end;

мне нужно не значение свойства. а его название!
например

dim s as string
s="backColor"
dim f as form1

как можно обратиться к заданному таким образом свойству формы? именно через "s"

f.properties.item(s)

Цитата(Akina @ 1.6.2004, 17:25)

f.properties.item(s)

Не все объекты имеют свойство Properties, а вернее почти никто не имеет за исключением ADO объектов

boevik
В примере kb-nn - форма. Уж она-то имеет, будьте спокойны...

Цитата

f.properties.item(s)

Akina, ты о чем?

Код

Private Sub Command1_Click() Dim s As String Dim f As Form Set f = Form1 s = "BackColor" SetProperty f, s, &HFFFFFF 's = "Visible" 'SetProperty f, s, False End Sub Private Function SetProperty(frm As Form, prt As String, value As Variant) As Boolean SetProperty = True Select Case prt    Case "BackColor"        frm.BackColor = value    Case "Visible"        frm.Visible = value    Case Else        SetProperty = False End Select End Function

Думаю идея ясна. Может кто-нибудь что получше посоветует...

Цитата(Akina @ 1.6.2004, 18:07)

boevik В примере kb-nn - форма. Уж она-то имеет, будьте спокойны...

Это в каком VB такое возможно?

У меня тут варианы возник:
на форме нужен TextBox и подсоединить к проекту Microsoft ScriptControl

Код

Dim s As String s = "backColor" Dim f As Form1 Set f = Me Dim o As New ScriptControl o.Language = "vbscript" o.AddObject "f", f o.AddObject "Text1", Me.Text1 o.ExecuteStatement ("Text1= f." & s)

В итоге в Text1 получим значение backColor

Цитата

как можно обратиться к заданному таким образом свойству формы? именно через "s"

Я так и не понял. Установить или считать значение? Если установить, то можно использовать то что я написал выше, если считать значение, то можно по такому же принципу написать функцию GetProperty или использовать то что предложил boevik.

boevik, мне немного пришлось изменить твой код, т.к. то, что ты написал у меня не прошло. А вобще очень прикольный вариант решения задачи. Может напишешь пару строк к коду, тогда его в FAQ можно засунуть. Напиши если будет время заодно, где (в какой книге) об этом vbscript'e можно что почитать и т.д.

Думаю надо тебе рейтинг повысить

Код

Private Sub Command1_Click() Dim s As String s = "BackColor" Dim f As Form1 Set f = Me Dim o As ScriptControl Set o = ScriptControl1 o.Language = "vbscript" o.AddObject "f", f o.AddObject "Text1", Me.Text1 o.ExecuteStatement ("Text1= f." & s) Text1 = Hex(Text1) End Sub

cardinal
Ты использовал контроль, а я - библиотеку. Это первое отличие.
Во вторых Hex не желательно использовать, потому что если вместо BackColor, я захочу узнать, к примеру Name, то вылетит ошибка.


Надо добавить в References библиотеку Microsoft ScriptControl

Код

'Функция для получения свойства объекта из стринга Private Function GetPropery(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 'Пример вызова функции Dim s As String s = "name" Dim f As Form1 Set f = Me GetPropery f, Text1, s

Это сообщение отредактировал(а) boevik - 1.6.2004, 19:21

Цитата

Ты использовал контроль, а я - библиотеку. Это первое отличие.

Согласен. Торможу в последнее время . Я пробежался по References и на Microsoft ScriptControl не наткнулся, а в Components нашел.

Цитата

Во вторых Hex не желательно использовать, потому что если вместо BackColor, я захочу узнать, к примеру Name, то вылетит ошибка.

Это я так написал, для того, чтобы понять что у меня за корявое число в TextBox'е появляется.

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

Цитата

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

Уважил