作為一款功能非常強(qiáng)大的面向?qū)ο笳Z(yǔ)言，VB.NET深受廣大開(kāi)發(fā)人員的青睞。它的使用方法相對(duì)于其他編程語(yǔ)言來(lái)說(shuō)還算是比較簡(jiǎn)單的。比如在VB.NET使用with中，就可以用簡(jiǎn)單的方式來(lái)實(shí)現(xiàn)。#t#

在VB.NET使用with代碼中的內(nèi)容看作接在with后那個(gè)對(duì)象后面就對(duì)了。

執(zhí)行重復(fù)引用單個(gè)對(duì)象或結(jié)構(gòu)的一系列語(yǔ)句。

1. With object   
2. [ statements ]   
3. End With  

各部分說(shuō)明

1. object  

必選項(xiàng)。表達(dá)式。可以計(jì)算為任何數(shù)據(jù)類(lèi)型，包括基本類(lèi)型。

statements  

可選項(xiàng)。對(duì) object 執(zhí)行的 With 后面的一條或多條語(yǔ)句。

End With  

終止 With 塊的執(zhí)行。 

With...End With 允許對(duì)指定的對(duì)象執(zhí)行一系列語(yǔ)句，而不必重新限定對(duì)象的名稱(chēng)。例如，在VB.NET使用with中若要修改單個(gè)對(duì)象的若干不同的屬性，請(qǐng)將屬性賦值語(yǔ)句放在 With...End With 中，這樣只用引用一次對(duì)象，而不是在每個(gè)屬性賦值中都引用它。下面的示例說(shuō)明如何使用 With...End With 給同一個(gè)對(duì)象的多個(gè)屬性賦值：

With MyLabel   
.Height = 2000   
.Width = 2000   
.Text = 
"This is MyLabel"   
End With  

注意 進(jìn)入了 With...End With 后，直到通過(guò) End With 后才能重新分配 object。因此，訪問(wèn)指定對(duì)象的方法和屬性時(shí)不必限定它們?？梢允褂闷渌麑?duì)象的方法和屬性，但是必須用它們的對(duì)象名限定它們。

可以通過(guò)在一個(gè) With...End With 語(yǔ)句中放入另一個(gè)此語(yǔ)句來(lái)嵌套它們。但是，由于外部語(yǔ)句的成員被屏蔽在內(nèi)部語(yǔ)句內(nèi)，必須在內(nèi)部 With...End With 中提供對(duì)外部語(yǔ)句中的任何對(duì)象成員的完全限定對(duì)象引用。

在VB.NET使用with中不能使用 GoTo 從 With...End With 外部分支到它的內(nèi)部標(biāo)簽。如果想在所有語(yǔ)句都執(zhí)行完之前退出，請(qǐng)?jiān)?End With 語(yǔ)句上放置一個(gè)標(biāo)簽并分支到該標(biāo)簽。

本示例使用 With 語(yǔ)句對(duì)單個(gè)對(duì)象執(zhí)行一系列語(yǔ)句。MyObject 對(duì)象及其屬性是僅用于說(shuō)明目的的一般名稱(chēng)。

With MyObject   
.Height = 100 ' Same as 
MyObject.Height = 100.   
.Text = "Hello World" ' 
Same as MyObject.Text = 
"Hello World".   
.ForeColor = Color.Green 
' Same as MyObject.ForeColor 
= Color.Green.   
.Font = New Font(.Font, 
FontStyle.Bold) ' Same as:   
' MyObject.Font = New Font
(MyObject.Font, FontStyle.Bold).   
End With   
with me   
.top=0   
.left=0   
end with  

等同于

me.top=0   
me.left=0  

VB.NET使用with的相關(guān)做法就為大家介紹到這里了。