以下代码 没有实现效果。
可以打开设计模式？
Dim s As String
For Each frm As WinForm.Form In Forms
If frm.name <> "到货计划" Then Continue For
If frm.Opened = False Then frm.Open
For Each c As Winform.Control In frm.Controls
If c.Visible = False Then Continue For
If Typeof c Is WinForm.Button Then
Dim btn As WinForm.Button = c
s = btn.text
If s.Contains("新建") Then btn.Name ="New"
If s.Contains("保存") Then btn.Name ="Save"
If s.Contains("删除") Then btn.Name ="Del"
If s.Contains("撤销") Then btn.Name ="Reject"
If s.Contains("关闭") Then btn.Name ="Close"
If s.Contains("导入") Then btn.Name ="Import"
If s.Contains("导出") Then btn.Name ="Export"
End If
Next
Syscmd.Project.Save()
frm.Close
Next
加好友 
发短信
Post By：2023/7/19 16:58:00 [显示全部帖子]
