关于 With……End With 的用法

下面的代码中 with 用得太多，该如何简化？

Sub 自制菜单()
    With CommandBars("自制菜单").Controls(3).Controls.Add(, , , 11, True)
            .Caption = "添加(&T)"
            .OnAction = "增加"
    With CommandBars("自制菜单").Controls(3).Controls.Add(, , , 12, True)
            .Caption = "恢复(&H)"
            .OnAction = "恢复"
    With CommandBars("自制菜单").Controls(3).Controls.Add(, 271, , 13, True)
            .Caption = "保存(&S)"
            .OnAction = "保存"
    With CommandBars("自制菜单").Controls(4).Controls.Add(, , , 1, True)
            .Caption = "帮助(&H)"
            .OnAction = "说明"
    With CommandBars("自制菜单").Controls(4).Controls.Add(, , , 2, True)
            .Caption = "演示"
            .OnAction = "演示"
    End With
    End With
    End With
    End With
    End With
End Sub

解答：

 用 With 就是要把相同的对象集中一次写，为的是简化代码也减少错误

最后

以上就是可爱钢铁侠为你收集整理的关于 With……End With 的用法的全部内容，希望文章能够帮你解决关于 With……End With 的用法所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。