以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何字符串转换为枚举,如字符串“ControTypeEnumButton”，转换为枚举ControTypeEnumButton  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86221)
--  作者：百灵
--  发布时间：2016/6/13 12:21:00
--  如何字符串转换为枚举,如字符串“ControTypeEnumButton”，转换为枚举ControTypeEnumButton
求助，如何字符串转换为枚举,如字符串“ControTypeEnumButton”，转换为枚举ControTypeEnumButton，以便从表中提取字符串动态增加控件。
--  作者：大红袍
--  发布时间：2016/6/13 12:24:00
--  

动态编译

 

Functions.remove("函数")
Dim Code As String
Code = "msgbox(123) \'你要执行的代码"
Functions.Add("函数",Code)
Functions.Complie()
Functions.Execute("函数")
--  作者：百灵
--  发布时间：2016/6/13 12:55:00
--  

没看懂，网上查到可以用Enum.Parse方法转换，用以下代码但不成功


 

Dim lbl As WinForm.Control

Dim Type As ControlTypeEnum = ControlTypeEnum.Parse(Gettype(ControlTypeEnum),"TextBox")
lbl = Forms(“表A").CreateControl("控件", Type)
lbl.Left = 100
lbl.Top = 100
Forms(”表A").AddControl(lbl)

再次求教？
--  作者：百灵
--  发布时间：2016/6/13 12:57:00
--  
msgox(type) 显示为0
--  作者：大红袍
--  发布时间：2016/6/13 14:23:00
--  

怎么不成功？我测试没问题啊，可以添加

 

Dim lbl As WinForm.Control
Dim Type As ControlTypeEnum = ControlTypeEnum.Parse(Gettype(ControlTypeEnum),"TextBox")
lbl = e.Form.CreateControl("控件", Type)
lbl.Left = 100
lbl.Top = 100
e.Form.AddControl(lbl)
--  作者：百灵
--  发布时间：2016/6/13 15:05:00
--  
我搞错了，抱歉
--  作者：wfkbabro
--  发布时间：2021/1/10 21:51:00
--  
铁鞋踏破ing...谢谢两位。