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,你可以自己改