对一个对象执行一系列的语句。
With object statements End With
With 语句可以用来对指定的对象执行一系列的语句,但不需要重复地说明对象的名称。例如,如果要修改一个对象的多个属性,可以将所有属性赋值语句放在 With 控制结构中,这样对对象的引用就只需要一次,而不是在每个赋值语句中都引用。下面的例子说明如何使用 With 语句对同一个对象的几个属性进行赋值。
With MyLabel .Height = 2000 .Width = 2000 .Caption = "这是MyLabel" End With
尽管属性操作是使用 With 语句最多的情况,它的用法并不仅限于此。With 块中可以使用任何合法的语句。
注意 一旦进入了 With 块,object是不可改变的。因此,不能使用一个With语句去改变若干对象的值。
可以嵌套使用 With 语句,将一个 With 块写在另一个块中。然而,由于外部的 With 块的成员被内部的 With 块掩盖,无论内部的 With 块要引用外部的 With 块中的某个对象的什么成员,都必须使用完全限定的对象引用。
重要 不要跳入或跳出 With 块。如果执行了 With 块中的语句却没有执行 With 或 End With 语句,结果将引发错误或其他难以预见的行为。