Access VBA教程:RemoveItem方法

从指定的列表框控件或组合框控件显示的值列表中,删除一个项。

expression.RemoveItem(Index)

expression   必需。返回“Applies To”列表中的一个对象的表达式。

Index  必需 Variant 型。即将从列表中删除的项,用项目号或列表项文本表示。

说明

该方法仅对窗体上的列表框或组合框控件有效。而且,控件的RowSourceType属性必须设为“值列表”。

列表项编号从零开始。如果 Index参数的值与现有项目编号或现有项的文本不对应,则会出错。

使用AddItem方法可以将项目添加到值列表中。

示例

该示例从列表框控件的列表中删除指定项。为使函数可以工作,必须为其传递一个代表窗体上列表框控件的 ListBox对象及一个代表要删除的项的 Variant 值。


Function RemoveListItem(ctrlListBox As ListBox, _
        ByVal varItem As Variant) As Boolean
    ' Trap for errors.
    On Error GoTo ERROR_HANDLER
    ' Remove the list box item and set the return value
    ' to True, indicating success.
    ctrlListBox.RemoveItem Index:=varItem
    RemoveListItem = True
    ' Reset the error trap and exit the function.
    On Error GoTo 0
    Exit Function
' Return False if an error occurs.
ERROR_HANDLER:
    RemoveListItem = False
End Function

上页:Access VBA教程:Remove方法 下页:Access VBA教程:Repaint方法

Access VBA教程:RemoveItem方法

Access VBA教程:Repaint方法 Access VBA教程:ReplaceLine方法
Access VBA教程:Requery方法 Access VBA教程:Run方法
Access VBA教程:RunCommand方法 Access VBA教程:Scale方法
Access VBA教程:导出报表快照 (Snapshot Viewer) Access VBA教程:SetDefaultWorkgroupFile方法
Access VBA教程:SetFocus方法 Access VBA教程:SetHiddenAttribute方法
Access VBA教程:SetOption方法 Access VBA教程:SizeToFit方法
Access VBA教程:StringFromGUID方法 Access VBA教程:SysCmd方法
Access VBA教程:TextHeight方法 Access VBA教程:TextWidth方法
Access VBA教程:TransferSQLDatabase方法 Access VBA教程:Undo方法
Access VBA教程:UseDefaultFolderSuffix方法 Access VBA教程:AccessObject对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号