Как получить значение свойства в литеральном виде?

[maksimal]

Есть контрол и есть у него свойства, которые представлены как внутренние константы. Когда я пытаюсь получить их значения при выполнении программы выдается значение этого свойства в числовом виде, а мне надо в строковом или литеральном. Что надо прописать и где? C этим я сталкивался при программмировании на VB в Excel но никак не могу найти ответ на этот вопрос.

Заранее спасибо...

[Kirill1983]

воспользуйся оператором str()

[Kirill1983]

будет тебе строка=str(контрол.числовоезначение)

[Konst_One]

не получится у тебя с Str() (тем более,что нужен CStr())

для получения нормальных названий констант - тебе придется ручками самому написать функцию, которая из значения тебе вернет его название

[maksimal]

будет тебе строка=str(контрол.числовоезначение)

а что будет если набрать контрол.числовоезначение - это же непонятно что. Должен быть контрол.свойство.

а вообще не работает, то что вы предлжили - как были числа так и остались.
Может пример мне покажите. Например хочу Option1.Caption = Cstr(Option1.Alignment) или
msgbox Option1.Alignment - число выдает хуть как. Кажется что то надо на уровне модуля прописать - или как?
Помню что-то вроде ????Value : Type = Я идиот! Убейте меня, кто-нибудь!
Не помню короче...

[Oxygen]

Я не совсем понимаю, в чем проблема. Но разве отменили старый, добрый Str$?
Это точно должно работать:
Dim a as integer ' объявляешь переиенную, как число, можешь не целое, а какой-нибудь другой тип использовать
Dim b as string ' Думаю, понятно, строка
a=Твой_контрол.Свойство
b=str$(a) ' переводим числовое значение в строку.

А вообще, можешь поконкретнее задать вопрос. Не совсем понятно, какую строку тебе надо получить.

[Konst_One]

Помню что-то вроде ????Value : Type = Я идиот! Убейте меня, кто-нибудь!
Не помню короче...

TypeValue() - но это также тебе не поможет, только своя функция

[GSerg]

Человек страдает фигнёй, не понимая, в чём отличие machine-readable от human-readable...

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

private enum properties
  prop1
  prop2
  prop3
end enum

private arr(prop1 to prop3) as string

private sub usercontrol_initialize
  arr(prop1)="Property1"
  arr(prop2)="Property2"
  arr(prop3)="Property3"
end sub

public property get Property1 as string
  property1=arr(prop1)
end property

public property get Property2 as string
  property2=arr(prop2)
end property

public property get Property3 as string
  property3=arr(prop3)
end property

[Konst_One]

GSerg

[maksimal]

А вообще, можешь поконкретнее задать вопрос. Не совсем понятно, какую строку тебе надо получить.

Смотри пушистенькая. пример.
У контрола option1 (радиокнопка) есть свойство Alingment, которое имеет несколько заранеее определенных значений:
Left Justify - или 0
и Right Justify - или 1

Если я в программе пишу
msgbox Option1.Alignment, то мне выдается "0"
если я сделаю
msgbox Cstr(Option1.Alignment) или типа того - все равно буит "0" пусть даже это и не числовой а строковый параметр. А мне надо чтобы выдввалось "Left Justify" или "Right Justify"

Жду...

[Konst_One]

Жду...

Жди дальше
за тебя никто это делать не собирается

[GSerg]

А, не...
Он хотел так...

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

Option Explicit

Private Sub Form_Load()
  MsgBox literate(Option1.Alignment)
End Sub

Private Function literate(ByVal what As AlignmentConstants) As String
  literate = Choose(what + 1, "vbLeftJustify", "vbRightJustify", "vbCenter")
End Function

[Konst_One]

GSerg
ну зачем же ты это написал - человек даже сам подумать не хочет, еще и командует, что типа ЖДЕТ от нас готовенькое решение

[GSerg]

Когда я это писал, я ещё не видел...

[maksimal]

Человек страдает фигнёй, не понимая, в чём отличие machine-readable от human-readable...

потому что я human и данные мне нужны для Хуманоидов )))

А писать для всех свойств функции и перечисления - это долго и не правильно. Вопрос упрощается:
Есть или нет в VB возможность возвращать значение свойств внутренних констант контролов - в "Человеческом виде". Или для этого мне придется писать функции, как предложено....

[maksimal]

GSerg
ну зачем же ты это написал - человек даже сам подумать не хочет, еще и командует, что типа ЖДЕТ от нас готовенькое решение

Ну извини дорогой)) - жду это неправильно - я умоляю))

Не серчай...

а ждал я не решения - хотя почему бы и нет...)))

[GSerg]

В VB всё есть...
http://bbs.vbstreets.ru/viewtopic.php?p=115383#115383

[Konst_One]

GSerg
совсем парня развратил

[maksimal]

В VB всё есть...
http://bbs.vbstreets.ru/viewtopic.php?p=115383#115383

Уж ссослал так ссослал.

Пойду разбираться....

всем спасибо))

[maksimal]

сходил - не разобрался)))
От куда в VB Тли))))
Пойду опять...

Такой легкий вопрос поставил меня к стенке...

[Konst_One]

ну уж подключи библу то: TypeLib Information

[maksimal]

ну уж подключи библу то: TypeLib Information

Подключил - почитал инфу на эту ТЛЮ - завал.
И так:
Tlbinf32.dll , дает доступ к информации об интерфейсах COM-классов, реализованных в DLL. Для выбранного интерфейса Tlbinf32.dll позволяет получить информацию о методах и свойствах соответствующего COM-объекта, параметрах и типах возвращаемых значений. Так же, она предоставляет средства для вызовов соответствующих методов (аналоги оператора CallByName языка Visual Basic 6.0). прекрасно.

[GSerg]

Раз подключил, тогда ещё раз: http://bbs.vbstreets.ru/viewtopic.php?p=115383#115383...

[maksimal]

MSVBVM60.DLL\3 - что за 3. Хуть в справке и пример такой приводится, сказано что источник 3 - а что это и с чем его - не понимаю. Это также написано в Object Browser по поводу библиотеки VBRUN:
Library VBRUN
D:\WINDOWS\system32\msvbvm60.dll\3
Visual Basic runtime objects and procedures
Вообчем библиотека номаная, хорошая, полезная и все же где ее еще можно пользовать - кто и где ее практиковал - напишите если ен сложно)))

Вообщем на интуитивном уровне разобрался подставил "AlignConstants" в NamedItem(".....") и все заработало.
Но все же хоцца сказать. Тот хелп который я скачал с сайта Мелкософт по TLI - это кошмар какой-то, тока с топором можно врубаться))). Может есть что-нить с примерчиками - чтобы голову не ломать. Пусть на английском.

спасибо)))

[tyomitch]

MSVBVM60.DLL\3 - что за 3.

Номер TYPELIB-ресурса.