在一個單一物件或一個訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。上執行一系列的訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。。
語法
With object
[statements]
End With
With 陳述式的語法具有以下幾個單元:
單元 | 描述 |
object | 必要引數,一個物件或使用者自訂型態的名稱 |
statements | 選擇性引數,要執行在物件上的一行或多行陳述式。 |
請注意
With 陳述式可讓您對某個物件執行一系列的陳述式,而不用重複指出物件的名稱,例如,要改變一個物件的多個訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。,可以在 With 控制權結構中加上指定屬性的陳述式,這時後只要再第一行指名物件名稱,而之後的指定屬性陳述式中就不用再加上物件名稱。底下的例子說明如何使用 With 陳述式來在同一物件上指定值給其多個屬性。
With MyLabel .Height = 2000 .Width = 2000 .Caption = "This is MyLabel"
End With附註 當程式一旦進入 With 區塊,物件就不能改變,所以您不能用一個 With 陳述式來設定多個不同的物件。
您可以將一個 With 區塊放在另一個之中,而產生巢狀的 With 陳述式,但是,由於外部的 With 區塊會遮罩住內層的 With 區塊,所以您必須在內層的 With 區塊中,使用完整的物件引用來指出在外層的 With 區塊中的物件成員。
附註 在一般情況下,建議您不要跳入或跳出 With 區塊。如果在 With 區塊中的陳述式被執行,但是 With 或 End With 陳述式並沒有執行,則一個包含對該物件引用的昝時變數將保留在記憶體中,直到您結束該程序。
With 陳述式範例本範例使用
With 陳述式對某單一物件執行一系列的陳述式,物件名稱
MyObject 及它的各屬性均為示範用之通用名稱而已。
With MyObject .Height = 100 ' 和 MyObject.Height = 100 的結果一樣。 .Caption = "Hello World" ' 和 MyObject.Caption = "Hello World" 的結果一樣。
With .Font .Color = Red ' 和 MyObject.Font.Color = Red 的結果一樣。 .Bold = True ' 和 MyObject.Font.Bold = True 的結果一樣。
End WithEnd With