- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 为何 命令窗口 一直自动执行代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109132)
-- 发布时间：2017/11/4 22:42:00
-- 为何 命令窗口 一直自动执行代码
此主题相关图片如下：微信截图_20171104224043.jpg
-- 发布时间：2017/11/5 22:04:00
--
这是哪里出问题了
-- 发布时间：2017/11/5 22:32:00
--
以下是引用恒隆君在2017/11/5 22:04:00的发言：
这是哪里出问题了
这是哪里出问题了
你【计划管理】设置的计划里面，应该写有output.show的代码。
或者你输出全部代码，搜索关键字 output.show，看哪里写了代码。
-- 发布时间：2017/11/5 23:13:00
--
计划里面
只有这一段。用于查找时，自动切换到 任意位置。
static sfrm = Nothing
Dim frm = Windows.forms.Form.ActiveForm
If frm IsNot Nothing Then
If frm.name = "Class108" AndAlso (sfrm Is Nothing OrElse sfrm.tostring <> frm.tostring) Then
frm.controls("MatchMode").Text = "任意位置"
sfrm = frm
End If
For Each c As Object In frm.Controls
output.Show(c.Name & " " & c.Gettype.Name)
Next
End If
Dim ftm = Windows.forms.Form.ActiveForm
If ftm IsNot Nothing Then
If ftm.name = "Class108" Then
Dim ContentFind As windows.Forms.ComboBox = ftm.controls("ContentFind")
removehandler ContentFind.Keydown, addressof textbox1_keydown
addhandler ContentFind.Keydown, addressof textbox1_keydown
End If
End If
-- 发布时间：2017/11/5 23:14:00
--
关掉这个计划，
就没有问题了
-- 发布时间：2017/11/5 23:17:00
--
这个能否修改呢。
FT自带的 查找功能。
1. 回车 就可以开始查找。
2. 默认 任意位置匹配
3. 默认 不区分大小子母
-- 发布时间：2017/11/6 0:02:00
--
这句代码去掉，就可以了
For Each c As Object In frm.Controls
output.Show(c.Name & " " & c.Gettype.Name)
Next