Remove 方法示例

下列示例取得对象CurrentObject的单击的索引号，如果存在过程，则将其删除。

Dim lIndex As Long

Dim lFound As Long

CurrentObject.Procedures.GetEventHandlerIndex "Click", lIndex, lFound

If lFound = 1 Then

CurrentObject.Remove lIndex

End If

下列示例从FixDataSystemFDS的组集中删除组DataGroup1。

FDS.Groups.Remove("DataGroup1")

下列示例从FixDataSystemFDS的组集中删除第一个组。

FDS.Groups.Remove(1)