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

siyunying 2002-06-02 02:17:29
http://www.csdn.net/expert/topic/771/771448.xml?temp=.1773493
...全文
74 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
wenw 2002-06-02
  • 打赏
  • 举报
回复
你把事件提出来吧。
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

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧