VB的List1控件所有的使用方法

[中考语文记叙文阅读所有题型的答题方法技巧]说明文阅读技巧 1、说明方法： ①举例子：具体真切地说明了……事物的……特点。 ②分类别：条理清楚地说明了……事物的……特点，对事物的特征（事理）分门别类加以说明，使说明更有条...+阅读

1)List Box控件常用的方法参数： AddItem 向列表框添加新项目，其格式为： ListBox控件名.AddItem[，] 其中：为字符串表达式，表示添加到列表框中的新项目。为数值表达式，指定在列表框中插入新项目的位置。若为0，则插入到第一个项目位置；若缺省且Sorted属性为False，则插入到最后一个项目位置；若缺省且Sorted属性为True，则插入到合适的排序位置。 RemoveItem 从列表框中删除项目，其格式为： ListBox控件名.RemoveItem Clear 清除列表框中所有项目，其格式为： ListBox控件名.Clear 例如添加代码到List1列表框中，运行后的结果如下：Private Sub Form_Load()List1.AddItem ＂Germany＂List1.AddItem ＂India＂List1.AddItem ＂France＂List1.AddItem ＂USA＂List1.AddItem ＂Japan＂, 0List1.AddItem ＂China＂, 1End Sub 要从列表中删除项目，可使用RemoveItem方法，如要删除列表中的第一个项目，可添加如下代码：Private Sub Command1_Click()List1.RemoveItem 0End Sub要删除连结版或标准版的列表框、组合框中的所有项目。可使用Clear方法：List1.Clear注意：1）可以在设计时添加项目。做法：选列表框“属性”窗口中[List]属性，在下拉的空白框中输入项目，并按[CTRL]+[回车]键进行换行。2）只能在列表末端添加项目。3）如果要将列表按字母顺序排序，则应将“Sorted”属性设置为“True”，且省略索引（否则，使用带有index参数的AddItem方法可能会导致不可预料的非排序结果），排序时不区分大小写。（2）常用属性属性描述代码及界面显示 List

(1)在设计时可向列表框中添加新项目，输人时用Ctrl+Enter组合键换行（2）在代码中可用来访问列表框中的所有项目，它包含了一个字符串数组，列表框中的每个项目都是这个数组的元素。其引用格式为： s$=ListBox控件名.List（索引值）其中：为数值表达式，指定项目在列表中的位置，它是从0开始的。例：s$=list1.list

(6)将列出list1的第七项内容。 Private Sub Command1_Click() Text1.Text = List1.List

(2) End Sub 也可改变数组中已有的值，格式： ListBox控件名.List（索引值）=s$ 例list1.list

(3)=＂AAAA＂将把list1的第四项的内容设为AAAA。 Option Explicit Private Sub Command1_Click() Text1.Text = ＂You have＂ & List1.ListCount & ＂_entrifs lister＂ End SubPrivate Sub Command2_Click() Text1.Text = List1.List

(3) End Sub Private Sub Command3_Click() Text1.Text = List1.ListIndex End SubPrivate Sub Form_Load() List1.AddItem ＂Germany＂ List1.AddItem ＂India＂ List1.AddItem ＂France＂ List1.AddItem ＂Canada＂ List1.AddItem ＂USA＂ List1.AddItem ＂Japan＂, 0 R>List1.AddItem ＂China＂, 1 End Sub Private Sub List1_Click() If List1.Text = ＂Canada＂ Then Text1.Text = ＂Canada have 24 million people.＂ End If End Sub ListCount 返回列表框中项目的总数，只在运行时可用。例： Private Sub Command2_Click() Text1.Text = ＂You have＂ & List1.ListCount & ＂_entrifs lister＂ End Sub ListIndex 返回在列表框中当前选定项目的位置，只在运行时可用。未选定任何项目时，其值为-l。例： Private Sub Command3_Click() Text1.Text = List1.ListIndex End Sub Text 存放当前在列表框中选定的项目，即List(ListIndex)的值。例： Private Sub List1_Click() If List1.Text = ＂Canada＂ Then Text1.Text = ＂Canada have 24 million people.＂ End If End Sub Columns 指定列表框中的列数。其值为0时，列表框以垂直滚动的单列方式显示；为l时，列表框以水平滚动的单列方式显示；大于l时，列表框以水平滚动的多列方式显示。 Option ExplicitPrivate Sub Form_Load() Dim i As Integer For i = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(i)'“Columns”属性0 List2.AddItem Screen.Fonts(i)'“Columns”属性1 Next i End Sub MultiSelect 表明是否允许用户从列表框中选定多个项目以及选定的方式。其值为0时，只允许选择一个项目，不允许复选；为1时，允许用户通过单击或按下空格键选定或撤消多个项目；为2时，允许用户使用Shift和Ctrl组合操作来选定或撤消多个项目。语法结构： object.MultiSelect = [ Number ] Sorted 为True时，自动将列表按字母顺序重新排列，排序时不区分大小写。 Style 表示列表框中项目的显示形式，运行时只读。其值为0时，为标准方式显示；为1时，在每个项目前加上一个复选框。 Selected 该属性实际上是一个数组，各个元素的值为True或False，表明是否选择了该项。用下面的语句可以检查指定的表项是否被选择（其中“索引值从0开始）： ListBox控件名.Selected（索引值）用下面的语句可以选择或取消指定的表项： ListBox控件名.Selected（索引值）=Ture│False