Я хотел бы иметь возможность динамически приводить значение, когда тип известен только во время выполнения. Что-то вроде этого:
myvalue = CType(value, "String, Integer or Boolean")
Строка, содержащая значение типа, передается в качестве аргумента и также считывается из базы данных, а значение сохраняется как строка в базе данных.
Это возможно?
Конечно, но myvalue должен быть определен как тип Object, а вы не обязательно этого хотите. Возможно, в этом случае лучше использовать дженерики.
Что определяет, какой тип будет использоваться?
Dim bMyValue As Boolean
Dim iMyValue As Integer
Dim sMyValue As String
Dim t As Type = myValue.GetType
Select Case t.Name
Case "String"
sMyValue = ctype(myValue, string)
Case "Boolean"
bMyValue = ctype(myValue, boolean)
Case "Integer"
iMyValue = ctype(myValue, Integer)
End Select
Это немного хакерски, но это работает.
Это самый короткий способ сделать это. Я тестировал его с несколькими типами.
Sub DoCast(ByVal something As Object)
Dim newSomething = Convert.ChangeType(something, something.GetType())
End Sub
Ну а как определить какой тип нужен? Как сказал Джоэл, это, вероятно, относится к дженерикам. Дело в том, что, поскольку вы не знаете тип во время компиляции, вы все равно не можете обработать возвращаемое значение, поэтому приведение здесь не имеет смысла.
Возможно, вместо того, чтобы динамически приводить что-то (что, похоже, не работает), вы могли бы вместо этого использовать отражение. Достаточно легко получить и вызвать определенные методы или свойства.
Dim t As Type = testObject.GetType()
Dim prop As PropertyInfo = t.GetProperty("propertyName")
Dim gmi As MethodInfo = prop.GetGetMethod()
gmi.Invoke(testObject, Nothing)
Это некрасиво, но вы могли бы сделать некоторые из них в одной строке, а не во многих.
