Listbox 的问题

Question

请问,有没有可能动态添加选项到list?我的窗口运行里面包含一个listbox,因为是在一个具体的软件系统环境下用的VBA,我需要我在这个系统下的选择的条目能显示在list里面.现在我能简单实现窗口运行后之前选择的条目能显示或者通过按钮选择好条目以后,点击按钮能显示,我现在需要能够同时选择同时添加,不知道可不可以.谢谢.

Answer 1

不知道是不是属于动态加载的问题，只能做到事先选好要显示的条目，然后运行窗口在form_Activate 下面写list1.Add 就能显示我需要边选择边显示,高手指教阿

Answer 2

边选择、边LIST1.AddItem、边刷新!

Answer 3

toury(理上网来)， 刷新如何做到？
主要就是要做个方便的，一目了然的清单一类的东西，刷新就失去意义了。

Answer 4

FORM里放两个LIST,LIST1作为接收,LIST2作为你选择的项目
=========================================================
Private Sub Form_Load()
  List2.AddItem "aaaa"
  List2.AddItem "bbbb"
  List2.AddItem "cccc"
  List2.AddItem "dddd"
End SubPrivate Sub List2_Click()
  List1.AddItem List2.List(List2.ListIndex)
End Sub

Answer 5

完全可以。在FORM里放两个列表框LIST,在LIST1里面选择（可多选，一次选很多,只需List1.MultiSelect=2即可）,在LIST2显示你选择的项目，然后再放一个命令按钮Command1。在Command1的Click事件里编写如下代码：
            dim i as Long
            For i=0 to List1.ListCount-1
                if List1.Selected()=True then'凡是选中的就添加
                   List2.AddItem List1.List(List1.ListIndex)
                endi 
            next

Answer 6

我只能有一个list可以用，楼上的两位辛苦了
今天去问了所里面的导师，说估计弄不起来。因为我得VBA环境无法动态即时获得应用系统的变化，可能性很小，因为我是初学者，就将就用我现在的，选好了以后，点击一个按钮，获得列表。
不过希望大家能提出宝贵意见，做出来就更好了！