请问用listbox 好还是用数组好？

Question

如果你的数据有结构的话那么就定义成type数组
用listbox不是很好,因为读控件的属性的速度是很慢的!

Answer 1

集合Collection在某些情况下比用数组好的多。
集合是方法将一系列相关的项构成组的一种方法。
详情请看MSDN：
Visual Basic 集合对象
Visual Basic 中的集合
用集合替代数组
这几章

Answer 2

用Collection
item方法检索要比数组快

Answer 3

对不起，我是菜鸟，
什么是Collection?
说细一点好吗？
50分，绝不食言

Answer 4

这不是明摆叫我COPY MSDN的东西吗？Collection 对象示例
本示例建立一个命名为 MyClasses 的 Collection 对象，再建立一个对话框，让用户可从对话框中将对象建立到该集合对象中。若要观察程序如何工作，请先在“插入”菜单上选择“类模块”命令，然后在 Class1 的模块级中声明一个公用变量，命名为 InstanceName（类型为 Public InstanceName），此变量用来保存每个类实例的名称。不要更改类的缺省名称 Class1。将下列代码复制到另一个模块的“通用”节中，然后在另一个过程中用 ClassNamer 语句使它启动激活。（本示例仅使用支持类的主机应用程序。）Sub ClassNamer()
   Dim MyClasses As New Collection   ' 建立一个集合对象（Collection）。
   Dim Num   ' 计数用变量，用来对对象的个数计数。
   Dim Msg As String   ' 提示信息用变量。
   Dim TheName, MyObject, NameList   ' 对象信息用变体。
   Do
      Dim Inst As New Class1   ' 建立 Class1 的新实例。
      Num = Num + 1   ' 把计数变量 Num 加一，然后要求输入新对象个体的名称。
      Msg = "Please enter a name for this object." & Chr(13) _
       & "Press Cancel to see names in collection."
      TheName = InputBox(Msg, "Name the Collection Items")
      Inst.InstanceName = TheName   ' 将名称送入对象实例。
      ' 若用户输入了名称，将它加入集合。
      If Inst.InstanceName <> "" Then
         ' 将命名的对象加入集合。
         MyClasses.Add item := Inst, key := CStr(Num)
      End If
      ' 清除当前的引用，为对下一个对象做准备。
      Set Inst = Nothing
   Loop Until TheName = ""
   For Each MyObject In MyClasses   ' 建立名称列表。
      NameList = NameList & MyObject.InstanceName & Chr(13)
   Next MyObject
   ' 将名称列表在消息框中显示出来。
   MsgBox NameList, , "Instance Names In MyClasses Collection"   For Num = 1 To MyClasses.Count   ' 从集合中删除名字。
      MyClasses.Remove 1   ' 因为每删除一个对象后，集合
            ' 会自动重排顺序，故每次迭代时只需删除第一个
   Next      ' 对象即可。
End Sub

Answer 5

谢谢:QQRN(笨QQ)　
这不是明摆叫我COPY MSDN的东西吗？
我买的MSDN是英文版的(买不到中文)而我的E文也臭得可以，就把它丢在一旁（加担心，D版的，那么多钱那是我等平民消费得起？？）

Answer 6

毕竟是斑竹，出手就是不一样
Scripting.Dictionary实现起来要比一般的collection方便很多阿
Dim d   ' Create a variable.
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"   ' Add some keys and items.
d.Add "b", "Belgrade"
d.Add "c", "Cairo"

Answer 7

Scripting.Dictionary?
学到一招。这50分还给你了，要不要。