高手HelpMe,一帖已发,无人关注.两帖合一,一同加分

[siyunying]

http://www.csdn.net/expert/topic/771/771448.xml?temp=.1773493

[wenw]

'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.Text3(i)
next
End Sub

[siyunying]

to wenw(阿文)
编译错误

[wenw]

你把事件提出来吧。
Private sub text3_chang(index as long)

if not IsNumeric(text3(index)) then text3(index)=""
end sub