AddItem 方法

用于在指定列表框控件或組合框控件所顯示的值列表中添加新項(xiàng)。

expression.AddItem(Item, Index)

expression     必選。返回“應(yīng)用于”列表中的一個(gè)對象的表達(dá)式。

Item     必選 String 型。新添項(xiàng)的顯示文本。

Index     可選 Variant 型。項(xiàng)在列表中的位置。如果省略該參數(shù)，項(xiàng)就會(huì)添加到列表的尾部。

說明

指定控件的 RowSourceType 屬性必須設(shè)為“值列表”。

這種方法只對窗體上的列表框或組合框才有效。

列表項(xiàng)編號從零開始。如果 Index 參數(shù)的值與已有的項(xiàng)編號不一致，就會(huì)出錯(cuò)。

對于多列列表，要使用分號來分隔每列的字符串（例如，對于一個(gè)三列列表有“1010;red;large”）。如果 Item 參數(shù)中包含的字符串個(gè)數(shù)少于控件中的列數(shù)，項(xiàng)就會(huì)從最左側(cè)的列開始添加。如果 Item 參數(shù)中包含的字符串個(gè)數(shù)多于控件中的列數(shù)，多出的字符串就會(huì)被忽略。

使用 RemoveItem 方法可以從值列表中刪除某些項(xiàng)。

示例

下面的示例將在列表框控件中的列表的尾部添加一項(xiàng)。為使函數(shù)奏效，必須將它傳給代表窗體上列表框控件的 ListBox 對象和代表添加項(xiàng)的文本的 String 值。

Function AddItemToEnd(ctrlListBox As ListBox, _

        ByVal strItem As String)

    ctrlListBox.AddItem Item:=strItem

End Function

下面的示例將在組合框控件中的列表的開頭添加一項(xiàng)。為使函數(shù)奏效，必須將它傳給代表窗體上組合框控件的 ComboBox 對象和代表添加項(xiàng)的文本的 String 值。

Function AddItemToBeginning(ctrlComboBox As ComboBox, _

        ByVal strItem As String)

    ctrlComboBox.AddItem Item:=strItem, Index:=0

End Function