一个有点让我搞不懂的问题,可能钻了牛角了,应该很简单.

Question

程序中,放着list1 list2 list3等多个list控件
Private Sub Form_Click()
  Call test("明星", 1)'第二个就是想做list标识
End SubSub test(a As String, b As Integer)
if b=1 then
list1.AddItem a
elseif b=2 then
list2.AddItem a
.......
end if
End Sub不想要上面这种,有没有更简易的方法?因为sub中会有数次for来调用.能不能就list"b"这种简易可行的?帮帮我.........

Answer 1

做成控件数组.然后Sub test(a As String, b As Integer)
list1(b).AddItem a
End Sub