以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]【查找】、【替换】的窗口名称变了吗?——已解决 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142994) |
-- 作者:shenyl0211 -- 发布时间:2019/11/11 14:19:00 -- [求助]【查找】、【替换】的窗口名称变了吗?——已解决 以前,为了改变【查找】、【替换】窗口的默认选项,根据论坛意见,对相应的按钮代码进行了以下补充: Syscmd.Edit.find() ’原始的【查找】代码, 或 Syscmd.Edit.replace() \'原始的【替换】代码 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 = "任意位置" frm.controls("CaseSensitive").checked = False frm.controls("ReplaceMode").Text = "匹配内容" sfrm = frm End If End If 但是升级到最新版之后发现,默认选项并没有改变,再测试,发现frm.name<>"Class108",而是难以表述的符号 现在只能删除上述红色的条件以恢复正常。 请问:【查找】、【替换】的窗口名称悄悄地变了吗?狐爸能不能改进而不需开发者自编上述补充代码呢? [此贴子已经被作者于2019/11/11 14:55:51编辑过]
|
-- 作者:y2287958 -- 发布时间:2019/11/11 14:22:00 -- frm.text = "查找" |
-- 作者:有点蓝 -- 发布时间:2019/11/11 14:33:00 -- 内置的类型名称本来就不是可以公开使用的,所以不存在改进不改进的问题。如果使用,风险自担。可以使用标题判断,标题一般不会变。 |
-- 作者:shenyl0211 -- 发布时间:2019/11/11 14:55:00 -- 谢谢y2287958 蓝版:我所指的改进是:不需开发者自编上述补充代码。这个意见我已提过多年、多次了,结果很失望。 对于【查找】,【完全匹配】是【任意位置】的特例;对于【替换】,【全部内容】是【匹配内容】的特例。这点怎么就不能学学office呢? [此贴子已经被作者于2019/11/11 15:00:55编辑过]
|