PrivateSubText5_Change()IfLen(Text5.Text)>160ThenText5.Text=Left(Text5.Text,160)MsgBox"已到最大字符数"EndIfLabel1.Caption=Len(Text5.Text)&"/160"EndSub直接加到你的代码框里就可以限制Text5里的字数了,超出的就删了,到了也会有提示,在label1里也会显示n/160,由于你没告诉我你用哪个控件显示n/160,我用的是label1,你可以自己改
原创 | 2022-10-28 17:39:50 |浏览:1.6万
PrivateSubText5_Change()IfLen(Text5.Text)>160ThenText5.Text=Left(Text5.Text,160)MsgBox"已到最大字符数"EndIfLabel1.Caption=Len(Text5.Text)&"/160"EndSub直接加到你的代码框里就可以限制Text5里的字数了,超出的就删了,到了也会有提示,在label1里也会显示n/160,由于你没告诉我你用哪个控件显示n/160,我用的是label1,你可以自己改
Copyright 2005-2020 www.kxting.com 【开心女性】 版权所有 | 湘ICP备2023022655号
声明: 本站所有内容均只可用于学习参考,信息与图片素材来源于互联网,如内容侵权与违规,请与本站联系,将在三个工作日内处理,联系邮箱:47085,1089@qq.com