问个简单的问题，请大家帮忙回答一下。

主题：问个简单的问题，请大家帮忙回答一下。

cnxibei [专家分：0] 发布于 2010-05-11 11:04:00

我在VB中添加多个 ListBox 名称为 List1,List2,List3 ...
其中要增加项目如下：
    List1.AddItem "A"
    List1.AddItem "B"
    List1.AddItem "C"
    List1.AddItem "D"
    List1.AddItem "E"
    List1.AddItem "F"
    ... ...
怎么能写个函数实现一下，比如这样

Function 组合(控件名称, 要增加的项目如 A,B,C,D....)
    For i = 0
        控件名称.AddItem 要增加的项目(i)
End Function

这个函数我不会写，写了一个说数组怎么不对，琢磨不出来，特请师傅们给说下

本帖地址： http://bbs.pfan.cn/post/321647.html

回复列表（共3个回复）

沙发

cnxibei [专家分：0] 发布于 2010-05-11 11:07:00

我想通过这个函数
每次只要调用一下就可以在相应的控件中增加项目
比如函数名称(控件名称,"项目数组A,B,C,D...")

板凳

一江秋水 [专家分：9680] 发布于 2010-05-11 15:34:00

因为你不需要返回值，所以调用一个过程即可：

Private Sub 组合(lObject As Object, lList() As String)
Dim i As Integer
For i = 0 To UBound(lList)
lObject.AddItem lList(i)
Next
End Sub

下面是测试代码：

Private Sub Command1_Click()
Dim st(4) As String
st(0) = "A": st(1) = "B": st(2) = "C": st(3) = "D": st(4) = "E"
组合 List1, st
组合 List2, st
组合 List3, st
End Sub

3 楼

cnxibei [专家分：0] 发布于 2010-05-13 10:20:00

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：问个简单的问题，请大家帮忙回答一下。

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：问个简单的问题，请大家帮忙回答一下。

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共3个回复）