如何在模块里定义一个控件是一个控件数组?
谢谢!

能给出具体点的实例么?谢谢

偶不是这个意思
偶是的意思
public sub cmdclick(cdmOK as commandbutton)

end sub
这是定义一个commandbution
但怎么定义它是一个控件数组?

对,就是这个意思...我在窗体建立了一个控件数组...想在模块里写它的功能...

我的意思是这样的
在form窗体里有:
command控件数组index=0 to 3
它的单击是件
select case index
case 0
.
.
.
end select

然而红色这部分我想在模块里作一个公共的功能

[此贴子已经被作者于2007-1-10 13:51:06编辑过]

这要写是可以...但我的程序是这样的...就不行叻...
Public Sub Command11(Command1 As CommandButton, ByVal index As Integer, datPrimaryRS As Adodc, frmMain As Form)
Select Case index
Case 0 '移到第一条
On Error GoTo err3021
Command1(0).Enabled = False
Command1(3).Enabled = True
Command1(2).Enabled = True
frmMain.datPrimaryRS.Recordset.MoveFirst
err3021:
If Err.Number = 3021 Then
MsgBox "数据库没有数据", vbInformation, "移动出错..."
End If
Case 1 '移到上一条
On Error GoTo err30211
If frmMain.datPrimaryRS.Recordset.AbsolutePosition = adPosBOF Then
Command1(1).Enabled = False

Else
Command1(2).Enabled = True
Command1(0).Enabled = True
Command1(3).Enabled = True
frmMain.datPrimaryRS.Recordset.MovePrevious
End If
err30211:
If Err.Number = 3021 Then
MsgBox "数据库没有数据", vbInformation, "移动出错..."
End If
Case 2 '移到下一条
On Error GoTo err30212
If frmMain.datPrimaryRS.Recordset.AbsolutePosition = adPosEOF Then
Command1(2).Enabled = False

Else
Command1(1).Enabled = True
Command1(0).Enabled = True
Command1(3).Enabled = True
frmMain.datPrimaryRS.Recordset.MoveNext

End If
err30212:
If Err.Number = 3021 Then
MsgBox "数据库没有数据", vbInformation, "移动出错..."
End If
Case 3 '移到最未条
On Error GoTo err30213
Command1(0).Enabled = True
Command1(3).Enabled = False
Command1(1).Enabled = True
frmMain.datPrimaryRS.Recordset.MoveLast
err30213:
If Err.Number = 3021 Then
MsgBox "数据库没有数据", vbInformation, "移动出错..."
End If

End Select

End Sub

[此贴子已经被作者于2007-1-10 15:58:36编辑过]

那要怎么做?我想要传的是数组!谢谢

也不行