'//Usercontrol内
Public Sub YouArray(ArrayBuf() As String)
Dim i As Long
‘例
’For i = 0 To UBound(ArrayBuf)
‘ 数组x(i)=ArrayBuf(i)
’ Next i
End Sub'//Form内call Usercontrol.YouArray(k())
Public Sub YouArray(ArrayBuf() As String)
Dim i As Long
‘例
’For i = 0 To UBound(ArrayBuf)
‘ 数组x(i)=ArrayBuf(i)
’ Next i
End Sub'//Form内call Usercontrol.YouArray(k())
解决方案 »
- 一个ADO的诡异问题:SELECT语句惟独不能选择ACCESS表中第5列数据
- 怎么在VB窗体里显示一个EXCEL工作表。然后我可以像在VBA里操作EXCEL一样操作这个窗体上的EXCEL工作表。
- 200分求:如何取得对象的(enable)与(visible)的状态
- 谁知道排列组合的计算公式?
- 这个问题很急:注册表中写汉字出现截断的问题,大家帮我看看
- 急,毕业论文COPY
- Excel单元格的高度和宽度使用的是什么单位?如何转化为像素?还有如何获得单元格中字符串的长度(像素)?up有分!
- 如果让记录集脱立连接?
- 用VB访问foxpro数据表的日期字段问题,急,马上给分
- 讨论: 如何屏蔽alt+f4?
- 怎样才能同时使两个CONNECTION动态连接数据库?
- vb中文件保存的原代码是怎样的?
w_lion(豆腐) 说数组也可以,怎么用啊?
private mYourArray()as theTypepublic property let YourArray(V()as theType)
mYourArray=v
end property
public property get YourArray as theType()
YourArray=myourarray
end property
ocx内部怎么接受参数呢?