| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]如何遍历有代码的事件名称 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176294) |
| -- 作者：2425004926 -- 发布时间：2022/4/7 16:00:00 -- [求助]如何遍历有代码的事件名称 如何遍历项目---有代码的事件名称？ 如何遍历表---有代码的事件名称？如何遍历窗口---有代码的事件名称？ 如何遍历窗口控件---有代码的事件名称？ |
| -- 作者：有点蓝 -- 发布时间：2022/4/7 16:14:00 -- 没有办法遍历 |
| -- 作者：2425004926 -- 发布时间：2022/4/7 16:22:00 -- 那么菜单 “杂项”里面的----输出代码按钮----又是如何作到的？ |
| -- 作者：2425004926 -- 发布时间：2022/4/7 16:24:00 -- 因为项目表太多，还有很多窗口，我想看一下结构，大检查一遍，所以想把这些遍历出来 |
| -- 作者：有点蓝 -- 发布时间：2022/4/7 16:27:00 -- 那是Foxtable自己底层的功能，不对外开放 |
| -- 作者：2425004926 -- 发布时间：2022/4/7 16:30:00 -- 嗯嗯 |
| -- 作者：2425004926 -- 发布时间：2022/4/7 16:54:00 -- 基本解决了，我用了一个窗口，复制代码到TextBox1，下面是按钮代单击代码，TextBox2得到的是结果 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编辑过]
|