Remove 方法

全部顯示

本主題中的部分內(nèi)容可能不適用于某些語言。

應(yīng)用于 AccessObjectProperties 集合對(duì)象的 Remove 方法。

使用 Remove 方法可以從 AccessObject 對(duì)象的 AccessObjectProperties 集合中刪除 AccessObjectProperty 對(duì)象。

expression.Remove(Item)

expression     必需。返回一個(gè) AccessObjectProperties 集合對(duì)象的表達(dá)式。

Item     必需 Variant 型。表達(dá)式，指定對(duì)象參數(shù)引用的集合成員的位置。如果是數(shù)值表達(dá)式，則索引參數(shù)的范圍必須是從 0 到集合的 Count 屬性值減 1 的數(shù)值。如果是字符串表達(dá)式，則索引參數(shù)必須是集合成員的名稱。

應(yīng)用于 Pages 集合對(duì)象的 Remove 方法。

Remove 方法可從選項(xiàng)卡控件的 Pages 集合中刪除 Page 對(duì)象。

expression.Remove(Item)

expression     必需。返回一個(gè) Pages 集合對(duì)象的表達(dá)式。

Item     可選 Variant 型。整型值，指定要被刪除的 Page 對(duì)象的索引。Page 對(duì)象的索引和它的 PageIndex 屬性值相對(duì)應(yīng)。如果忽略該參數(shù)，則刪除集合中最后的一個(gè) Page 對(duì)象。

說明

Pages 集合的索引從零開始。在選項(xiàng)卡控件中最左邊頁(yè)的索引為 0，緊接其右邊的頁(yè)，索引為 1，以此類推。

僅當(dāng)窗體在“設(shè)計(jì)”視圖中時(shí)，才可以從選項(xiàng)卡控件的 Pages 集合中刪除 Page 對(duì)象。

應(yīng)用于 References 集合對(duì)象的 Remove 方法。

Remove 方法從 References 集合中刪除 Reference 對(duì)象。

expression.Remove(Reference)

expression     必需。返回一個(gè) References 對(duì)象的表達(dá)式。

Reference     必需 Reference 對(duì)象。 表示將刪除引用的 Reference 對(duì)象。

說明

若要確定要?jiǎng)h除的 Reference 對(duì)象的名稱，需在“對(duì)象瀏覽器”中選中“工程/庫(kù)”框。當(dāng)前設(shè)置的所有引用名稱均顯示在其中。這些名稱和 Reference 對(duì)象的 Name 屬性值相對(duì)應(yīng)。

示例

應(yīng)用于 Pages 對(duì)象。

下面的示例將從選項(xiàng)卡控件中刪除頁(yè)：

Function RemovePage() As Boolean

   Dim frm As Form

   Dim tbc As TabControl, pge As Page

   On Error GoTo Error_RemovePage

   Set frm = Forms!Form1

   Set tbc = frm!TabCtl0

   tbc.Pages.Remove

   RemovePage = True

Exit_RemovePage:

   Exit Function

Error_RemovePage:

   MsgBox Err & ": " & Err.Description

   RemovePage = False

   Resume Exit_RemovePage

End Function

應(yīng)用于 References 對(duì)象。

下面兩個(gè)函數(shù)中的第一個(gè)函數(shù)，用于將一個(gè)對(duì)日歷控件的引用添加到 References 集合中。第二個(gè)函數(shù)則刪除該引用。

Function AddReference() As Boolean

   Dim ref As Reference, strFile As String

   On Error GoTo Error_AddReference

   strFile = "C:\Windows\System\Mscal.ocx"

   ' Create reference to calendar control.

   Set ref = References.AddFromFile(strFile)

   AddReference = True

Exit_AddReference:

   Exit Function

Error_AddReference:

   MsgBox Err & ": " & Err.Description

   AddReference = False

   Resume Exit_AddReference

End Function

Function RemoveReference() As Boolean

   Dim ref As Reference

   On Error GoTo Error_RemoveReference

   Set ref = References!MSCAL

   ' Remove calendar control reference.

   References.Remove ref

   RemoveReference = True

Exit_RemoveReference:

   Exit Function

Error_RemoveReference:

   MsgBox Err & ": " & Err.Description

   RemoveReference = False

   Resume Exit_RemoveReference

End Function