- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 追问：代码自动完成与代码精灵，获取枚举值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79929)
-- 发布时间：2016/1/12 15:06:00
-- [求助] 追问：代码自动完成与代码精灵，获取枚举值
单纯的输入部分代码，然后自动补全代码，是比较简单的。
-- 发布时间：2016/1/12 15:16:00
--
foxtable的。就是简单查表而已。
比如你定义了
Dim abc As String
然后你abc后的属性和方法，就直接查找 String 类型的属性和方法即可。
-- 发布时间：2016/1/12 15:18:00
--
用代码获取属性方法也行。如
Dim o = Forms("窗口1")
For Each c As object In o.Gettype.getproperties
output.show(c.name)
Next
For Each c As object In o.Gettype.getMethods
output.show(c.name)
Next
-- 发布时间：2016/1/12 15:24:00
--
说是这么说，真要把那么多的圆点，还有等号后的值，都填到查询表里，够费事的。
-- 发布时间：2016/1/12 15:28:00
--
主要麻烦在于，一个类型定义后，得好几个点，才能扒出最后带圆点的枚举值。
-- 发布时间：2016/1/12 15:31:00
--
狐表的自动完成是在ACCESS这个数据库下的，结构比较简单，想完成想要的属性，只要参考下填入相关列项就能完成了。
-- 发布时间：2016/1/12 15:38:00
--
集思广益，狐友有啥高见，百花齐放。
-- 发布时间：2016/1/12 15:43:00
--
用代码获取属性方法也行。如
Dim o = Forms("窗口1")
For Each c As object In o.Gettype.getproperties
output.show(c.name)
Next
For Each c As object In o.Gettype.getMethods
output.show(c.name)
Next
这个不错，连老底都挖出来了。
-- 发布时间：2016/1/12 15:50:00
--
说是这么说，真要把那么多的圆点，还有等号后的值，都填到查询表里，够费事的。
你定义abc之后，当写到 abc. 的时候就直接去查下String类型的属性和方法就行啊，很简单啊。
而且，你直接获取对象的属性和方法也很简单，类似3楼那样
Functions.remove("函数")
Dim Code As String
Code = "return gettype(datatable)"
Functions.Add("函数",Code)
Functions.Complie()
Dim o = Functions.Execute("函数")
For Each c As object In o.getproperties
output.show(c.name)
Next
For Each c As object In o.getMethods
output.show(c.name)
Next
-- 发布时间：2016/1/12 15:51:00
--
代码放哪里