以文本方式查看主题

-  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编辑过]