Foxtable(狐表)用户栏目专家坐堂 → [求助]如何遍历有代码的事件名称


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

主题:[求助]如何遍历有代码的事件名称

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5559 威望:0 精华:0 注册:2019/11/14 9:36:00
[求助]如何遍历有代码的事件名称  发帖心情 Post By:2022/4/7 16:00:00 [只看该作者]

如何遍历项目---有代码的事件名称?
如何遍历表---有代码的事件名称?
如何遍历窗口---有代码的事件名称?
如何遍历窗口控件---有代码的事件名称?

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


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/7 16:14:00 [只看该作者]

没有办法遍历

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5559 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2022/4/7 16:22:00 [只看该作者]

 那么菜单   “杂项”里面的----输出代码按钮----又是如何作到的?

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5559 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2022/4/7 16:24:00 [只看该作者]

 因为项目表太多,还有很多窗口,我想看一下结构,大检查一遍,所以想把这些遍历出来

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


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/7 16:27:00 [只看该作者]

那是Foxtable自己底层的功能,不对外开放

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5559 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2022/4/7 16:30:00 [只看该作者]

 嗯嗯

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5559 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2022/4/7 16:54:00 [只看该作者]

基本解决了,我用了一个窗口,复制代码到TextBox1,下面是按钮代单击代码,TextBox2得到的是结果

Dim ss As new StringBuilder   '定义长字符串
ss.Appendline("项目事件")
With e.Form.Controls("TextBox1")
    For i As Integer = 1 To .Lines.Length - 2
        If .Lines(i-1) = "" AndAlso .Lines(i+1) = "" AndAlso .Lines(i).Contains(" ") = False Then
            ss.Appendline(.Lines(i))    '换行添加
        End If
    Next
End With
e.Form.Controls("TextBox2").text = ss.Tostring   '显示
[此贴子已经被作者于2022/4/7 16:58:45编辑过]

 回到顶部