關于控件數組在模組中的傳遞

[whose]

Private Sub Command1_Click()
Call test(Form1.Text1)
End Sub

Function test(aa() As Control)
aa(0).Text = "A"
aa(1).Text = "B"
End Function

錯誤提示：型態不符

[sxmzmxh]

Call test(Form1.Text1())试试

[whose]

Call test(Form1.Text1())不行

[xfflean]

Private Sub Command1_Click()
Dim bb() As Control
ReDim bb(1 To 1)
Set bb(1) = Text1
text bb()
End Sub

Private Sub text(aa() As Control)
Dim bb As Variant
For Each bb In aa()
MsgBox bb.text
Next
End Sub
临时写出来的..

[whose]

to ：　xfflean(雄)　
執行到 Set bb(1) = Text1 型態不符
你的意思是用中間數組
能否有直接方法
另，需要調用放在模組或類模組中的function或sub

[cn520]

很简单，放置3个text（数组text1(0)... text1(2)），一个command1：


Private Sub Command1_Click()

Test Text1()

End Sub

Private Sub Test(ctrl As Variant)
Dim c As Control, i As Integer

For i = 0 To 2
Set c = ctrl(i)
c.Text = i
Next i

End Sub

[xfflean]

不会吧，我试过了啊没问题.

[whose]

我再試試

[Bardo]

Function test(aa As Control)

[whose]

to : cn520()
為何用Variant，而不直接用Control.
to ：　xfflean(雄)
確實還不行,我想應該可以。　


調用函數，你們都不用Call?