如何实现控件数组的引用,不想在窗体中控件的事件写代码,因为这些代码都一样.

Question

Bardo好象给你回复了：“用类向导创建一个基于你的类的集合”
你去看看！

Answer 1

这是很简单的问题呀。
'Class1.cls
Private WithEvents txt As TextBox
Property Set TextBox(obj As Object)
    Set txt=obj
End Property
Private Sub txt_Change()
   if not IsNumeric(txt) then txt=""
End Sub'Form1
Dim clstxt1 As New Class1
Private Sub Form_Load()
dim i as long
for i=0 to 1
set clstxt1.TextBox=Me.Text1(i)
next
End Sub

Answer 2

To:wenw(阿文)
如果你实际运行一下你就会发现你这样是不可能的.
根本无法编译
发生错误.

Answer 3

楼上的不对，你的类中的txt，仅仅是保持了对最后一次赋值的Textbox的引用，只能接受最后一次赋值的textbox的事件
这类问题，如果使用纯VB处理，我认为只有回调一途

Answer 4

To IsMe()
根本无法编译