7,785
社区成员
发帖
与我相关
我的任务
分享高手HelpMe,一帖已发,无人关注.两帖合一,一同加分
http://www.csdn.net/expert/topic/771/771448.xml?temp=.1773493
...全文
请发表友善的回复…
发表回复
wenw 2002-06-02
- 打赏
- 举报
你把事件提出来吧。
Private sub text3_chang(index as long)
if not IsNumeric(text3(index)) then text3(index)=""
end sub
Private sub text3_chang(index as long)
if not IsNumeric(text3(index)) then text3(index)=""
end sub
siyunying 2002-06-02
- 打赏
- 举报
to wenw(阿文)
编译错误
编译错误
wenw 2002-06-02
- 打赏
- 举报
'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
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
