Question

大哥，List1的ListCount是什么意思啊？？？

Answer 1

ListCount 属性

返回控件的列表部分项目的个数。

语法

object.ListCount

object 所在处表示对象表达式，其值是“应用于”列表中的一个对象。

说明

ListCount 对每个控件提供具体的信息：

ComboBox 和 ListBox 控件－列表中的项目数。

DirListBox 控件－当前目录中子目录的个数。

DriveListBox 控件－连接的驱动器个数。

FileListBox 控件－当前目录中匹配 Pattern 属性设置的文件个数。
如果没有选择项目，ListIndex 属性值为 -1。列表中的第一项是 ListIndex = 0，并且 ListCount 始终比最大的 ListIndex 值大 1。
ListCount 属性示例
这个例子将打印机字体列表装载到一个 ComboBox 控件中，显示列表中的第一项，然后输出字体的总数。每次单击命令按钮都将列表中的所有项改变为大写或小写。要尝试这个例子，请将代码粘贴到包含一个 ComboBox 控件 (Style = 2) 和一个 CommandButton 控件的窗体的声明部分, 然后按 F5 键并单击 CommandButton。

Private Sub Form_Load ()
Dim I ' 声明变量。
AutoRedraw = True ' 设置 AutoRedraw。
For I = 0 To Printer.FontCount - 1 ' 将字体名字放入列表中。
Combo1.AddItem Printer.Fonts(I)
Next I
Combo1.ListIndex = 0 ' 设置文本为第一项。
' 在窗体中输出 ListCount 信息。
Print "Number of printer fonts: "; Combo1.ListCount
End Sub
Private Sub Command1_Click ()
Static UpperCase
Dim I ' 声明变量。
For I = 0 To Combo1.ListCount - 1 ' 在列表中循环。
If UpperCase Then
Combo1.List(I) = UCase(Combo1.List(I))
Else
Combo1.List(I) = LCase(Combo1.List(I))
End If
Next I
UpperCase = Not UpperCase ' 改变大小写。
End Sub

Answer 2

列表项的数目
例如：list1内有一个列表项，那么ListCount=1
如果ListCount=0，则说明list1是空的

Answer 3

总数

Answer 4

元素个数