PrivateSubText5_Change()IfLen()&=Left(,160)MsgBox"已到最大字符數"ion=Len()&"/160"EndSub直接加到你的代碼框裏就可以限制Text5裏的字數了,超出的就刪了,到了也會有提示,在label1裏也會顯示n/160,由於你沒告訴我你用哪個控件顯示n/160,我用的是label1,你可以自己改