Foxtable(狐表)用户栏目专家坐堂 → [求助] 追问:代码自动完成与代码精灵,获取枚举值


  共有3424人关注过本帖树形打印复制链接

主题:[求助] 追问:代码自动完成与代码精灵,获取枚举值

帅哥哟,离线,有人找我吗?
lsy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
[求助] 追问:代码自动完成与代码精灵,获取枚举值  发帖心情 Post By:2016/1/12 15:06:00 [显示全部帖子]

单纯的输入部分代码,然后自动补全代码,是比较简单的。

圆点调出属性或方法、等号调出枚举值,再结合自动完成,要复杂的多了。

有没有比较简洁的方法,比如有什么好的、填充数据和调出数据都比较方便的表结构。

狐表的自动完成与代码精灵,是什么思路?最好能借鉴一下,省的绕弯路。


比如:

Dim doc As New PrintDoc '定义一个报表
Doc.PageFooter.BreakAfter = 

下面的枚举值,如何通过代码获取?
prt.BreakEnum.Column
prt.BreakEnum.Line
prt.BreakEnum.None
prt.BreakEnum.Page
[此贴子已经被作者于2016/1/12 16:17:40编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2016/1/12 15:24:00 [显示全部帖子]

说是这么说,真要把那么多的圆点,还有等号后的值,都填到查询表里,够费事的。

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2016/1/12 15:28:00 [显示全部帖子]

主要麻烦在于,一个类型定义后,得好几个点,才能扒出最后带圆点的枚举值。

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2016/1/12 15:38:00 [显示全部帖子]

集思广益,狐友有啥高见,百花齐放。图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2016/1/12 15:43:00 [显示全部帖子]

以下是引用大红袍在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


这个不错,连老底都挖出来了。


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2016/1/12 15:57:00 [显示全部帖子]

以下是引用大红袍在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


这个方法,似乎比单纯的查询表省力。


谢谢。

 


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2016/1/12 16:16:00 [显示全部帖子]

比如:

Dim doc As New PrintDoc '定义一个报表
Doc.PageFooter.BreakAfter = 

下面的枚举值,如何通过代码获取?
prt.BreakEnum.Column
prt.BreakEnum.Line
prt.BreakEnum.None
prt.BreakEnum.Page

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2016/1/12 17:16:00 [显示全部帖子]

是够麻烦的,属性、方法、枚举值,也许要用代码获取加查询表的方式了。

谢谢。

 回到顶部