主题：怎样将字符转换为系统类？？

 不能直接用，要动态编译一下。

 

类似 http://www.foxtable.com/help/topics/1487.htm

 

Dim Code As String
Code = "Dim t As " & "ControlTypeEnum" & vbcrlf
Code = Code & "return t"
Functions.Add("getType",Code)
Functions.Complie()

Dim b As object = Functions.Execute("getType")
Functions.Remove("getType")

For Each e As String In  [Enum].GetNames(b.Gettype())
    output.show(e)
Next

 如果不嫌麻烦，你就判断每个字符串是什么，对应的写不同的代码。

代码

 

Dim str As String = "Barpro.Symbology.Code39"

Dim Code As String
Code = Code & "return " & str
Functions.Add("myFunc",Code)
Functions.Complie()

Dim b As object = Functions.Execute("myFunc")
Functions.Remove("myFunc")

Dim Bar As New BarCodeBuilder
Bar.Symbology = b