vb 如何 传递 控件数组
vb 如何 传递 控件数组 ？
我有一个checkbox()控件数组index 0,1,2
传递控件我知道，但我想传递控件数组 ，不知如何实现？ 请教各位~~
'以下代码报错
Private Sub Command1_Click()
Dim strLevelAdapt As String
strLevelAdapt = ""
'Call CheckBoxCapToWord(Check2)
Call TransFormers.CheckBoxCapToWord(Check1(),2)
Debug.Print strLevelAdapt
End Sub
’-------------------------------
'TransFormers 模块
'将checkbox的选择转化成Word
Public Function CheckBoxCapToWord(ByRef CheckBoxP() As VB.CheckBox,byval Number As Integer) As String
On Error GoTo errlst
Dim ReturnValue As String
ReturnValue = ""
For i = 0 To Number '对象划分
If CheckBoxP(i).Value = 1 Then
If ReturnValue = "" Then
ReturnValue = CheckBoxP(i).Caption
Else
ReturnValue = ReturnValue & "|" & CheckBoxP(i).Caption
End If
End If
Next
CheckBoxCapToWord = R
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
vb将winsock控件封装到dll问题 有什么好的思路？ 如果用Socket API呢？
例如，像下面这样封装Winsock控件，行的通？
创建ActiveX dll，添加窗体frmClient，加入WinSock控件wskClient。
类代码：
Option Expli ......
怎么优化查询的效率，比如我想从100万条记录中每次只查询100条记录的话，那么这条sql语句该怎么实现，注意：语言是VBScript的，
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
涉及到算法，goog ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
