Remove 方法
内容
应用于 AccessObjectProperties 集合对象的 Remove 方法。
使用 Remove 方法可以从 AccessObject 对象的 AccessObjectProperties 集合中删除 AccessObjectProperty 对象。
expression.Remove(Item)
expression 必需。返回一个 AccessObjectProperties 集合对象的表达式。
Item 必需 Variant 型。表达式，指定对象参数引用的集合成员的位置。如果是数值表达式，则索引参数的范围必须是从 0 到集合的 Count 属性值减 1 的数值。如果是字符串表达式，则索引参数必须是集合成员的名称。
Remove 方法可从选项卡控件的 Pages 集合中删除 Page 对象。
expression.Remove(Item)
expression 必需。返回一个 Pages 集合对象的表达式。
Item 可选 Variant 型。整型值，指定要被删除的 Page 对象的索引。Page 对象的索引和它的 PageIndex 属性值相对应。如果忽略该参数，则删除集合中最后的一个 Page 对象。
说明
Pages 集合的索引从零开始。在选项卡控件中最左边页的索引为 0，紧接其右边的页，索引为 1，以此类推。
仅当窗体在“设计”视图中时，才可以从选项卡控件的 Pages 集合中删除 Page 对象。
应用于 References 集合对象的 Remove 方法。
Remove 方法从 References 集合中删除 Reference 对象。
expression.Remove(Reference)
expression 必需。返回一个 References 对象的表达式。
Reference 必需 Reference 对象。 表示将删除引用的 Reference 对象。
说明
若要确定要删除的 Reference 对象的名称，需在“对象浏览器”中选中“工程/库”框。当前设置的所有引用名称均显示在其中。这些名称和 Reference 对象的 Name 属性值相对应。
示例
下面的示例将从选项卡控件中删除页：
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
下面两个函数中的第一个函数，用于将一个对日历控件的引用添加到 References 集合中。第二个函数则删除该引用。
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