For i = LBound(vArr) To UBound(vArr)
If vArr(i) <> "" Then
List1.AddItem vArr(i)
End If
Next i
End Sub
[1]
copyright 2004-2009 www.qqcf.com all rights reserved. DIV+CSS架构 本站为学习性免费网站,没有任何商业性质,甚至连一个外部广告都没有投放 所有文章均来源于互联网,如发现有侵权,请来信告知,本站将会以最快的速度删除和改正,E-Mail:cftop@qq.com