KISS：StringName到类

Question

我有两个课程xCustomer和xProduct

   Case Tables.xCustomer
     Dim Count As Integer = (From t In New XPQuery(Of xCustomer)(DefaultSession) Select t.CustomerID).Count
     Return Count + 1
   Case Tables.xProduct
     Dim Count As Integer = (From t In New XPQuery(Of xProduct)(DefaultSession) Select t.ProductID).Count
     Return Count + 1

如何通过使用字符串转换类来简化上述语句？

例如，我想使用像

这样的东西

Dim Test as object

Test = ReturnClassOfString（“xCustomer”）

Answer 1

也许使用反射？这应该可以帮助您开始一般的反射： http://msdn.microsoft.com/en-us/magazine/cc163750.aspx

这可以帮助您解决实际问题：http://wiki.lessthandot.com/index.php/VB.Net:_Create_an_instance_of_class_from_a_string_using_reflection