关于 With……End With 的用法

最新推荐文章于 2022-06-21 15:41:34 发布

mazhiguo_nuaa

最新推荐文章于 2022-06-21 15:41:34 发布

阅读量2.6k

点赞数

分类专栏： Visual Stduio.net 文章标签： c

本文链接：https://blog.csdn.net/mazhiguo_nuaa/article/details/1896063

版权

Visual Stduio.net 专栏收录该内容

14 篇文章 0 订阅

订阅专栏

下面的代码中 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 CommandBars("自制菜单")
With .Controls(3).Controls
      Set c = .Add(, , , 11, True)
      c.Caption = "添加(&T)"
      c.OnAction = "增加"
      Set c = .Add(, , , 12, True)
      c.Caption = "恢复(&H)"
      c.OnAction = "恢复"
      Set c = .Add(, 271, , 13, True)
      c.Caption = "保存(&S)"
      c.OnAction = "保存"
End With
With .Controls(4).Controls
      Set c = .Add(, , , 1, True)
      c.Caption = "帮助(&H)"
      c.OnAction = "说明"
      Set c = .Add(, , , 2, True)
      c.Caption = "演示"
      c.OnAction = "演示"
End With
End With

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