2011年度计算机等级考试二级VB复习指导(43)

会计考友

　5.9.2 基本操作　　在程序运行时，也可以通过列表框相应的方法向列表框中添加项目，或从列表框中删除项目。
　　列表框的AddItem方法用来向列表框中添加项目，Addltem方法的句法如下：
: N0 A3 i0 p: z) l7 l( p# q　　列表框名。AddItem Item，Index
　　Addltem方法有两个参数，Item参数是要添加到列表框中的项目，Index为项目的索引号，确定要将项目添加到的位置。在列表框中，第一个项目的索引号为0，第二个项目的索引号为1，依此类推。Index参数是可选的，在缺省情况下，项目被添加到列表框的末尾。
( s4 \  u8 a" P1 ?. E# N% C- f　　注意：如果列表框Sorted属性的值为True，则无论Inder参数的值为多少，项目都以正确的排序添加到列表框中。
- @5 ^' V! I5 U4 @　　列表框的RernoveItem方法用来从列表框中删除项目，RermoveItem方法的句法如下：
　　列表框名。RermoveItem Index.
　　Index参数为要删除项目的索引号，在这里Index参数不可缺省。在删除某个项目后，后续项目的索引会自动调整。
& z7 G  Z* P# f　　RemoveItem方法用来删除列表框中指定的项目，要一次性删除列表框中的所有项目，可使用Clear方法。使用Clear方法删除列表框中所有项目的句法如下：
5 {$ \( H! b3 }0 O0 H& _* n4 [　　列表框名。Clear.
　　实例5.20添加与删除列表框中项目。

会计考友

　在窗体中放置一个列表框控件，一个文本框控件和三个按钮控件。其中各对象的属性设置如表5.31所示。
- |6 G( L+ ?3 [, g" G! B　　
, ^& C) U' [5 g  ]& q8 j2 r　　将下列代码添加到ComAdd_Click事件过程中：
　　Private Sub ComAdd_Click()
, o( V( p& c( T! \1 t" [　　Listl.AddItem TexAdd.Text
　　End Sub
　　将下列代码添加到ComAdd_Click事件过程中：
  }6 E3 _1 ?! B( Z6 I0 o! w　　Private Sub ComDel_Click()
2 e5 B! z+ H6 N* ?　　If Listl.ListIndex >=0 Then
5 }& O  p0 \  J* D; j: t3 a  @　　Listl.ReomoveItem Listl.ListIndex
( D, c( w+ s8 Y1 G8 }　　Else
　　Print “您没有选中任何项目”
& @9 G9 O" X, B) C$ _' b- @6 _　　End If
　　End Sub
　　将下列代码添加到ComClear_Click事件过程中：
  N! p" g5 N: c) z7 o; {: o, K: {　　Private Sub ComClear_Click()
# h3 y4 t& m6 |- H6 U5 E% Q　　Listl.Clear
　　End Sub
　　运行该程序，在文本框中输入“学历”，单击【添加】按钮，则项目“学历”就被添加到了列表框中，如图5.64所示。在列表框中选中“性别”项目，单击【删除】按钮，则该项目就被删除，如图5.65所示。单击【全部删除】按钮，则列表框中的所有项目都被删除。