- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 用代码批量更改了窗口按钮的名称，怎么保存不了呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153880)
-- 发布时间：2020/8/26 15:00:00
-- [求助] 用代码批量更改了窗口按钮的名称，怎么保存不了呢？
打开窗口，用代码批量更改了窗口按钮的名称。
执行后，在命令窗口的下部显示区域，已经看到了更改的结果。
然后关闭窗口，打开窗口设计，却发现这些按钮名称并没有改，还是和原来一样。
加上项目保存的系统命令，执行后效果一样。
怎么能保存批量更改了的窗口按钮名称呢？
代码：
Dim ctl As WinForm.Control
Dim btn As WinForm.Button
Dim str As String
Dim i, i2 As Integer
i = 1
i2 = 1
For Each ctl In Forms("窗口1").Controls
If Typeof ctl Is WinForm.Button Then
btn = ctl
If btn.Name.StartsWith("Button") Then
Else
str = btn.Name
str = "Button__" & str
btn.Name = str
output.show("i = " & i & " btn.Name = " & btn.Name)
i = i + 1
End If
End If
output.show("i2 = " & i2)
i2 = i2 + 1
Next
Syscmd.Project.Save()
-- 发布时间：2020/8/26 15:54:00
--
使用代码更改是无法保存的
-- 发布时间：2020/8/26 18:07:00
--
惨啊，几十个改起来要花多少时间哦
