|
AddItem
用于将项目添加到 ListBox 或 ComboBox 控件，或者将行添加到 MS Flex Grid 控件。不支持命名参数。
语法：
object.AddItem item, index
Item 必需的。字符串表达式，它用来指定添加到该对象的项目。这仅仅对于 MS Flex Grid 控件，才能使用
tab字符（字符代码 09）分隔将要插入到新添加行中每列的多重字符串。
Index 可选的。是整数，它用来指定新项目或行在该对象中的位置。对于 ListBox 或 ComboBox
控件的首项，或者对于 MS Flex Grid 控件的首行，index 为 0。
说明：
如果所给出的 index 值有效，则 item 将放置在 object 中相应的位置。如果省略 index，当 Sorted
属性设置为 True 时，item 将添加到恰当的排序位置，当 Sorted 属性设置为 False 时， item
将添加到列表的结尾。
绑定到 Data 控件的 ListBox 或 ComboBox 控件不支持 AddItem 方法。
例：本示例使用 Addltem 方法增加 100 项给一个列表框。要检验此示例，可将本例代码粘贴到一个带有被命名为 List1
的 ListBox 控件的窗体的声明部分，然后按 F5 键并单击该窗体。
Private Sub Form_Click ()
Dim Entry, I, Msg ' 声明变量。
Msg = "Choose OK to add 100 items to your list box."
MsgBox Msg ' 显示信息。
For I = 1 To 100 ' 计数值从 1 到 100。
Entry = "Entry " & I ' 创建输入项。
List1.AddItem Entry ' 添加该输入项。
Next I
Msg = "Choose OK to remove every other entry."
MsgBox Msg ' 显示信息。
For I = 1 To 50 ' 确定如何
List1.RemoveItem I ' 每隔一项
Next I ' 删除。
Msg = "Choose OK to remove all items from the list box."
MsgBox Msg ' 显示信息。
List1.Clear ' 清除列表框。
End Sub
|
