在VB中实现向函数传递不定个数参数
2004-07-12 14:02 电脑人生 阅读(419) 评论(0) 编辑 收藏 举报在VB中实现向函数传递不定个数参数其实很容易,下面我写出代码,今天在开发的工程中正好用得上.十分实用.^_^
新建一个EXE工程,加入一个Listbox1和Command1,代码如下:
Option Explicit
Public Sub TransferPA(LST As ListBox, ParamArray Items())
Dim i
With LST
.Clear
For Each i In Items
.AddItem i
Next
End With
End Sub
Private Sub Command1_Click()
TransferPA List1, "ListItem1", "ListItem2", "ListItem3"
End Sub
点击按钮瞧瞧,不错吧.
---by 唐细刚