打开窗口,用代码批量更改了窗口按钮的名称。
执行后,在命令窗口的下部显示区域,已经看到了更改的结果。
然后关闭窗口,打开窗口设计,却发现这些按钮名称并没有改,还是和原来一样。
加上项目保存的系统命令,执行后效果一样。
怎么能保存批量更改了的窗口按钮名称呢?
代码:
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()