Приведение типов

[FireFenix]

Собсно возможно привести объект к типу указанному по ссылке?

т.е. вызов приведения

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

DirectCast(MyObject, String)

но я хочу, чтобы работало

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

Dim Type as System.Type
Dim TextBox as New TextBox

Public Function GetValue() as Object
     Return DirectCast(TextBox.Text, Type)
End Function


но вредная студия противится передачи типа через переменную, только напрямую

UPD: Поправлена ошибочка в примере TextBox -> TextBox.Text

[FireFenix]

Ура... Еле нагуглил, только в 1м форуме нашёл нужную функу

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

Convert.ChangeType

Хотя эти сволочи могли бы сделать в DirectCast и TryCast передачу типа по ссылке

[Joo]

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

Public Function GetValue() as Object
     Return DirectCast(TextBox, Type)
End Function


Код выглядит довольно глупо.

Return объекта типа Type в функции которая должна вернуть Object, тогда уж:

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

Public Function GetValue() as Object
     Return DirectCast(TextBox, Object)
End Function


[FireFenix]

Не, возврат простого объекта это легко, но у меня другая задача
Т.е. смысл вообще теряется, тогда уже нужно было Return TextBox.Text

Я сделал класс, который описывает некоторое свойство и отображает как некоторый контрол
Т.к. к примеру TextBox имеет атрибут Text as String, а класс реализует свойство типа Integer, то мне нужно преобразовать типы, но я заранее не знаю какой тип реализует класс
Но т.к. класс может реализовывать любое свойство, то конечный тип - Object, а приведение String -> Integer для приведения введённых данных к типу класса

Вобщем как-то так